Hücre içinde bir kelimeyi bulunca evet yazdırmak

[Gamma]

Merhaba benim de bir sorum olacak.
"Eğer bir hücrede yazılanlar içinde belirli bir kelime geçiyorsa başka bir hücreye "Evet" yaz, böyle bir kelime geçmiyorsa boş kalsın"
nasıl yapılabilir?
Yardımlarınız için şimdiden çok teşekkür ederim.
Not: Hücrelerde birbirinden farklı açıklamalar var ama bazılarının içinde sadece belirli bir kelimenin geçmesi yeterli. Örneğin kelime "Alındı" olsun. Hücrelerin içinde "kola alındı", "Kağıt alındı ve gönderildi", "gazete pazar günü alındı" gibi yazıyor.
Buna ilişkin bir örnek dosya ekte yer alıyor.
Tekrar teşekkürler.

 

[RONIN1]

Merhaba

A2 hücresinde kola kelimesi var ise kaçıncı karakterde olduğunu yazar. yok ise hata verir.

=FIND("kola";A2)

=BUL("kola";A2)

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?

Sub Ara()
Bulunacak = Application.InputBox("Lütfen Aradığınız Sözcüğü Yazınız.", "ARANAN")
If Bulunacak = False Then Exit Sub
    Set Aranan = Range("A:A").Find(Bulunacak, , xlValues, xlPart)
    If Not Aranan Is Nothing Then
        adres = Aranan.Address
        Do
            Cells(Aranan.Row, 2).Value = "Evet"
            Set Aranan = Range("A:A").FindNext(Aranan)
        Loop While Not Aranan Is Nothing And Aranan.Address <> adres
    End If
End Sub

 

[Gamma]

Çok çok teşekkür ederim. Kendi asıl dosyama uyarladım gayet güzel çalışıyor.