Keresés

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

  • Fferi50

    Topikgazda

    válasz Thrawnad #24391 üzenetére

    Szia!

    Akkor most nem egészen értem:
    "Sőt ha kézzel csinálom akkor is ez van hogy mentek, mentek másként, bezárok.
    Így létrejön, és be is veszi az SAP és már hibát sem kapok :D
    Csak a végét kellene automatizálni."

    Ezt amit kézzel csinálsz megoldja egy pár sor a makróban:
    Activeworkbook.Save
    Activeworkbook.SaveAs filename:=név, fileformat:=forma
    Activeworkbook.Close False

    Ezzel bezártad a fájlod.

    Ha csak az aktív munkalap A oszlopát akarod kitenni egy fájlba, akkor viszont:

    Activesheet.Copy ' ezzel az adott munkalapot egy új munkafüzetbe másolod, ami azonnal aktív is lesz.
    Activesheet.Usedrange.Offset(0,1).ClearContents 'az A oszlopon kívüli adatok törlése
    Activeworkbook.SaveAs filename:=név, fileformat:=forma 'elmented
    Activeworkbook.Close False

    Ezek után ismét az eredeti munkafüzeted lesz az aktív munkafüzet. Csinálhatsz benne bármit, amit szeretnél.

    Üdv.

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

Hirdetés