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

• #40095 Delila_1 veterán tgumis #40094

  Új Válasz 2019-01-30 07:45:34 #40095

  Ú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 tgumis #40094 üzenetére

  Sub Laponkent_Ment()
Dim utvonal As String, lap As Integer, nev As String

utvonal = ActiveWorkbook.Path & "\"
For lap = 1 To Sheets.Count
nev = Sheets(lap).Name
Sheets(lap).Copy
ActiveWorkbook.SaveAs Filename:=utvonal & nev & ".xlsx"
ActiveWindow.Close
Next
End Sub

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