Reklama: GRATIS wycena pozycjonowania strony , KLIKNIJ !
Dołącz do grupy

Stwórz profil

Musisz wpisać swoje imię
Musisz wpisać swoje nazwisko
Musisz wpisać poprawny e-mail
Musisz wpisać hasło (min. 8 znaków)
Musisz zaakceptować regulamin

Artur J. Sony Vegas -
zapraszam

Temat: Lamerskie: Jak wyciągnąć nazwę karty w arkuszu do komórki?!

:-)
30.01.2012, 13:43
Link do wypowiedziLink | Cytuj

Darek J. Analityk

Temat: Lamerskie: Jak wyciągnąć nazwę karty w arkuszu do komórki?!

Witam,
proszę spróbować może takim makrem:


Sub Nazwa()



Cells(1, 1).Value = ActiveSheet.Name

End Sub

Pozdrawiam.
30.01.2012, 13:51
Link do wypowiedziLink | Cytuj

Artur J. Sony Vegas -
zapraszam

Temat: Lamerskie: Jak wyciągnąć nazwę karty w arkuszu do komórki?!

właśnie, a bez makra chyba się nie da :-(
30.01.2012, 14:06
Link do wypowiedziLink | Cytuj

Bartłomiej Dąbrowski analiza/przetwarzani
e danych

Temat: Lamerskie: Jak wyciągnąć nazwę karty w arkuszu do komórki?!

funkcja KOMÓRKA
parametr "filename" - po polsku to chyba "ściężka" czy cuś
nazwa arkusza zaczyna się po ostatnim znaku "]" więc
jakieś ZNAJDŹ i FRAGMENT.TEKSTU załatwi sprawę
30.01.2012, 14:10
Link do wypowiedziLink | Cytuj

Darek J. Analityk

Temat: Lamerskie: Jak wyciągnąć nazwę karty w arkuszu do komórki?!



=PRAWY(KOMÓRKA("nazwa_pliku";$A$1);DŁ(KOMÓRKA("nazwa_pliku";$A$1))-ZNAJDŹ("]";KOMÓRKA("nazwa_pliku";$A$1)))

Autor: Asia_@, http://excelforum.plDarek J. edytował(a) ten post dnia 30.01.12 o godzinie 14:13
30.01.2012, 14:11
Link do wypowiedziLink | Cytuj

Adam Samborowski Analityk Finansowy/
Flying Fish

Temat: Lamerskie: Jak wyciągnąć nazwę karty w arkuszu do komórki?!

to ja sie podepne pod temat. a jak w pierwszym arkuszu zrobić sobie liste nazw wszystkich arkuszy ? Mam 100 arkuszy i chce w pierwszym zrobic sobie "spis treści z hiperłączami, i nie mam ochoty teo robić na piechotę.

Pozdrawiam
16.02.2012, 09:46
Link do wypowiedziLink | Cytuj

Tomasz Gryzio Trener, It School

Temat: Lamerskie: Jak wyciągnąć nazwę karty w arkuszu do komórki?!

Witam,
Makro wyglądałoby tak:



Sub sNazwyArkuszy()



Dim i As Integer

For i = 1 To Sheets.Count

    Sheets(i).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _

        "'" & Sheets(i).Name & "'!A1", TextToDisplay:="'" & Sheets(i).Name & "'!A1"

Next

End Sub

Pozdrawiam!Tomasz Gryzio edytował(a) ten post dnia 16.02.12 o godzinie 12:23
16.02.2012, 10:01
Link do wypowiedziLink | Cytuj

Adam Samborowski Analityk Finansowy/
Flying Fish

Temat: Lamerskie: Jak wyciągnąć nazwę karty w arkuszu do komórki?!

Super, działa. Ma tylko problem jak arkusz ma w nazwie 2 slowa albo znaki specjalne, wtedy się sypie.
Pozdrawiam i dzieki za pomoc

Edit : dzieki za rozwiązanie problemu z 2 wyrazową nazwą. Adam Samborowski edytował(a) ten post dnia 16.02.12 o godzinie 16:44
16.02.2012, 11:21
Link do wypowiedziLink | Cytuj
« Wróć do tematów
Odpowiedz
Dołącz do grupy



Wyślij zaproszenie do

Anuluj