Automatisch Fixed datum toevoegen aan cel

Status
Niet open voor verdere reacties.
W

WVR132

Gebruiker
Lid geworden
25 sep 2017
Berichten
10
Beste forumleden,

Ik heb een stuk VBA code dat er voor zorgt dat als ik in kolom A (iets) invoer de datum van vandaag in kolom B zelfde regel wordt geplaatst.
Nu wil ik eigenlijk dat de waarde die ik in een Cel in Kolom A invoer bepaald of de datum in Kolom B wordt ingevoerd of niet. Bijvoorbeeld De waarde "Completed"

Ik heb verschillende pogingen gewaagd en gezocht, maar ik kom er niet uit.
Ik hoop dat jullie mij verder kunnen helpen. Zie help bestand. Bekijk bijlage Helpmij voorbeeld Datum in cel.xlsm

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End Sub
 
doet deze jou taak
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Value = "completed" Then
Target.Offset(, 1).Value = Date
End If
Target.Resize(1, 2).EntireColumn.AutoFit

End If
End Sub
 
Gebruik svp code tags en bepaalt in de derde persoon tegenwoordige tijd.
 
@JeanPaul28
Super bedankt! Dit doet precies wat ik wil.

@SNB
Ik zal er de volgende keer op letten, ook bedankt voor de Nederlandsche les.
 
Blijkbaar zijn inspringpunten nogal duur

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("A:A")) Is Nothing Or Target.Count > 1 Then Exit Sub
  Target.Offset(, 1) = IIf(LCase(Target.Value) = "completed", Date, "")
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan