Dim aSelect() As String
y = 0
For x = 1 To Sheets.Count
If Sheets(x).Name <> "Sheet1" And Sheets(x).Name <> "Sheet2" Then ReDim Preserve aSelect(y): aSelect(y) = Sheets(x).Name: y = y + 1
Next
Sheets(aSelect).Selectcitovat
Zaslal/a
28.7.2014 15:36Potřebuji makrem vybrat všechny listy sešitu kromě dvou.
Např.: mam proměnlivý počet listů, které jsou pojmenované od 1 do ... A další dva listy které se jmenuji "list1" a "list2". A potřebuji, aby makro vybralo(označilo) všechny listy pojmenované čísly. A listy "list1" a "list2" musejí zůsta nevybrané.
Moc děkuji za pomoc
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.