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....
![]() |
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
Bu forumu görüntüleyenler: AhrefsBot, Google [Bot], Yandex[Bot] ve 2 misafir