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

• #14688 csferke senior tag Delila_1 #14687

  Új Válasz 2012-08-21 17:31:44 #14688

  Ú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

  

  csferke

  senior tag

  válasz Delila_1 #14687 üzenetére

  Delila!
  Köszönöm a gyors reagálást, segítséget.
  Az eddigi próbálkozásaimból hiányzott az ActiveSheet.Copy

  Picit azért én is "komplikáltam" az egészen.
  Sub LapotMent()
  ' Ctrl + w
  ChDir "C:\Users\Ferke\Desktop\XX"
  Do
  fName = Application.GetSaveAsFilename(fileFilter:="Excel Workbook (*.xlsx), *.xlsx")
  Loop Until fName <> False
  ActiveSheet.Copy
  'ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=51, CreateBackup:=False
  ActiveSheet.SaveAs Filename:=fName, FileFormat:=51, CreateBackup:=False
  End Sub

  Ha nincs ez a sor akkor nem tesz kiterjesztést az újonnan létrehozott file után.
  fName = Application.GetSaveAsFilename(fileFilter:="Excel Workbook (*.xlsx), *.xlsx")

  Az ActiveWorkbook.SaveAs... és az ActiveSheet.SaveAs... ugyanazt eredményezi.

  Lehetne még automatizálni az egészen csak sajna meghaladja a képességemet
  Nem is kellene bekéretni az fName-t ha meg tudnám oldani, hogy a kiírandó aktív lap A17 és K7-es cellájában szereplő adatok adják az fName-et. Valahogy így &A17+"-"+&K7

  üdvözlettel

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