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

• #30168 coldfirexx tag coldfirexx #30167

  Új Válasz 2016-01-18 10:13:47 #30168

  Ú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

  

  coldfirexx

  tag

  válasz coldfirexx #30167 üzenetére

  Kivételesen most magamnak válaszolom meg, de hátha másnak is jól jön:

  Sub Mentes_maskent()

  fileSaveName = Application.GetSaveAsFilename( _
  fileFilter:="Excel Files (*.xlsm), *.xlsm")

  If fileSaveName <> False Then
  ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
  End If

  End Sub

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