Soru textbox ıle coklu arama

[Bahattin Sungur]

Sub SATIRIbul()
Dim ws As Worksheet
Dim aranan As String
Dim alan As Range
Dim sayfa As String
Dim i As Integer
aranan = Sheets("plan").TextBox1.Text
If aranan = "" Then Exit Sub
For Each ws In Worksheets
Set alan = ws.Rows.Find(What:=aranan)
If Not alan Is Nothing Then
    i = i + 1
    If i = 1 Then
sayfa = alan.Worksheet.Name
Sheets(sayfa).Select
alan.Select
End If
End If
Next ws
If i = 0 Then: MsgBox "Aranan değer Sayfalarda YOK", vbInformation
End Sub

Bu kod ile textbox ıcınde kendime bir arama butonu yaptım ama formül ile oluşan hücrelerdeki metinleri aramıyor. Örnek verirsem a1 hücresinde "Ahmet" b1 hücresinde "Mehmet" yazıyor ben birleştir komutu ile c1 hücresinde bu ıkı hücreyi bırlestırdım ama arama makrosuna "Ahmet Mehmet" yazınca bulmuyor. Nasıl bir ekleme yapmam gerekiyor. Vba yı daha yeni yeni öğreniyorum. Şımdıden tesekkurler.

 

[YUSUF44]

Set alan = ws.Rows.Find(What:=aranan)


yerine

Set alan = ws.Rows.Find(What:=aranan,LookIn:=xlValues, LookAt :=xlPart)

şeklinde deneyin.

 

[Bahattin Sungur]

çok teşekkur ederım.