VBA ile sorgu operatörleri

[kuschcu]

Arkadaşlar ve işin ehli üstadlara bir sorum olacak...Excel VBA'da sorgu operatörleri kullanabiliyor muyuz? Kullanabiliyorsak eğer bir kaç örnek verebilir miyiz?

Sorgu operatörlerinden kastım şöyle: mesela doküman içinde vba da bir arama yaptığımızda hücreler içerisindeki tüm cümleyi değil de cümle içerisinde geçen bir veya birden fazla kelimeyi aratarak, kelimelerin geçtiği hücreleri tespit etmek gibi.

Umarım anlatabilmişimdir. Saygılarımla..

 

[ENDMUH1]

Instr Fonksiyonu & Örnek

Günaydın,

Makro kodu içerisinde Instr, StrComp gibi fonksiyonlardan yararlanılabilir .
Aşağıda Instr fonksiyonunun kullanımına bir örnek verdim.

iyi çalışmalar,

Sub InstrOrnegi()

SearchString = "Aranan C Kelime c ....... C" ' İçinde aranacak cümle
SearchChar = "C" ' Aranacak karakter "C".

'5. karakterden başlayan bir metinsel karşılaştırma örneği. 8. karakteri verir...
Mypos = InStr(4, SearchString, SearchChar, 1)
MsgBox Mypos
'Aradığımız kayıdı bulduktan bir sonraki kayıdı ararken başlayacağımız nokta bir karakter sonrası... sonucu 17. karakteri verir..
Mypos = InStr(Mypos + 1, SearchString, SearchChar, 1)
MsgBox Mypos
End Sub

 

[kuschcu]

SON = Cells(65536, 1).End(xlUp).Row
For i = 3 To SON
arayan = Split(zarfaraKutu.Text, " ")
If UBound(arayan) < 1 Then
u = arayan(a)
ub = UBound(arayan)
r = 0
Else
u = zarfaraKutu.Text
ub = 1
r = ub
End If
For a = r To ub
SearchString = Cells(i, 3).Value
Mypos = InStr(1, SearchString, u, 1)

If Mypos > 0 Then
'MsgBox a
Cells(1, 1).Select
C = C + 1
For Y = 1 To 3
zarfListesi.AddItem
zarfListesi.List(C - 1, Y - 1) = Cells(i, Y).Value
Next
End If ' mypos
Next a
Next i

Yukarıda çalışmamdan bi parça koydum..okuyanlar için bir anlam ifade etmeyecektir. Kısaca şöyle ifade edeyim: Userform da bir textbox içerisine yazılacak herhangi bir kelimeyi seçili bulunan sütundaki dolu bulunan hücrelerde arayarak, eğer kelime hücre içerisinde kullanılmış ise, ilgili hücrenin ilgili satırını listbox içerisine yazdırıyorum. InStr fonksiyonu ile bunu başardım..Verdiğiniz örnek için de çok teşekkürler..Güzel bir hatırlatma oldu..Çalışmama ışık tuttunuz..Görüşmek üzere..Saygılarımla