Find Komutu Hakkında

[omnia]

Herkese Selamlar.

Benim sorum söyle:

Find komutu ile arama yaptıracağım. Devamında if komutu işe şartlı yönlendirme.

Find ile arama yapınca aramanın sonucu olumlu ise ve

Find ile arama yapınca aramanın sonucu olumsuz ise

bunu vba kodu ile nasıl ifade edebilirim?

Teşekkürler.

 

[asi_kral]

Merhaba
Örneğin
ARA değişkeninde find komutunu kullandığınızı düşünelim

if not ARA is nothing then
'Buraya olumlu olanı yazın.
else
'Buraya Olumsuz olanı
end if

Bu şekilde deneyin.

 

[omnia]

Teşekkürler asi_kral; umarım içinden çıkabilirim.
Aslında sorumun tamamı

"http://www.excel.web.tr/f48/ara-bul-ekle-t125180.html"

burada. biraz daha kafa patlatmam lazım. yardımın için tekrar teşekkürler.

 

[asi_kral]

Teşekkürler asi_kral; umarım içinden çıkabilirim.
Aslında sorumun tamamı

"http://www.excel.web.tr/f48/ara-bul-ekle-t125180.html"

burada. biraz daha kafa patlatmam lazım. yardımın için tekrar teşekkürler.

Kolay Gelsin.

 

[Emir Hüseyin Çoban]

Find Komutu Hk.

. . .

Bu aralar find komutu üzerinde çalışıyorum.
Eşleştirmeleri döngü ile yapıyordum ama daha kısa olan find komutunu kullanmak istiyorum.

Ekteki tabloda bir sorun var. İnputbox ile arattığım veri.
1. ve 4. satırda var. Ama kod 1.satırdakini görmüyor, işlem sonucu olarak 4. satırı veriyor.

Sub KOD()
msj = InputBox(" Aranacak Kelimeyi Girin ", " ", "ali")
If msj = "" Then Exit Sub

Set c = Range("A:A").Find(msj, , xlValues, xlWhole)
MsgBox c.Row

End Sub

. . .

 

[Korhan Ayhan]

Aşağıdaki gibi deneyin.

Sub KOD()
    msj = InputBox(" Aranacak Kelimeyi Girin ", " ", "ali")
    If msj = "" Then Exit Sub
    Son = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Set c = Range("A:A").Find(msj, Cells(Son, 1), xlValues, xlWhole)
    MsgBox c.Row
End Sub

 

[Emir Hüseyin Çoban]

. . .

Teşekkürler Sy Korhan Ayhan, aktif satır gösterilmesi gerekiyor yani.

Şöyle bir mantık kurmak doğru olur mu ?
Yukarıdaki benim kodlarım sadece 1.satırlar için mi hata verir.
Genelde tablolarda 1.satır başlıktır. Arama yapmasına gerek yok. Bu tarz tablolarda bu şekilde kullansam sorun çıkarır mı ?

Yoksa daha çok verinin olduğu tablolarda da hatalı satır bulma sorunu farklı satırlarda devam eder mi?

. . .

 

[Usyk]

Syn Hüseyin Çoban adamsın.