Kod ile farklı aramalar...

[ECYavuz]

C="Erhan Yavuz" gibi bir değişkenimiz var...Örnek olarak arayacağımız string bu.. ve bunu C1 e yazdık...veya TextBox1 e yazdık da oradan arıyoruz.

A sütününda da 18000 adet farklı isim var... Ancak sütunda yer alan isimler aşağıdaki gibi beş değişik şekilde olabiliyor.

......A.......
ERHAN YAVUZ -----> büyük hafli yazılmış olabilir.
Erh. Yavuz -----> İsim kısa yazılmış ve arada nokta olabilir.
Erh Yavuz -----> İsim kısa yazılmış olabilir.
E Yavuz -----> İsmin sadece Baş harfi yazılıp
soyad aynı olabilir.
Erhan Yav -----> isim tam ama soyad eksik yazılmış olabilir.

Sadece bu farklılıklar göz önüne alınarak ve kod kullanarak bu şartlara uyan veya benzeyen isim ve soyada haiz olanlar B sütünuna nasıl sıralandırılabilir.

 

[ECYavuz]

Bu konuda yardımcı olabilecek kimse yokmu?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Aranacak ismin C1 hücresinde olduğu kabul edilmiştir.

Sub isimara()
For a = 1 To [a65536].End(3).Row
deg = Split(Cells(a, "a"), " ")
For b = 0 To UBound(deg)
If InStr(1, UCase([c1]), UCase(Replace(deg(b), ".", ""))) = 0 Then GoTo 10
Next
c=c+1
Cells(c, "b") = Cells(a, "a")
10 Next
End Sub

 

[ECYavuz]

Sayın Leventm,

Daha önceki sorularıma da Hızır gibi yetişmiştiniz. Teşekkürler...
Çok Mutlu Oldum ve beni büyük bir dertden kurtardınız...

 

[ECYavuz]

Yazım hatası veya aceleden yazılmış uzun listelerden doğru bilgi çekmek isteyen tüm arkadaşlara hararetle tavsiye edilir...

 

[Levent Menteşoğlu]

Öncelikler işinize yaradığına sevindim. Tüm hatalı yazımları bulabildimi acaba? harf hatası veya ilave harf yada sembol (nokta hari&#231 içermediği müddetçe bana tüm ihtimalleri bulabilir gibi geldi. O açıdan soruyorum.

 

[chatintok]

Sütunda metin arama

leventm,
Acaba yazdığınız kod biraz daha geliştirirsek aşağıda tarif edeceğim problemi çözmek mümkün olabilir mi,

A sütununda;

ERHAN YAVUZ Kira Ödemesi 500 Euro
Mustafa Yavuz Yıllık Aidat 200 YTL
Sn. Cemal Kurt Hesaptan Havale
Gön: Hasan Paydaş Yakıt Bedeli

gibi bir listenin bulunduğunu düşünelim.

C1 sütunda ise "cemal kurt" yazdığını varsayarak,(büyük/küçük harf duyarlı değil)

"cemal kurt" kelimesinin A sütununda bulunup bulunmadığına bakan, var ise B sütununa bunu yazan veya B sütununa "var" veya "yok" yazan bir makro yapabilirmisiniz.
Yardımlarınız için teşekkür ederim.
Saygılar,

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[LEFT]Sub isimara()
For a = 1 To [a65536].End(3).Row
If InStr(1, UCase(Cells(a, "a")), UCase([c1])) > 0 Then Cells(a, "b") = "VAR"
Next
End Sub
[/LEFT]

 

[chatintok]

Metin arama

If InStr(1, UCase([c1]), UCase(cells(a,"a")) > 0 Then cells(a,"b")="VAR"

satırı ile ilgili "compile error: syntax error" hatası verdi.

fazla anlamadığım için düzeltemedim.
yardımlarınızı bekliyorum
teşekkürler

 

[Levent Menteşoğlu]

Bir parantez eksikmiş yukarıdaki kodu yeniledim. Tekrar deneyin.

 

[chatintok]

Metin arama

Kodların son halini denedim. Hata çıkmadı, fakat şöyle bir sorun var, mesala A sütununda verdiğim listede "cemal kurt" yazısının bulunduğu hücrenin sağında ve solunda başka kelimeler de yazılı iken sonuç vermiyor(Sn. Cemal Kurt Hesaptan Havale gibi) .
Saygılar,

 

[Levent Menteşoğlu]

Yukarıdaki kodu düzelttim tekrar deneyin.

 

[chatintok]

Metin Arama

Çok iyi çalışıyor.
Teşekkür ederim.

 

[chatintok]

Metin Arama

İhtiyaçlar uyguladıkça ortaya çıkıyor, bir ekleme daha yapmanızı rica edicem.
Acaba "VAR" yazısını C1 in hücresinin sağına (D1 e) yazdırmak mümkünmüdür. Ayrıca C sütununda da bir liste olacak listedeki diğer isimleri de sırayla A sütununda ki listede aratmak istiyorum.
Yardımlarınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Bunun için kod içindeki cells(a,"b")="VAR" hücre tanımlamasında "b" yi "d" olarak değiştirin.

 

[chatintok]

Metin Arama

Afedersiniz yanlış ifade ettim,
Anlatmak istediğim şuydu;

......A....... ......C....... ......D.......
ERHAN YAVUZ Kira Ödemesi 500 Euro cemal kurt VAR (olması gereken)
Mustafa Yavuz Yıllık Aidat 200 YTL Erhan Yavuz VAR
Sn. Cemal Kurt Hesaptan Havale ... VAR (mevcut durum)
Gön: Hasan Paydaş Yakıt Bedeli ...

"VAR" yazarken C sütunundaki aranan kelimenin bulunduğu noktanın karşısına yazabilmesini kasdetmiştim. Ayrıca C sütununda da bir liste olduğunu düşünecek olursak C sütunundaki tüm hücreleri bir seferde arayacak hale getirilebilir mi acaba?
Teşekkürler.
Saygılar

 

[Levent Menteşoğlu]

Bence siz bir örnek dosya ekleyin.

 

[chatintok]

İsim arama

Merhaba,
Ekte örnek dosya yer almaktadır. Dosyanın içine ayrıntıları yazdım.
Teşekkurler.

 

[ECYavuz]

Levent Hocama Selamlar..

Öncelikler işinize yaradığına sevindim. Tüm hatalı yazımları bulabildimi acaba? harf hatası veya ilave harf yada sembol (nokta hariç) içermediği müddetçe bana tüm ihtimalleri bulabilir gibi geldi. O açıdan soruyorum.

Sayın Levent hocam, sorunuza şehir dışında olduğum için yeni yanıt verebiliyorum. Yanıt Genel olarak evet... ama ekli dosyayı inceleyebilirseniz, daha iyi görüleceği gibi Genel İfadede parçalanmış ifadeleri Harika buluyor. Bu da yeni bir soruyu gündeme getiriyor.
Tam tersini uygulayabilirmiyiz. Bir zahmet dosyamı kontrol edebilirseniz...

Şimdiden teşekkürler...

 

[ECYavuz]

Sayın Levent Hocam,

Forumda olduğunuzu gördüm... ilgilerinizi bekliyoruz...