kolommen automatisch vullen in een ander tabblad bij een bepaalde waarde

[buurman90]

Goededag,

Ik heb een vraag: Ik ben bezig met een bepaald overzicht (zie test bestand). Ik wil dat als in het eerste tabblad kolom "S" is gevuld met een datum dat dan automatisch een aantal kolommen van die regel gekopieerd worden naar tabblad 2.

Vanuit tabblad 1 moet kolom B gekopieerd worden aar kolom A, Kolom C naar kolom B, Kolom D naar Kolom C, Kolom E naar Kolom D, Kolom J naar Kolom F, Kolom T naar Kolom G, Kolom S naar Kolom J en Kolom U naar Kolom L.

Ik heb geen idee of dit mogelijk is. Ik ben nog een beste noob als het gaat om excel.

Mochten er nog vragen zijn, dan hoor ik dat graag.

Groet, Sven

 

[HSV]

Bv.

In werkbladmodule van blad1.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 19 And Target.Row > 1 And IsDate(Target) Then
  With Target
    Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 12) = Array(Cells(.Row, 2), Cells(.Row, 3), Cells(.Row, 4), Cells(.Row, 5), "", Cells(.Row, 10), Cells(.Row, 20), "", "", CDate(Cells(.Row, 19)), "", Cells(.Row, 21))
  End With
End If
End Sub