Satırdaki değişikliği nasıl anlar?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
G:M arasında G5 ten itibaren giriş yapılan bir çalışmada G sütununa tip numarası yazıldığında, aynı satırda H hücresine tarih, I hücresine de üst satırdaki sayı ve J hücresine ise diğer sayfadaki karşılığı geliyor.
Burada I hücresindeki sayı değiştirildiğinde de bu sayıya karşı gelen ismi getirmek için sayfa altındaki makroya nasıl bir ekleme yapmalıyım?
Saygılarımla

 

[YUSUF44]

Aşağıdaki gibi dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    
    On Error Resume Next
    Set a = Sheets("Sayfa1")
    Set b = Sheets("Sayfa2")
    Alan = b.Range("F5:I14")

    If Intersect(Target, [G5:G8]) Is Nothing Then GoTo 10
    If Target = "" Then
        Target.Offset(0, 1) = ""
    Else
        Target.Offset(0, 1) = Date
        Application.ScreenUpdating = False
            Target.Offset(0, 2) = Target.Offset(-1, 2)
        Application.ScreenUpdating = False
        Target.Offset(0, 3) = WorksheetFunction.VLookup(Target.Offset(-1, 2), Alan, 4, 0)
    End If
    If [I65536].End(xlUp) = "" Then
        [I65536].End(xlUp) = WorksheetFunction.VLookup([I65536].End(xlUp), Alan, 4, 0)
    End If
10:
    If Intersect(Target, [I5:I8]) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Offset(0, 1) = ""
    Else
        Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, Alan, 4, 0)
    End If
End Sub

 

[Tevfik_Kursun]

Sayın Yusuf44 Hocam,
İlginize çok teşekkür ederim.
Saygılarımla