VLookup görev yapmıyor, neden olabilir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Alan = Range("A5:B7")
    If Intersect(Target, [G5:G10000]) Is Nothing Then End
    If Target = "" Then
        Target.Offset(0, 1) = ""
      Else
        Target.Offset(0, 1) = Date
        Target.Offset(0, 2) = WorksheetFunction.VLookup(Target.Offset(0, 0), Alan, 2, 0)
    End If
End Sub

Bu çalışmada düşeyara görev yapamıyor, neden olabilir?
Saygılarımla

 

[EmrExcel16]

Deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Alan = Range("A5:B7")
    If Intersect(Target, [G5:G10000]) Is Nothing Then End
    Application.EnableEvents = False
    If Target = "" Then
        Target.Offset(0, 1) = ""
      Else
        Target.Offset(0, 1) = Date
        Target.Offset(0, 2) = WorksheetFunction.VLookup(Target.Offset(0, 0), Alan, 2, 0)
    End If
    Application.EnableEvents = True
End Sub

 

[Tevfik_Kursun]

Sayın EmrExcel16 Hocam,
Çok teşekkür ederim.
Saygılarımla

 

[EmrExcel16]

Tevfik Bey, rica ederim saygı bizden iyi çalışmalar..