• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse