Metin Arama Kutusu oluşturma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Metin Arama Kutusu oluşturma

İleti#1)  abdi123456 » 23 Oca 2023 15:38

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
abdi123456
Siteye Alışmış
 
Kayıt: 29 Ekm 2014 22:09
Meslek: bilgi işlem
Yaş: 29
İleti: 276
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Metin Arama Kutusu oluşturma

İleti#2)  abdi123456 » 24 Oca 2023 12:44

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
abdi123456
Siteye Alışmış
 
Kayıt: 29 Ekm 2014 22:09
Meslek: bilgi işlem
Yaş: 29
İleti: 276
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Metin Arama Kutusu oluşturma

İleti#3)  abdi123456 » 24 Oca 2023 17:23

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.
Kullanıcı avatarı
abdi123456
Siteye Alışmış
 
Kayıt: 29 Ekm 2014 22:09
Meslek: bilgi işlem
Yaş: 29
İleti: 276
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Metin Arama Kutusu oluşturma

İleti#4)  Yken » 24 Oca 2023 22:41

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Yken
Siteye Alışmış
 
Kayıt: 07 Kas 2014 11:06
Meslek: Muhasebe
Yaş: 57
İleti: 114
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Metin Arama Kutusu oluşturma

İleti#5)  abdi123456 » 25 Oca 2023 21:22

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.
Kullanıcı avatarı
abdi123456
Siteye Alışmış
 
Kayıt: 29 Ekm 2014 22:09
Meslek: bilgi işlem
Yaş: 29
İleti: 276
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Metin Arama Kutusu oluşturma

İleti#6)  Yken » 25 Oca 2023 23:12

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Yken
Siteye Alışmış
 
Kayıt: 07 Kas 2014 11:06
Meslek: Muhasebe
Yaş: 57
İleti: 114
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Metin Arama Kutusu oluşturma

İleti#7)  abdi123456 » 26 Oca 2023 09:22

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.
Kullanıcı avatarı
abdi123456
Siteye Alışmış
 
Kayıt: 29 Ekm 2014 22:09
Meslek: bilgi işlem
Yaş: 29
İleti: 276
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 2 misafir

Bumerang - Yazarkafe