Telefonszámunk: 1-472-0679

[Resolved] Excel to excel

Kezdőlap Fórumok Excel programozás [Resolved] Excel to excel

Topic Resolution: Resolved

Ennek a témakörnek tartalma 4 hozzászólás, 2 résztvevő. Utolsó frissítés:  ben 3 hónapja telt el.

5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • #6231

    ben
    Felhasználó

    Sziasztok!

    Abban szeretnék segítséget kérni, hogy adott egy excel makro amit keszitettem. Ez a makro egy formanyomtatvany amit mindig kitoltve emailben kuldi az aktualis oldalrol a pdf-et! Viszont szuksegem lenne minden egyes Kikuldesnel, hogy adatokat emeljen at egy masik excelbe, hogy lehessen nyomon kovetni mibol mennyi meg hova lett kikuldve, tehat bizonyos cellak tartalmat kellene atemelnie minden makro inditasanal (gombnyomaskor).
    Valaszokat elore is koszi!

    udvozlet!

    #6232

    Titok
    Felhasználó

    A makró végére beírod, hogy nyissa meg a célfájlt
    vélassza ki a célsheet-et
    keresse meg az utolsó sort/sört/bort
    utolsó+1-be írja be az adatokat.
    Mentse a fájlt,
    zárja be a fájlt

    #6239

    ben
    Felhasználó

    Igen, igy tiszta ahogy leirod, csak a kodban kellene segitseg, mert eleg kezdő vagyok…

    #6241

    Titok
    Felhasználó

    ‘ha ugyanabba a mappában van:
    wb = ActiveWorkbook.Path
    wbn = wb & “\Celfajl.xlsx”
    ‘ha máshol van írd be, hogy wbn=”X:\valami\valami\Celfajl.xlsx”
    ‘Megnyitod a fájlt:
    Workbooks.Open Filename:=wbn
    ‘élesíted a lapot:
    Sheet(“Céllap”).select
    ‘Megkeresed az utolsó sort az A oszlopban:
    utolso = Cells(Rows.Count, “A”).End(xlUp).Row
    ‘beadod a célcellát egy változónak:
    celcell=”A” & (utolso+1)
    ‘most kimásolod a cellát az alapfájlodból:
    Windows(“Alapfajl.xlsx”).Activate
    Cells(i,j).select
    Selection.copy
    ‘ visszagyalogolsz a célfájlba:
    Windows(“Celfajl.xlsx”).Activate
    Bemásolod értékként:
    Range(celcell).select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    ‘mented a fájlt
    ActiveWorkbook.SaveAs wbn
    ‘Bezárod a fájlt
    ActiveWindow.Close

    #6242

    ben
    Felhasználó

    Köszönöm szépen a segítséget!

5 bejegyzés megtekintése - 1-5 / 5

Be kell jelentkezni a hozzászóláshoz.