Hücrede arama karşısındaki değeri getir

[işsiz123]

Merhabalar arkadaşlar,
Asağıdaki kod ile Sheet2 B sütunundaki verileri sırasıyla Sheet1 f sutununda arayıp bulunan verinin karşısındaki veriyi Sheet2 aranan değerin karsşısına yazıyorum. Ama bir türlü yapamadım. Tam eşleşme olarak oluyor ancak benim F sütundaki veriler metin içinde içeriyor bunu metin içinde içeriyorsa olarak nasl revize edebiliriz. Teşekkürler

Sub BittiBul()
Dim bul As Range
For i = 4 To 10
  
For Each bul In Sheets("Sheet1").Range("F2:F" & Sheets("Sheet1").Range("F65536").End(3).Row)
    If bul.Value = Sheets("Sheet2").Cells(i, 2).Text Then
       Sheets("Sheet2").Cells(i, 4).Text = Sheets("Sheet1").Cells(bul.Row, 3) 
     End If
Next
  Next
    Set bul = Nothing
 
 
  Dim k As Range, adr As String

End Sub

 

[ÖmerFaruk]

1. InStr fonksiyonunu kullanabilirsiniz. (bul.Value değişkenini
Sheets("Sheet2").Cells(i, 2) içinde ararsınız. Varsa sonuç >0 olur. Yoksa Sıfır olur

2. Find işlecini kullanabilirsiniz. (kodlar daha hızlı çalışacaktır)

 

[işsiz123]

1. InStr fonksiyonunu kullanabilirsiniz. (bul.Value değişkenini
Sheets("Sheet2").Cells(i, 2) içinde ararsınız. Varsa sonuç >0 olur. Yoksa Sıfır olur

2. Find işlecini kullanabilirsiniz. (kodlar daha hızlı çalışacaktır)

Teşekkürler
Tam olarak nasıl bir düzenleme yapmam lazim

 

[Korhan Ayhan]

Arama sonuçları;

Sorgu için arama sonuçları: instr

www.excel.web.tr

Sorgu için arama sonuçları: findnext

www.excel.web.tr