< návrat zpět

MS Excel


Téma: kopirovanie harku do noveho suboru rss

Zaslal/a 7.4.2016 12:34

frantilopaZdravim 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ěď >

#031021
elninoslov
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 Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Chyba ve vzorci

Jiří497 • 17.8. 22:10

Kopirovanie riadkov 1

elninoslov • 17.8. 20:19

Chyba ve vzorci

lubo • 17.8. 17:37

Chyba ve vzorci

Jiří497 • 17.8. 16:52

Kopirovanie riadkov 1

elninoslov • 17.8. 1:15

Kopirovanie riadkov 1

danis • 16.8. 23:13

Autom. podmienené vloženie obrázku + ulož. v PDF

Zdeno-Frano • 16.8. 22:23