Hücredeki değeri üç sütundaki hücrelerde arayıp, bulunduğu satır numaralarını yazma

[Tevfik_Kursun]

Merhaba Arkadaşlar,
C, D, E sütunlarında örneğin C5:E20 aralığında bulunan hücrelerde J1 de olan varsa o satır numarasını J5 ten itibaren sıralasın istiyorum.
Örnek dosyada fonksiyon ile çözümü var, benim makro ile çözüme ihtiyacım var. Yardımcı olursanız sevinirim. satır sayısı on binin üzerine çıkınca yaptığım eklemeler bekletiyor.
Saygılarımla
Aşağıdaki bağlantı sayın Yusuf44 hocamın bu sabah benzer konudaki tek sütun için yaptığı çalışmadır. (Bir kere daha teşekkür ederim.)
https://excel.web.tr/threads/suetun...n-satir-numarasini-bulma.181726/#post-1001227

 

[Tevfik_Kursun]

Hepinize teşekkür ederim. İyi ki varsınız, iyi ki bu siteyi kurmuşsunuz ve devam ettiriyorsunuz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E1]) Is Nothing Then Exit Sub
    son = WorksheetFunction.Max(Cells(Rows.Count, "A").End(3).Row, 5)
    eski = WorksheetFunction.Max(Cells(Rows.Count, "G").End(3).Row, 5)
        If Target = "" Then Exit Sub
        If Selection.Count > 1 Then Exit Sub
            Range("G5:G" & eski).ClearContents
                For i = 5 To son
                    If Cells(i, "A") = Target Then
                        yeni = WorksheetFunction.Max(Cells(Rows.Count, "G").End(3).Row + 1, 5)
                        Cells(yeni, "G") = i
                    End If
                    If Cells(i, "B") = Target Then
                        yeni = WorksheetFunction.Max(Cells(Rows.Count, "G").End(3).Row + 1, 5)
                        Cells(yeni, "G") = i
                    End If
                    If Cells(i, "C") = Target Then
                        yeni = WorksheetFunction.Max(Cells(Rows.Count, "G").End(3).Row + 1, 5)
                        Cells(yeni, "G") = i
                    End If
                Next
End Sub

Bu şekilde problemimi çözdüm.
Saygılarımla