Temat: Macro w excel'u - otwieranie arkusza z konkretną datą

Witam

Tak jak w nagłówku potrzebuję napisać macro w excel'u. Nie jestem biegły w makrach więc proszę o pomoc.
Excel będzie miał budowę: Sheet1-Zakres dat(w kolumnie A będą wprowadzone daty) dla których makro ma utworzyć oddzielne Sheet nazwane jak wpisane daty w "Sheet1".

Wiem że nową zakładkę mogę wstawić sobie czymś takim:
Sheets.Add After:=Sheets(Sheets.Count)

ale nie wiem jak teraz dla wstawionej zakładki przypisać kontretną datę z podanego zbioru z "Sheet1"

Dziękuję za pomoc.
Grzegorz C.

Grzegorz C. Specjalista,
Uniwersytet Śląski

Temat: Macro w excel'u - otwieranie arkusza z konkretną datą


Sub wstaw_arkusze_daty()

Dim i As Integer, ile_wierszy As Integer

ile_wierszy = Range(Range("A1"), Range("A1").End(xlDown)).Rows.Count

For i = 1 To ile_wierszy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(i + 1).Name = Sheets(1).Cells(i, 1).Value
Next i

End Sub

Temat: Macro w excel'u - otwieranie arkusza z konkretną datą

Dzięki działa :-)



Wyślij zaproszenie do