listbox Arama hatası

[Turgay1983XX]

merhabalar
ekte bulunan örnekte Frm_cariListe adlı formda cari ada göre arıyor ama cari koda göre arama yapmıyor. Daha doğrusu sayı gibi bir veri armaya çalıştığımda olmuyor. hata da vermiyor. konu hakkında yardımlarınızı bekliyorum

 

[Muzaffer Ali]

Merhaba

Metin arama ile rakam arama kriterleri farklıdır. Onun için rakamı metne çevirmeli yada başına sonuna * işareti eklenerek metne çevrilmelidir.
Txb_CariKod_Change kodları içinde bulunan

Sheets("Rapor").Range("P2") = Txb_CariKod

satırını aşağıdaki ile değiştirin.

Sheets("Rapor").Range("P2") = "*" & Txb_CariKod & "*"

2. bir sorun daha var belirtmemişsiniz.
Arama yapınca listboxa başlıklar da geliyor gelmemesi için Arama kodları içinde bulunan

List_CariListe.RowSource = aktar.Address

satırını aşağıdaki ile değiştirin.

List_CariListe.RowSource = Replace(aktar.Address, "$A$1", "A2")

 

[Turgay1983XX]

çok teşekkür ederim tam istediğim gibi olmuş

 

[Turgay1983XX]

Merhaba

Metin arama ile rakam arama kriterleri farklıdır. Onun için rakamı metne çevirmeli yada başına sonuna * işareti eklenerek metne çevrilmelidir.
Txb_CariKod_Change kodları içinde bulunan

Sheets("Rapor").Range("P2") = Txb_CariKod

satırını aşağıdaki ile değiştirin.

Sheets("Rapor").Range("P2") = "*" & Txb_CariKod & "*"

2. bir sorun daha var belirtmemişsiniz.
Arama yapınca listboxa başlıklar da geliyor gelmemesi için Arama kodları içinde bulunan

List_CariListe.RowSource = aktar.Address

satırını aşağıdaki ile değiştirin.

List_CariListe.RowSource = Replace(aktar.Address, "$A$1", "A2")

yaptıklarınız Frm_cekListesi gormunda işe yaramdı neden acaba bakabilirmisiniz