vba da kullandığım kod şu şekilde. fiyat tekliflerinizle beraber whatsappdan ulaşabilirsiniz. Whatsapp Tıkla
Function AramaSonuclari(aranacakKelime As String, veriTablosu As Range) As Variant
Dim sonucDizi() As Variant
Dim sonucUzunlugu As Long
Dim i As Long, j As Long
ReDim sonucDizi(1 To 3, 1 To 1) ' Boyutları değiştirdik, başlangıçta 3 satır, 1 sütunlu olacak.
sonucUzunlugu = 0
For i = 1 To veriTablosu.Rows.Count
For j = 1 To veriTablosu.Columns.Count Step 1 ' Sütunları 1'er atlayarak kontrol ediyoruz.
Dim hücredekiKelime As String
hücredekiKelime = veriTablosu.Cells(i, j).Value
If InStr(1, hücredekiKelime, aranacakKelime, vbTextCompare) > 0 Then
sonucUzunlugu = sonucUzunlugu + 1
ReDim Preserve sonucDizi(1 To 3, 1 To sonucUzunlugu) ' Boyutları güncelliyoruz
sonucDizi(1, sonucUzunlugu) = veriTablosu.Cells(i, 1).Value ' Eşleşen satırın A sütunundaki veri
sonucDizi(2, sonucUzunlugu) = veriTablosu.Cells(i, 2).Value ' Eşleşen satırın B sütunundaki veri
sonucDizi(3, sonucUzunlugu) = aranacakKelime & " " & veriTablosu.Cells(i, j).Address(False, False) ' Aranan kelime ile birleştirilmiş hücrenin adresi
End If
Next j
Next i
If sonucUzunlugu = 0 Then
AramaSonuclari = "Aranan kelime bulunamadı."
Else
AramaSonuclari = Application.Transpose(sonucDizi)
End If
End Function 
