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

MS Excel

Téma: kopirovanie harku do noveho suboru

Zaslal/a frantilopa 7.4.2016 12:34

Zdravim Vas.
Vie mi niekto pomoct prosim?

Mam excel subor kde je viac harkov...
Ale pre archyvaciu by som potreboval makro, kde po stlaceni tlacitka v harku1 sa mi vytvori novy subor a do neho sa ulozi len ten jeden doticny harok1 tak ako je aj so vzorcami. (pred konecnym ulozenim by sa ma to opytalo ako sa ma excel subor volat).

Vopred Vam dakujem za pomoc.
Dik. F.

Zaslat odpověď >

---

elninoslov(7.4.2016 14:33)#031021

Sub KopirujList()
Dim Subor As String, isF, bCalc
With Application
bCalc = .Calculation
.ScreenUpdating = False: .Calculation = xlCalculationManual
ThisWorkbook.Worksheets("Hárok1").Copy
With .FileDialog(msoFileDialogSaveAs)
isF = .Show
If isF <> 0 Then
Subor = .SelectedItems(1)
With ActiveWorkbook
.SaveAs Filename:=Subor, FileFormat:=xlOpenXMLWorkbook
.Close
End With
Else
ActiveWorkbook.Close False
End If
End With
.ScreenUpdating = True: .Calculation = bCalc
End With
End Sub
alebo
Sub KopirujList()
Dim Subor, bCalc
With Application
bCalc = .Calculation
.ScreenUpdating = False: .Calculation = xlCalculationManual
ThisWorkbook.Worksheets("Hárok1").Copy
Subor = .GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, fileFilter:="Excel súbor (*.xlsx), *.xlsx")
With ActiveWorkbook
If Subor <> False Then .SaveAs Filename:=Subor, FileFormat:=xlOpenXMLWorkbook
.Close False
End With
.ScreenUpdating = True: .Calculation = bCalc
End With
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse