Új hozzászólás Aktív témák

• #39504 Delila_1 veterán gaben86 #39497

  Új Válasz 2018-10-31 07:18:48 #39504

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz gaben86 #39497 üzenetére

  Modulba másold a makrót, majd rendeld a gombodhoz.

  Sub Masolas()
Dim utvonal As String, FN As String

utvonal = ThisWorkbook.Path & "\"
FN = Sheets("Munka1").Range("L1")
Range("A1:N55").Copy
Workbooks.Add
Sheets(1).Range("A1").PasteSpecial xlPasteValues
Sheets(1).Range("A1").PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs Filename:=utvonal & FN & ".xlsx"
ActiveWorkbook.Close
End Sub

Új hozzászólás Aktív témák