MS Excel

Zdravím,

mám sešit s x listama a potřeboval bych, aby se mi z tohoto sešitu přesunuli třetí až x-tý list do nového sešitu a ten se pak uložil pod určitým jménem.

Díky za pomoc

Zaslat odpověď >

Koci(27.8.2010 12:40)#002312

Vytvoř příklad a zašli, určitě to není nic složitého

citovat

Caken(27.8.2010 13:08)#002317

Mám takovýto sešit:
http://leteckaposta.cz/674873737

A potřebuji ty listy s názvem "napresun" přesunout do nového sešitu a ten potom uložit pod určitým jménem. S tím, že těch listů na přesun může být libovolný počet.citovat

Koci(27.8.2010 13:16)#002318

Jaká podmínka bude určovat, které konkrétní listy se mají přesunout? Bude to interval od listu 1-5, nebo násobky každý třetí, pátý, atd...?citovat

Caken(27.8.2010 13:18)#002319

Vždy to bude od třetího listu včetně do posledního.citovat

Jeza.m(27.8.2010 15:51)#002320

trochu jsem si pomohl googlem :-)

Sub Makro()
Dim listy()
ReDim listy(0)
For i = 3 To ActiveWorkbook.Sheets.Count
listy(UBound(listy)) = ActiveWorkbook.Sheets(i).Name
ReDim Preserve listy(UBound(listy) + 1)
Next
ReDim Preserve listy(UBound(listy) - 1)
Sheets(listy).Move
ActiveWorkbook.SaveAs "D:\Pokus.xls"
ActiveWorkbook.Close
End Sub

teoreticky by to mohlo jít i takto:

Sub Makro()
Dim listy()
ReDim listy(0)
For i = 3 To ActiveWorkbook.Sheets.Count
listy(UBound(listy)) = i
ReDim Preserve listy(UBound(listy) + 1)
Next
ReDim Preserve listy(UBound(listy) - 1)
Sheets(listy).Move
ActiveWorkbook.SaveAs "D:\Pokus.xls"
ActiveWorkbook.Close
End Sub

M@citovat

Caken(28.8.2010 9:44)#002321

Díky moc, funguje jak má :)citovat

Téma: Přesunutí listů

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje