ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[abdi123456]

Değerli Üstadlarım merhaba,

Ekli çalışmada arama kutusu oluşturmak istiyorum. Arama kutusunda veri girişi sayfasındaki A sütunundan kelime aradagımda çıkan listede seçtiğim kelimeyi d1 hücresine veriyi yazdırmak istiyorum. Arama motoru gibi açılır liste tarzında olsun istiyorum.

Ekran görüntüsü 2023-01-23 142822.jpg

Konu ile ilgili desteklerinizi rica ederim.

Çok teşekkürler iyi çalışmalar.

[abdi123456]

Değerli Hocalarım merhaba,

Konu ile ilgili istediğim gibi tam bir örnek buldum Fakat arama yaptığımda bulduğum 2 kere tıklayınca yada seçince değeri B1 Hücresine yazsın form kapasın istiyorum.

Çok teşekkürler.

[abdi123456]

Değerli Hocalarım zamanınızı alıyorum hakkınızı helal edin konu ile ilgili destek olursanız çok senirim. Sizin için çok küçük bir şey biliyorum.

Allah razı olsun.

[Yken]

Kod: Tümünü seç

Private Sub CommandButton1_Click()
Sayfa1.Range("B2") = ListBox1.List(ListBox1.ListIndex, 0)
Unload Me
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sayfa1.Range("B2") = ListBox1.List(ListBox1.ListIndex, 0)
Unload Me
End Sub

Private Sub TextBox1_Change()
    Dim Son As Long, Say As Long, Veri As Range, Aranan, Kriter
   
    If TextBox1 = "" Then
        Son = Sheets("Cariler").Range("A" & Rows.Count).End(3).Row
        ListBox1.ColumnCount = 1
        ListBox1.ColumnWidths = "400"
        ListBox1.ColumnHeads = False
        ListBox1.RowSource = "Cariler!A2:A" & Son
    Else
        Son = Sheets("Cariler").Range("A" & Rows.Count).End(3).Row
        ListBox1.RowSource = ""
        ListBox1.Clear
        ListBox1.ColumnCount = 1
        ListBox1.ColumnWidths = "400"
        ListBox1.ColumnHeads = False
        For Each Veri In Sheets("Cariler").Range("A2:A" & Son)
            Aranan = UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ"))
            Kriter = UCase(Replace(Replace(Left(Veri, Len(TextBox1)), "ı", "I"), "i", "İ"))
            If Kriter = Aranan Then
                ListBox1.AddItem
                ListBox1.List(Say, 0) = Veri.Value
                Say = Say + 1
            End If
        Next
    End If
End Sub

Private Sub UserForm_Initialize()
Sonsat = Sayfa2.Range("a1").End(xlDown).Row
TextBox1.SetFocus
veriler = Sayfa2.Range("A2:A" & Sonsat).Value '"Sayfa2!a2:a" & sonsat
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "400"
ListBox1.ColumnHeads = False
ListBox1.RowSource = "Cariler!A2:A" & Sonsat
End Sub

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyEscape Then Unload Me
End Sub
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyEscape Then Unload Me
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyEscape Then Unload Me
End Sub


[abdi123456]

Hocam çok teşekkür ederim tam istedim gibi olmuş Allah razı olsun işiniz rast gitsin inşallah.
Yalnız örnek "BATI FİLTRE OTO YEDEK PARÇA SAN ve TİC. KOLL.ŞTİ." isminde örnek "Yedek" yazdığımda metni içerir olarak bulma şansımız varımdır. Şimdikinde BATI diye yazmak gerekiyor.

Çok teşekkür ederim.

İyi çalışmalar.

[Yken]

Amin diyorum, güzel dualarınız için ben de teşekkür ediyorum, bilmukabele.
Yazılan kelimenin başta-ortada farketmeyecek şekilde aranması için yeni dosya ekte.

[abdi123456]

Değerli üstadım çok teşekkür ederim emeğine sağlık Allah Razı Olsun.

İleti çözülmüştür.

Bu platformun kuruluşundan buyana emeği geçen herkese çok teşekkür ederim.