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

• #14538 Delila_1 veterán Delila_1 #14536

  Új Válasz 2012-08-02 14:46:17 #14538

  Ú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 Delila_1 #14536 üzenetére

  Javítás:

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

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