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

• #23085 Fferi50 Topikgazda Wyll #23084

  Új Válasz 2014-09-03 17:21:55 #23085

  Ú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

  

  Fferi50

  Topikgazda

  válasz Wyll #23084 üzenetére

  Szia!

  Van egy dolog, amire még oda kell figyelni: Ha nem választanak, akkor nem fog a mentésed lefutni.
  Ezért ezt a részt egy kicsit módosítani kell:

  With fd
  
  .InitialFileName = Range("gyariszam") & "_jegyzokonyv"
  .FilterIndex = 2 'xlsm, azaz makróbarát munkafüzetként
  ---------
  .Show
  .Execute
  ----------
  helyett
  if show=-1 then
  .execute
  else
  msgbox "Nem választottál, a mentés nem történt meg!",vbinformation
  endif
  End With

  Ha mindenképpen kell, hogy legyen mentés, akkor figyelned kell, hogy megtörtént-e. Amennyiben nem, úgy meg kell ismételtetni.

  Üdv.

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