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

• #23084 Wyll őstag Fferi50 #23024

  Új Válasz 2014-09-03 16:58:22 #23084

  Ú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

  

  Wyll

  őstag

  válasz Fferi50 #23024 üzenetére

  Szia!

  Először is, nem vagyok vba guru, egyáltalán nem tanultam vba programozást
  Ennek ellenére azt hiszem sikerült összehozni:

  Sub sajatmentes()
  Dim fd As FileDialog
  
  Set fd = Application.FileDialog(msoFileDialogSaveAs)
  
  With fd
  
  .InitialFileName = Range("gyariszam") & "_jegyzokonyv"
  .FilterIndex = 2 'xlsm, azaz makróbarát munkafüzetként
  .Show
  .Execute
  
  End With
  
  Set fd = Nothing
  End Sub

  Hogy tetszik?
  Szerinted is jó és megfelelő az eredeti célra?

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