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

• #48251 tgumis tag logitechh #48243

  Új Válasz 2022-01-14 14:35:24 #48251

  Ú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

  

  tgumis

  tag

  válasz logitechh #48243 üzenetére

  Hali
  Én összeraktam egyet. Egy régebbi txt t létrehozó makróból:
  Sub MegrendeloMunkalapMenteseMaskent()
Const sLJNév As String = "Megrendelő"
Dim sPath As String: sPath = ThisWorkbook.Path & "\"
Dim sFNév As String 'név helyének lefoglalása
Dim sNytsz As String 'OK kell
Dim sSzallito As String

Dim sDatum As String
Dim sUser As String





sNytsz = Worksheets("Megrendelő").Range("X1") 'név deklarálása
sSzallito = Worksheets("Megrendelő").Range("C8")

sDatum = Worksheets("Megrendelő").Range("C12")
sUser = Worksheets("Megrendelő").Range("X2")






Application.ScreenUpdating = False

With ThisWorkbook.Worksheets(sLJNév)
sFNév = "M_" & sNytsz & "_" & sSzallito & "_" & sDatum & "_" & sUser & "_" & Format(Now, "yyyymmddhhnnss") & ".xlsx"
.Copy
End With

With ActiveWorkbook
.SaveAs Filename:=sPath & sFNév, FileFormat:=xlWorkbookDefault, CreateBackup:=False
.Close SaveChanges:=False
End With

Application.ScreenUpdating = True
Range("A1").Select
End Sub

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