Van blad1 of blad2 verhuizen

[PJurriaans Sr]

Hallo, kan iemand mij helpen met het volgende probleem.
In excel heb in map geopend met drie bladen.

heb toen met de tab van blad2 een balans ingevoegd en gekopieerd naar blad3

in blad1 heb ik een 20tal rijen met gegevens in 6 kolommen met kolom E codes.

Ik probeer daarvoor procedure te schrijven die de onderste rij aan de hand
van de codes naar de onderste rij van blad1 of blad3 verhuist.

Is er iemand die mij kan helpen??Mvg Peter

 

[PJurriaans Sr]

van blad naar blad met code plaatsen

Hallo lezer dezes.Ik heb het probleem opgelost met onderstaande procedure's
Ik moot dat nog voor 17 andere codes doen maar het werkt:thumb:MvgPeter.

[HTML] Sheets(1).Select
    Range("A" & Rows.Count).End(xlUp).Offset(, 5).Select
 If ActiveCell.Value = 869000 Then
    DIVERS
 End If
 If ActiveCell.Value = 144123 Then
    HUUR
End Sub
Sub DIVERS()
    Range("A" & Rows.Count).End(xlUp).EntireRow.Copy
    Sheets(2).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
    Sheets(2).Range("A" & Rows.Count).End(xlUp).Offset(2).EntireRow.Insert
    Sheets(1).Rows(Sheets(1).UsedRange.Rows.Count).EntireRow.Delete

End Sub

Sub HUUR()
    Range("A" & Rows.Count).End(xlUp).EntireRow.Copy
    Sheets(3).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
    Sheets(3).Range("A" & Rows.Count).End(xlUp).Offset(2).EntireRow.Insert
    Sheets(1).Rows(Sheets(1).UsedRange.Rows.Count).EntireRow.Delete

[/HTML]