Soru Düşeyara makrosunu kendime uyarlamak istiyorum

[policeman]

Merhaba ..
Düşeyara formülünün makro halini içeren bir makro buldum, kendime uyarlamak istedim ama başaramadım. Boyalı alana istediğim sonucu getirmek istiyorum; yardımcı olabilirseniz sevinirim ..
Saygılarımla ..

 

[policeman]

Yardımcı olabilirmisiniz?

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları kullanın.

Sub AraBul()
    Dim syfData As Worksheet, syfNotlar  As Worksheet
    Dim Bak As Long
    Dim Bul As Range
    
    Set syfData = Sheets("Data")
    Set syfNotlar = Sheets("Notlar")
    
    For Bak = 3 To syfData.Cells(Rows.Count, "I").End(3).Row
        Set Bul = syfNotlar.Range("J:J").Find(syfData.Cells(Bak, "I"), LookAt:=xlWhole)
        If Bul Is Nothing Then
            syfData.Cells(Bak, "P").ClearContents
        Else
            syfData.Cells(Bak, "P") = syfNotlar.Cells(Bul.Row, "K")
        End If
    Next
End Sub

 

[policeman]

Teşekkürler hayırlı akşamlar..

 

[Muzaffer Ali]

Rica ederim. Hayırlı akşamlar.