2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    IT café

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #14688 csferke senior tag Delila_1 #14687
    Új Válasz #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. :R
    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 :F
    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

    [ Szerkesztve ]

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