Cellen kopieren met VBA

[Roma]

Beste specialisten,

Ik heb een bestandje waarin cellen moet worden gekopieerd.
Wanneer in kolom F (eigenlijk kolom V)een datum wordt ingegeven moeten kolom C en E automatisch worden gekopieerd worden naar tabblad Somatiek. In kolom E staat een formule deze moet ook mee gekopieerd worden.

Wie weet de oplossing voor mij
Alvast besankt

 

[HSV]

Als je alleen de kolommen C en E kopieert, heb je niets aan de formule van E, daar F ontbreekt.

Misschien ben je hier tevreden mee.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tb As Range
Application.EnableEvents = False
 If Target.Column = 6 And Target.Row > 3 Then
   If Target <> "" Then
     Set tb = Target
     Set tb = Union(tb, Target.Offset(, -3), Target.Offset(, -1))
     tb.Copy
     Sheets("Somatiek").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteAll
     Application.CutCopyMode = False
   End If
 End If
Application.EnableEvents = True
End Sub

 

[Roma]

Beste Harry,
Hier kom ik een heel eind verder mee. Bedankt.

 

[VenA]

Zonder te kopiëren en plakken. Of het helemaal op de goede plek neergezet wordt weet ik niet. Bij mij begint een sheet altijd in A1:d

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 And Target.Row > 3 Then
    If Target <> "" And Target.Offset(, -3) <> "" Then
        Sheets("Somatiek").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3) = Array(Target.Offset(, -3), "=DATEDIF(RC[1],TODAY(),""y"")", Target)
    End If
End If
Application.EnableEvents = True
End Sub