Tracking First date of the entry and the date of last change

[MedExcels]

Hi

I have this code (joined below to this post) to track the date entry of the invoice
When I enter the Number of the invoice for the first time in coloum B, the date of the entry will appear in the column G
There is a problem there
Assume that after two days I find that I make an error when i enter the InvoiceN° , so when I correct it , the date in column G will change
My Question Is
Is the any solution to maintain the first date entred in column G to track the date when I enter for the first time the invoice and at every change of the Invoice number Excel will return in column H the date of last change made
Thank you very muchhhhhhh The file is in this Link http://www.cjoint.com/c/GJvlGZVpk1Q Thanksssssssssssssssssssssssssssssssssssssssssssssssssssssssss

<colgroup><col span="6"></colgroup><tbody>
</tbody>

 

[MedExcels]

Any Solution?????????

 

[NoSparks]

If I understand what you want try this...

Private Sub Worksheet_Change(ByVal Target As Range)

If  Target.Column <> 2 Or Target.Value = "" Then Exit Sub

On Error GoTo Handler
Application.EnableEvents = False

    If Target.Offset(0, 5) = "" Then
        Target.Offset(0, 5) = Format(Now(), "dd-mm-yyyy hh:mm:ss")
    Else
        Target.Offset(0, 6) = Format(Now(), "dd-mm-yyyy hh:mm:ss")
    End If

Handler:
Application.EnableEvents = True

End Sub

 

[MedExcels]

If I understand what you want try this...

Private Sub Worksheet_Change(ByVal Target As Range)

If  Target.Column <> 2 Or Target.Value = "" Then Exit Sub

On Error GoTo Handler
Application.EnableEvents = False

    If Target.Offset(0, 5) = "" Then
        Target.Offset(0, 5) = Format(Now(), "dd-mm-yyyy hh:mm:ss")
    Else
        Target.Offset(0, 6) = Format(Now(), "dd-mm-yyyy hh:mm:ss")
    End If

Handler:
Application.EnableEvents = True

End Sub

Very niceeeeeee thanksssss