Sutunda arama

[fealdown]

merhabalar, Bugun sutunda arama sorusu sormuştum size ama bir sorum daha olacak; Mesela f sutununda gökhanı arattık ve f8 hücresinde buldu,bulduğunda 2 yan hücresine yani d8 hücresine "bulundu" yazmasını istiyorum. nasıl yapabiliriz ?

 

[Asri]

merhabalar, Bugun sutunda arama sorusu sormuştum size ama bir sorum daha olacak; Mesela f sutununda gökhanı arattık ve f8 hücresinde buldu,bulduğunda 2 yan hücresine yani d8 hücresine "bulundu" yazmasını istiyorum. nasıl yapabiliriz ?

Aranacak Gökhan bilgisi hangi hücredan alınıyor?

 

[fealdown]

herhangi bir hücreden almayacam"Gökhan" olarak yapabiliriz

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub ara()
aranan = WorksheetFunction.Proper(InputBox("Aranacak metni giriniz"))
For i = 1 To Cells(Rows.Count, "F").End(3).Row
    If WorksheetFunction.Proper(Cells(i, "F")) = aranan Then Cells(i, "H") = "Bulundu"
Next
End Sub

 

[fealdown]

merhaba, ben bilgiyi outlooktan çekiyorum ve aranan değişkenine atıyorum aranan değer ile hücredeki değer aynı bunu f8 yaparak görebiliyorum fakat if in içine girmiyor.

 satir = InStr(OutlookMail.Body, "SD")
 aranan = Mid(OutlookMail.Body, satir, "9")
For i = 4 To Cells(Rows.Count, "F").End(3).Row
    If WorksheetFunction.Proper(Cells(i, "F")) = aranan Then
    Cells(i, "e") = "bulundu"
    End If
Next

 

[Haluk]

"9" ifadesinde tırnak işaretlerini kaldırıp, deneyin...

.

 

[fealdown]

kaldırdım, değişkenin değeri değişmedi ve yine girmedi if in içine

 

[fealdown]

teşekkürler yardımlarınız için hallettim sorunu.