Datum in A na invulling B

[robdgr]

De bijlage is een klein uittreksel uit een groter bestand.
Na lang zoeken vond ik

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A" & Rows.Count).End(xlUp) = Date
End Sub

Ik wil eigenlijk dat die datum in kolom A komt, als er een getal in kolom B komt, maar krijg dat niet voor elkaar.

Alvast dank

 

[SjonR]

probeer deze eens:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count = 1 And Target.Column = 2 Then Target.Offset(, -1) = Date
End Sub

 

[robdgr]

Sjon,

Dank. Er gebeurt nu in de tabel wat ik wil dat er gebeurt.

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Column = 2) * (Target.Count = 1) * IsNumeric(Target) Then Target.Offset(, -1) = Date
End Sub

 

[robdgr]

SNB,

Ook dank. Ik bedacht me te laat dat het handiger was om bij de datum van de voorgaande cel in A het getal 1 op te tellen voor de volgende datum:

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Column = 2) * (Target.Count = 1) * IsNumeric(Target) Then Target.Offset(, -1) = Target.Offset(-1, -1) + 1
End Sub

Dat gebeurt met deze bescheiden aanpassing.

 

[snb]

Maar of dat wel altijd het beoogde resultaat geeft ..... ?

 

[robdgr]

@snb: Klopt, het is niet altijd een opvolgende reeks omdat het gaat om een waarneming per dag, die een enkele keer wel eens wordt vergeten. Maar dan kan ik handmatig een aanpassing maken.