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

:-)

konto usunięte

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.

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

właśnie, a bez makra chyba się nie da :-(
Bartłomiej Dąbrowski

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ę

konto usunięte

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
Adam Samborowski

Adam Samborowski Kontroler kosztów

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
Tomasz Gryzio

Tomasz Gryzio Dyrektor
zarządzający/Trener/
Konsultant - 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
Adam Samborowski

Adam Samborowski Kontroler kosztów

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

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

=FRAGMENT.TEKSTU(KOMÓRKA("FILENAME";A100);ZNAJDŹ("$";KOMÓRKA("FILENAME";A100);1)+1;200)


to chyba załatwi sprawę.Ten post został edytowany przez Autora dnia 29.04.14 o godzinie 13:47



Wyślij zaproszenie do