Cellen kopieren van ene naar andere werkblad

[Markexc]

Goedendag, ik heb een tijdje terug een VBA cursus gevolgd maar als je dan zelf aan de slag moet is het opeens een stuk lastiger

Ik heb een bestand (zie bijlage) waarbij ik als er een bepaalde waarde in Kolom E is ingevuld dat de regel A t/m F automatisch naar een ander tabblad geknipt en geplakt moet worden. De regel A t/m F in het originele tabblad moet dan verwijderd worden en bouw dan een historie op in het andere tabblad.

Zou iemand mij op weg kunnen helpen?

 

[SjonR]

als je deze in achter je tabblad "Zieken"zet, moet het volgens mij gaan zoals je wilt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 And Target.Row > 4 And Target.Value <> "" Then
    Application.EnableEvents = False
        With Sheets("Historie")
            x = .Range("A" & Rows.Count).End(xlUp).Row + 1
                .Cells(x, 1).Resize(, 6).Value = Cells(Target.Row, 1).Resize(, 6).Value
        End With
        Cells(Target.Row, 1).Resize(, 6).Delete xlShiftUp
        Application.EnableEvents = True
    End If
End Sub

 

[Markexc]

Super bedankt!! Het werkt.