Soru ara bul hakkında

[mustafa038]

herkese saygılar.
çalışma sayfasına eklediğim buton ile arama yapıyorum. bulduğu hücreye dolgu yapıyor aşağıdaki kod.
sıkıntı şöyle.
arama yaptığım değerin ilkini buluyor ve onu boyuyor.
ben sayfada bulunan uyan sonuçların hepsine dolgu yapsın istiyorum.
kod şöyle;


Sub BUL()
Dim DEG As String
On Error GoTo HATA
'Range("C3:L600").Interior.ColorIndex = xlNone
DEG = InputBox("Aranacak veriyi giriniz.")
Cells.Find(DEG).Select
Range(Selection, Selection.Offset(0, 0)).Interior.ColorIndex = 7
HATA:
If Err Then
MsgBox "Aradığınız değer bulunamadı."
End If
End Sub

 

[Korhan Ayhan]

Linki inceleyiniz.

Ctrl+F komutu

Excel de ctrl+f komutunda excel dosyası içerisinde arama yaparken bulunan sonucun farklı renk olmasını nasıl sağlayabilirim. Yardımcı olur musunuz ?

www.excel.web.tr