53994_ukol.zip
Nejjednodušší to asi bude, když si zaznamenáte makro s tím, že si odstraníte veškerý obsah mimo A1:H12 a nakonec přidáte
-------------------------------------------------------------
ThisWorkbook.Worksheets("VYSLEDEK").Copy
With ActiveWorkbook
With .Worksheets(1)
R = .Cells(.Rows.Count, "A").End(xlUp).Row
With .UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
.Resize(.Rows.Count - R + 1).Offset(R, 0).EntireRow.Delete Shift:=xlUp
End With
.Buttons(Array("Button 1")).Delete
End With
Application.DisplayAlerts = False
.SaveAs "C:\parta 1.xlsx", xlOpenXMLWorkbook
Application.DisplayAlerts = True
.Close False
End With
------------------------------------------------------
Jen ta cesta vede na disk C:, protože jste jí neuvedl a jestli to chcete vždy do stejné složky, ať se jmenuje, jak se jmenuje, tak to bude otázka na zkušenější. A podotýkám, že to není z mé hlavy, ale od uživatele Elninoslov, já se taky jen učím.citovat
-------------------------------------------------------------
ThisWorkbook.Worksheets("VYSLEDEK").Copy
With ActiveWorkbook
With .Worksheets(1)
R = .Cells(.Rows.Count, "A").End(xlUp).Row
With .UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
.Resize(.Rows.Count - R + 1).Offset(R, 0).EntireRow.Delete Shift:=xlUp
End With
.Buttons(Array("Button 1")).Delete
End With
Application.DisplayAlerts = False
.SaveAs "C:\parta 1.xlsx", xlOpenXMLWorkbook
Application.DisplayAlerts = True
.Close False
End With
------------------------------------------------------
Jen ta cesta vede na disk C:, protože jste jí neuvedl a jestli to chcete vždy do stejné složky, ať se jmenuje, jak se jmenuje, tak to bude otázka na zkušenější. A podotýkám, že to není z mé hlavy, ale od uživatele Elninoslov, já se taky jen učím.citovat
a i s popisem 
RSS nejnovější články