Kod ile farklı aramalar...

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub isimara()
Range("B2:B65536").ClearContents
deg = Split([c1], " ")
For a = 2 To [a65536].End(3).Row
For b = 0 To UBound(deg)
If InStr(1, UCase(Cells(a, "a")), UCase(Replace(deg(b), ".", ""))) = 0 Then GoTo 10
Next
Cells(a, "b") = "VAR"
10 Next
End Sub

 

[ECYavuz]

Levent üstadım Teşekkürler..

Levent üstadımızın katkıları ile; Uzun listelerden değişik arama metotları ile arama yaptırmamıza olanak sağlayan küçük bir program ek;te yer alıyor.

Üstadın izinleriyle sizlerle paylaşmak istiyorum. Kendi programlarınızda işinize yarayacağına da inanıyorum.

Hücre yerlerini kendinize göre ayarlarsanız yararlarını göreceksiniz... İlgilisine duyurulur.

 

[chatintok]

Metin arama

Levent hocam,
en son yazmış olduğunuz kodları ekte göndermiş olduğum örnek dosya için modifiye edilerek kullanmak istiyorum. Benim yapmak istediğim biraz daha farklı. Örnek dosyaya bakmanız mümkün mü acaba?
Saygılar,