[ozlempo]

Merhabalar...
Yazarak anlatmam zor olacak. Ekte anlatmaya çalıştım.
Bir hücre içindeki metni, bu metni de iceren tüm hücrede arayacak, bulunca yanında yer alan fiyatı getirecek.
Aslında fiyat getirme kısmını ben de halledebilirim. Bulsa yeter
çok teşekkürler....

[Yasin KURT]

Sorunuzu formül ile çözemem. Bir makro hazırladım işinize yararsa.

Kod: Tümünü seç

Sub jsn()
    On Error Resume Next
    For i = 2 To Range("C65536").End(3).Row
    clm = 10
    For t = 2 To Range("G65536").End(3).Row
    x = Nothing
    x = WorksheetFunction.Search(Cells(i, "C"), Cells(t, "G"))
    If Err.Number = 1004 Then
       
    ElseIf Err.Number = 91 Then
        Cells(i, clm) = t & ".Satır"
        Cells(i, clm + 1) = Cells(t, "H")
        clm = clm + 2
    End If
    Next t
    Next i
End Sub

Ayrıca resim üzerinde de işaretlediğim gibi eşleşme problemleri var.
Sonu KAPI NO:7 olan veriyi KAPI NO:70,KAPI NO:71 ve KAPI NO:77 nin içinde gördüğü için eşleştiriyor.

[ozlempo]

bu kadarı da işimi görür şahane çok tskler...