makro kodu

[Pırıl...]

Merhaba üstadlar
https://dosya.co/hazbi6dnti96/Kitap1.xlsx.html
ekteki dosya örneğine göre koda ihtiyacım var yardımlarınızı rica etsem şimdiden teşekürler

 

[YUSUF44]

Aşağıdaki kodları Sayfa2'nin kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırın. C2:C1000 aralığına veri girip deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("Sayfa1")
son1 = s1.Cells(Rows.Count, "A").End(3).Row
If Intersect(Target, Range("C2:C1000")) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target = "" Then
    Cells(Target.Row, "M") = ""
    Exit Sub
ElseIf WorksheetFunction.CountIf(s1.Range("A1:A" & son1), Target) = 0 Then
    MsgBox Target & " Sayfa1'de bulunmamaktadır.", vbCritical
    Target.Select
Else
    Cells(Target.Row, "M") = WorksheetFunction.VLookup(Target, s1.Range("A1:B" & son1), 2, 0)
End If
End Sub

 

[Pırıl...]

tşk ederim hocam elinize sağlık