Witam,
moze tak:
Sub ZaznaczanieArkuszy()
Dim sSheets() As String
Dim i As Long
Dim oW As Worksheet
Const z As Long = 3
Const lStart As Long = 1
ReDim sSheets(lStart To z)
'Tworzenie arkuszy
For i = lStart To z
Set oW = ActiveWorkbook.Worksheets.Add(, ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
sSheets(i) = oW.Name
Next i
'Zaznaczanie
Sheets(sSheets).Select
End Sub
Cytat:Witam.
w exelu mam makro które generuje arkusze w zależności od tego ile jest danych w pliku źródłowym -> zmienna "z" , czyli tworzy arkusze 1,2,3,......z
Potrzebuję aby na końcu były wszystkie aktywne tylko te są w skoroszycie jeszcze inne, efekt jakbym zaznaczał zakładki z shiftem albo ctrl
nie mam już pomysłu,
próbowałem pętli , z array ale coś robię nie tak bo na końcu zostaje aktywna tylko jedna
czy ktoś ma jakieś rozwiązanie? |
wstecz 1 dalej
otwarty rozpoczął: mic1@wp.pl
postów: 2
admin
