MS Excel

Téma: Uložení neaktivního listu do xlsx (makro)

Zaslal/a PavelJ 10.10.2022 11:18

Poradíte mi prosím s makrem pro uložení neaktivního listu do klasického xlsx? Našel jsem tohle, ale to je jen pro aktivní list.

Sub SaveSheet()
ActiveSheet.Copy
With ActiveSheet.UsedRange
.Copy
.PasteSpecial xlValues
.PasteSpecial xlFormats
End With
Application.CutCopyMode = False
ActiveWorkbook.SaveAs "C:\Users\JB\Desktop\novy.xlsx"
End Sub

Děkuji za ochotu.

Zaslat odpověď >

Strana: « předchozí 1 2

elninoslov(10.10.2022 18:45)#053599

OK, tak skúste toto. Vymaže prebytočné riadky za posledným vyplneným riadkom podľa "A"
Sub SaveSheet()
Dim R As Long
ThisWorkbook.Worksheets("Hárok3").Copy
With ActiveWorkbook
With .Worksheets(1).UsedRange
.Value = .Value
R = .Parent.Cells(Rows.Count, "A").End(xlUp).Row
.Resize(.Rows.Count - R + 1).Offset(R, 0).EntireRow.Delete Shift:=xlUp
End With
Application.DisplayAlerts = False
.SaveAs "e:\Download\novy.xlsx", xlOpenXMLWorkbook
Application.DisplayAlerts = True
.Close False
End With
End Subcitovat

PavelJ(11.10.2022 7:37)#053603

Elninoslave, máš můj velký obdiv! Moc děkuju. Kéž bych uměl alespoň procento toho, co ty:-)citovat

Strana: « předchozí 1 2

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.