Ez a makró, amit bemásoltál, a Munka1 B4, B6 és B8 celláit másolja a Munka2 E, F és G oszlop elsõ üres sorába, majd a Munka1 lap A4, A6 és A8 celláit törli.
Te ezt írtad: A Munka1 A4, A6, A8 cellák értékeit másolja a Munka2 meghatározott helyére, sorokba, mindig az új üres sorba, majd törli a Munka1 A4, A6, A8 cellák értékeit.
Azt a makrót, amit most adok meg, a Munka1 laphoz kell rendelned. A lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztõbe, a jobb oldali üres lapra másold be. Feltételezem, hogy a 3 adatot egymás után adod meg, utoljára az A8 értékét. Amikor ezt megadod, indul a makró. Megnézi, hogy az A1 értéke nagyobb-e 1-nél. Ha igen, másolja az A4, A6 és A8 értékeit a Munka2 lapra, és törli a Munka1 lapon ezt a 3 cellát. 1, vagy 1-nél kisebb érték esetén minden marad, ahogy volt.
Private Sub Worksheet_Change(ByVal Target As Range)