Hirdetés

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

  • bela85

    aktív tag

    Egy újabb kérdés.. mivel makróban nem vagyok teljesen otthon...

    Adott egy excelben levő nyomtatvány a munka1 lapon.. a B3 mezőbe szeretném a nevet írni, de úgy, hogy makróval a másik lapról a B2-tól ameddig van töltve az oszlop.

    Makrórögzítővel elkezdtem (mivel leprogramozni nem tudom), frankón működik, de kéne bele egy for ciklus ami végigmegy a munka2 lap B2 cellájrától, hogy meddig van töltve a B oszlop.. és ismétli a makrot. :)

    Tudna valaki segíteni benne?

    Köszönöm előre is!

        Sheets("Munka1").Select
        Range("B3").Select
        Selection.ClearContents
        Sheets("Munka2").Select
        Range("B2").Select
        Selection.Copy
        Sheets("Munka1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        
        Sheets("Munka1").Select
        Range("B3").Select
        Selection.ClearContents
        Sheets("Munka2").Select
        Range("B3").Select
        Selection.Copy
        Sheets("Munka1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        ActiveWindow.SelectedSheets.PrintOut Copies:=1

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