Çözüldü İçinde Ara

JOSSEF · 28 Eyl 2021

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 ***************
HTML:

CSS:

İçeriği görebilmek için Giriş yap ya da Üye ol.

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 bulmuyor. 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?

muygun · 29 Eyl 2021

Merhaba;
Başlığınızı İçinde Ara şeklinde değiştirirseniz daha uygun olur.
Üstteki kodları yok sayarak (userform elinizde olduğuna ve paylaşmadığınıza göre kendiniz uyarlarsınız.)

If InStr("aranacak kelime", Cells(1, "a")) >= 1 Then MsgBox ("var")
If InStr("aranacak kelime", Cells(1, "a")) = 0 Then MsgBox ("yok")

İyi çalışmalar.

Refaz · 29 Eyl 2021

JOSSEF' Alıntı:
If UCase(Replace(Replace(Left(Veri(parca), Len(TextBox1)), "ı", "I"), "i", "İ")) = UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ")) Then

Merhaba yanlış yazmadıysam like ile içerisinde olrak alttaki gibi araması gerek.
HTML:

CSS:

İçeriği görebilmek için Giriş yap ya da Üye ol.

JOSSEF · 29 Eyl 2021

Refaz' Alıntı:
Len(TextBox1)), "ı", "I"), "i", "İ")) Like "*" & UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ")) & "*" Then

Aramadı hocam hala aynı sistemle arama yapıyor.

JOSSEF · 29 Eyl 2021

muygun' Alıntı:
If InStr("aranacak kelime", Cells(1, "a")) >= 1 Then MsgBox ("var")
If InStr("aranacak kelime", Cells(1, "a")) = 0 Then MsgBox ("yok")

ilginize teşekkür ederim. Bu kodları yukarıda textbox'da nereye yerleştirmem gerek. daha doğrusu hangi satıtı değiştirmem gerek.

halily · 29 Eyl 2021

çalışmanız olmadan öneriler havada kalıyor ama aşağıdaki kod denenebilir
TextBox1_Change olayının kodu
verilerin C2'den itibaren C sütununda olduğu varsayılmıştır
ufak tefek düzenlemeler yapılabilir, veri yoksa uyarı vermek yada
arama btince filtreyi kaldırmak gibi
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Refaz · 29 Eyl 2021

JOSSEF' Alıntı:
Aramadı hocam hala aynı sistemle arama yapıyor.

Tees çeviripte deneyebilirsiniz len ile ve ucase olan yerleri.

halily · 29 Eyl 2021

@Refaz hocam doğrudan sayfayı filtreleyip alsa daha kolay olmaz mı?
filtreleme olayında sorun mu çıkıyor?

halily · 29 Eyl 2021

yada
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Refaz · 29 Eyl 2021

Abey hiç kimsenin vede kendi kodumuda denemedim sadece mantıken olacağını tahmin ettim.Bdn şahsen fitreleme yaptırmıyorum eğer kod yazarsam istisnalar olabilir belki ama bilmiyorum

halily · 29 Eyl 2021

kodda I,İ,ı gibi harfler için replace, Ucase gibi fonksiyonlar kullanılmış ama excele yaptırınca bunları kullanmaya gerek kalmıyor galiba
yine de denemek gerek bir bakayım

halily · 29 Eyl 2021

ilginç bir şekilde döngü kullanınca sorun yok
I,İ,ı alıyor
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

ama aşağıdaki gibi kullanınca filtreyi geçmesine rağmen verileri listbox'a almıyor
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Refaz · 29 Eyl 2021

halily' Alıntı:
kodda I,İ,ı gibi harfler için replace, Ucase gibi fonksiyonlar kullanılmış ama excele yaptırınca bunları kullanmaya gerek kalmıyor galiba
yine de denemek gerek bir bakayım

Chr kodları vardı abey hatırlıyorsanız aslında onlar daha garanti gibi bu harfler için.

DİKKAT ! Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir. Giriş yap veya Şimdi kayıt ol

Çözüldü İçinde Ara

DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Giriş yap veya Şimdi kayıt ol