• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Karışık arama yapma

Yamahato

Yeni Üye
Katılım
20 Haz 2020
Mesajlar
17
En iyi yanıt
0
Puanları
1
Yaş
46
Konum
Balçova
Ad Soyad
Yusuf DOĞAN
Office Vers.
Profesyonel plus 2010
Merhaba.
Öncelikle sayenizde git gide adım adım daha güzel bir userforms oluşuyor. Şimdi bir konuda daha yardımınıza ihtiyacım var. Malum daha önce büyük harf küçük harf ayrımını çözdük. Sorunum şimdi şu.
Aşağıda ki kod benim arama Textbok'umda ki kod.
' *************** TextBox1 DE ARAMA ***************
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 0 Then
ListBox1.Clear
Exit Sub
End If
Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
10:
Adet = 0
ListBox1.Clear
For Each hucre In s1.Range("A2:H" & son)
If hucre <> "" Then
Veri = Split(hucre, Chr(10))
For parca = 0 To UBound(Veri)
If UCase(Replace(Replace(Left(Veri(parca), Len(TextBox1)), "ı", "I"), "i", "İ")) = UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ")) Then
Adet = Adet + 1
If Adet > 3000 Then
MsgBox "En az " & Adet & " adetten fazla sonuç bulundu." & Chr(10) & _
"Lütfen 3000 adetten az sonuç bulununcuya kadar karakter girmeye devam ediniz.!", vbInformation
Exit Sub
End If
ListBox1.AddItem (s1.Cells(hucre.Row, "A").Value)
parca = UBound(Veri)
End If
Next
End If
Next
End Sub

Bu kod büyük ve küçük harfle arama yapabiliyor. İşimi görüyor fakat sahibinden sayfasında ki verileri yazıldığı gibi buluyor.
Şöyle örnek vereyim. Diyelim ford focus 2 debriyaj seti yazıyor SAHİBİNDEN sayfasında. biz arama yaparken direk focus yazarsak bunu bulmuyoyor. ve göstermiyor.
bize sadece sahibinden sayfasında başı focusla başlayan aramaları gösteriyor.

Kısacası benim ihtiyacım F yazdığımda sahibinden ne kadar f ile başlayan kelime varsa onun parça kodunu göstermesi. FO yazdığımda sonuçların azalması. Foc yazınca daha da azalması. sonuçta focus yazdığımda sahibinden sayfasında içinde ne kadar focus yazan kod varsa onu göstermesi.
Bu konuda yardımcı olabilirmisiniz?
 
Üst Alt