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

• #14536 Delila_1 veterán lacipapi #14530

  Új Válasz 2012-08-02 14:28:42 #14536

  Ú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 lacipapi #14530 üzenetére

  Másik módszer a másolathoz:

  Sub Masolat()
  Dim WB As Workbook, FN As String
  Set WB = ActiveWorkbook
  FN = WB.Name
  Application.DisplayAlerts = False 'kérdés letiltása
  
  WB.SaveAs Left(FN, Len(FN) - 5) & "_másolat"
  
  Application.DisplayAlerts = True 'kérdés engedélyezése
  End Sub

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