Date Stamp with IfStament

[uclc1922]

I would like to put a Date Stamp in G:G IF A:A or B:B = 1


Bellow is what I have so far.... Thank You greatly in advance...


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
With Cell
If .Column = Range("A:a").Column Then
Cells(.Row, "F").Value = Int(Now)
End If
End With
Next Cell
End Sub

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
For Each c In Target
    If c.Column = 1 Or c.Column = 2 Then Range("G" & c.Row).Value = Date
Next c
Application.EnableEvents = True
End Sub

 

[uclc1922]

Thank You this works great ! Can you help me in one more time? Cells a3:b32 will only ever have a 1 or be "" can the code be written to date stamp f3:f32 if a3:b32 contain the number 1 and to delete the date stamp if the number 1 is deleted?

Thanks In Advance

 

[VoG]

Perhaps

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
For Each c In Target
    If c.Column = 1 Or c.Column = 2 Then
        If c.Value = "" Then
            Range("F" & c.Row).ClearContents
        Else
            Range("F" & c.Row).Value = Date
        End If
    End If
Next c
Application.EnableEvents = True
End Sub

 

[uclc1922]

This is awesome, you saved the day! Thank You Vog!