Do not update range if cell is not empty

[JILBO]

Howdi,

Have this code to Add the date and time into column C when the 'Change Number' cell is changed.

However i don't want this to update if there is already a date in column C...im stumped!

Hope you can help

Private Sub Worksheet_Change(ByVal Target As Range)Dim r As Range, Intersection As Range, cell As Range
    Set r = Range("ChgTBL[Change Number]")
    Set Intersection = Intersect(r, Target)


    If Intersection Is Nothing Then Exit Sub


    Application.EnableEvents = False
        For Each cell In Intersection
            Range("C" & cell.Row).Value = Date + Time
            Range("D" & cell.Row).Value = Application.UserName
        Next cell
    Application.EnableEvents = True




End Sub

[arnelgp]

Private Sub Worksheet_Change(ByVal Target As Range)Dim r As Range, Intersection As Range, cell As Range
    Set r = Range("ChgTBL[Change Number]")
    Set Intersection = Intersect(r, Target)




    If Intersection Is Nothing Then Exit Sub




    Application.EnableEvents = False
        For Each cell In Intersection
		If Len(Range("C" & cell.Row) & "") = 0 Then
            		Range("C" & cell.Row).Value = Date + Time
		End If
		If Len(Range("D" & cell.Row) & "") = 0 Then
            		Range("D" & cell.Row).Value = Application.UserName
		End If
        Next cell
    Application.EnableEvents = True
End Sub

[JILBO]

Thankyou Arnelgp! that works perfectly!!

Just another thing i've noticed is it records a change event when the table is expanded or when you just click in the Change Number column. Is there a way to not run the event until a value greater than 0 is added?

[arnelgp]

the event wil Fire whenever you change any cell in the worksheet
regardless if it is numeric or string that you add/edit .

[JILBO]

Ah ok, thanks for support and responses. Its working great