Hozzászólás: Change esemény

Szia!

A leírásodból úgy tűnik, hogy nem 2 füzetről, hanem 1 füzetben lévő 2 lapról van szó.
Nem tenném Change eseménybe, mert akkor minden beírásnál lefut a laphoz rendelt makró. Inkább egy modulba másolnám a lenti makrót, amit pl. úgy indíthatsz, hogy az F8 funkcióbillentyű hatására megjelenő ablakban kiválasztod a Masolas nevűt, vagy kiteszel a Munka1 lapra egy gombot, amihez hozzá rendeled (jobb klikk) a makrót.

Bemásolás: Alt+F11-gyel belépsz a VB szerkesztőbe. Bal oldalon kiválasztod a füzetedet, majd Insert menü, Module. A jobb oldalon kapott nagy fehér felületre másolsz.

Sub Masolas()
    Dim usor As Integer, sorIde As Long
    
    sorIde = Sheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row
    If sorIde > 1 Then sorIde = sorIde + 1
    
    Sheets("Munka1").Select
    Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets("Munka2").Range("A" & sorIde)
End Sub

Indítás előtt írd át a Munka1 és Munka2 lapneveket minden előfordulásuknál a saját lapjaid nevére. Ez a makró a Munka1-ről másol a Munka2-re.

Üdv,
Kati