Süzme işlemini kelimeye göre değilde ("içerir") mantığı ile hece veya harfe göre yapm

[mücahitayan]

Süzme işlemini kelimeye göre değilde ("içerir") mantığı ile hece veya harfe göre yapm

PRIVATE SUB COMBOBOX26_CHANGE
Dim i As Long, X As Long
ListBox1.Clear
For i = 3 To Sheets("İŞLEM").Cells(65536, "H").End(xlUp).Row
If Sheets("İŞLEM").Cells(i, "H") = ComboBox26.Text Then
If Sheets("İŞLEM").Cells(i, "d").Value >= DTPicker11.Value Then
If Sheets("İŞLEM").Cells(i, "d").Value <= DTPicker12.Value Then
ListBox1.AddItem
ListBox1.Column(0, X) = Sheets("İŞLEM").Cells(i, "A").Value
ListBox1.Column(1, X) = Sheets("İŞLEM").Cells(i, "B").Value
ListBox1.Column(2, X) = Sheets("İŞLEM").Cells(i, "C").Value
ListBox1.Column(3, X) = Format(Sheets("İŞLEM").Cells(i, "D").Value, "DD.MM.YYYY")
ListBox1.Column(4, X) = Sheets("İŞLEM").Cells(i, "E").Value
ListBox1.Column(5, X) = Format(Sheets("İŞLEM").Cells(i, "F").Value, "#,##0.00")
ListBox1.Column(6, X) = Format(Sheets("İŞLEM").Cells(i, "G").Value, "#,##0.00")
ListBox1.Column(7, X) = Sheets("İŞLEM").Cells(i, "H").Value
ListBox1.Column(8, X) = Sheets("İŞLEM").Cells(i, "I").Value
ListBox1.Column(9, X) = i
X = X + 1
End If
End If
End If
Next i


MERHABA ARKADAŞLAR

YUKARIDAKİ ŞEKİLDE BİR COMBOBOX'UM VAR VE SAYFADA BENZER VERİLERİ SÜZÜP LİSTBOX'A EKLETİYORUM. SÜMZE YAPARKEN YAZDIĞIM YAZIYA BENZER OLANLARINIDA EKLEYEBİLİR Mİ LİSTBOX'A. ŞU ANDAKİ ŞEKLİ İLE SADECE COMBOBOX'A YAZDIĞIM KELİMEYİ BARINDIRANLARI EKLİYOR.

AYNI EXCELDE ARAMA YAPARKEN YAZDIĞIN HECE, HARF V.B. ARAMA YAPIYOR YA BUDA O ŞEKLE DÖNÜŞEBİLİR Mİ

İLGİNİZ İÇİN ÇOK TEŞEKKÜR EDERİM.

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

If Sheets("İŞLEM").Cells(i, "H") Like ComboBox26 & "*" Then

 

[Orion1]

Aşağıdaki kodları deneyiniz.
Yalnız ben olsam bu kodu combobox'ın changed olayına değilde Bir butona yazardım.Veya exit olayına yazardım.

Dim i As Long, X As Long, deg As String
ListBox1.Clear
deg = UCase(Replace(Replace(ComboBox26.Text, "ı", "I"), "i", "İ"))
For i = 3 To Sheets("İŞLEM").Cells(65536, "H").End(xlUp).Row
If UCase(Replace(Replace(Sheets("İŞLEM").Cells(i, "H").Value, "ı", "I"), "i", "İ")) Like "*" & deg & "*" Then
If Sheets("İŞLEM").Cells(i, "d").Value >= DTPicker11.Value Then
If Sheets("İŞLEM").Cells(i, "d").Value <= DTPicker12.Value Then
ListBox1.AddItem
ListBox1.Column(0, X) = Sheets("İŞLEM").Cells(i, "A").Value
ListBox1.Column(1, X) = Sheets("İŞLEM").Cells(i, "B").Value
ListBox1.Column(2, X) = Sheets("İŞLEM").Cells(i, "C").Value
ListBox1.Column(3, X) = Format(Sheets("İŞLEM").Cells(i, "D").Value, "DD.MM.YYYY")
ListBox1.Column(4, X) = Sheets("İŞLEM").Cells(i, "E").Value
ListBox1.Column(5, X) = Format(Sheets("İŞLEM").Cells(i, "F").Value, "#,##0.00")
ListBox1.Column(6, X) = Format(Sheets("İŞLEM").Cells(i, "G").Value, "#,##0.00")
ListBox1.Column(7, X) = Sheets("İŞLEM").Cells(i, "H").Value
ListBox1.Column(8, X) = Sheets("İŞLEM").Cells(i, "I").Value
ListBox1.Column(9, X) = i
X = X + 1
End If
End If
End If

 

[mücahitayan]

çok teşekkür ederim evren bey.

 

[Orion1]

çok teşekkür ederim evren bey.

Rica ederim.

 

[kucukdunyam]

düşey ara gibi birebir bulmasını değil de, içerir kullanmak istiyorum. nasıl olur acaba, yani sayfa 1 de a sütünundaki Murat sözcüğünü içeren hücrenin 3. sütünundaki değeri getirmesini istiyorum.

 

[Korhan Ayhan]

Merhaba,

Formülün içindeki "aranan değer" parametresini aşağıdaki gibi düzenleyin.

"*Murat*"

Yada Murat değeri bir hücrede ise;

"*"&A1&"*"

 

[kucukdunyam]

çok teşekkür ederim, korhan bey, harikasınız,