Kelimeye Göre Hücreyi Renklendirmek

[yavuz829]

Merhaba Arkadaşlar
R1 Hücresine yazdığım kelimeyi J4:W37 hücrelerinde bulsun herhangi bir renkte göstersin.

Örneğin Ahmet bulmak istediğim zanan R1 hücresine Ahm yazdığızman J4:W37 hücrelerinde içinde Ahm kelimesi geçen bütün hücreleri renkli göstersin.
Mbul koşullu biçmlendirme ile yapmaya çalıştım. Yapamadım.

 

[Leoncio]

Merhaba, Aşağıdaki kodları çalışmanıza uyarlayabilirsiniz.
Sub araBul()
Dim i As Integer
i = 1
Set bul = Cells.Find("aranacak kelime", ActiveCell)
If Not bul Is Nothing Then
ilk = bul.Address
Do
bul.Interior.ColorIndex = 24
i = i + 1
Set bul = Cells.FindNext(bul)
Loop While bul.Address <> ilk
End If
End Sub

 

[yavuz829]

Hocam kodu ekledim R1 hücresiye yazdığım kelimeyi otomatikmen bulmuyor. Buton ekledim kodu butona uyguladım butona tıkladığım zaman hata veriyor.

Hocam R1 hücresine yazdığım kelimeyi sayfada direk otomotikmen bulsa çok iyi olur. Saygılar.

 

[Korhan Ayhan]

Hücrenin tamamımı renklenecek yoksa içinde geçen kelimemi renklenecek?

 

[yavuz829]

Hocam Hücrenin tamamını renklendirsin.

 

[Korhan Ayhan]

O zaman işiniz kolay.. Koşullu biçimlendirme ile yapabilirsiniz.

J4:W37 hücrelerini seçin ve koşullu biçimlendirme formül seçeneğini açınız.
Karşınıza gelen pencerede formül bölümüne aşağıdaki formülü uygulayınız.

=MBUL($R$1;J4)

Sonra aynı menüde BİÇİM seçeneğine tıklayın ve dilediğiniz rengi seçip TAMAM tuşlarına basarak işlemi tamamlayınız.

Örnek Dosya

 

[yavuz829]

Hocam Koşullu biçimlendirme Mbul bu dosyamda çalışmiyor.

ötnekI.xlsm

drive.google.com

 

[Korhan Ayhan]

Mesajımda yazdıklarımı birebir yaparsanız olacaktır.

 

[yavuz829]

Taman oldu Çok teşekkürler Hocam eellrinize sağlık.