Excel de bir tablom var alt kısmında da bu tablodan veri arama ve listeleme kısmı var. bunu en basit haliyle masaüstü program şeklinde uyarlatmak istiyorum.

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