Ara (ctrl+F) renk sorunu

[muratkayabasi82]

Excel sayfamda çok veri var. Arattirdigim kelimeyi gri renk olarak belirttigi için bulmakta güçlük cekiyorum. Hücreyi gri degil de kırmızıya boyamasi mümkün mü? Lütfen yardim.

 

[Korhan Ayhan]

Deneyiniz.

Sub VERİ_BUL()
    Dim Bul As Range, Aranan As Variant, Adres As String, Say As Variant
    
    Cells.Interior.ColorIndex = False
    
    Aranan = Application.InputBox("Aramak istediğiniz veriyi giriniz...", "BUL")

    Set Bul = Cells.Find(Aranan)
    If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
            Bul.Interior.ColorIndex = 3
            Set Bul = Cells.FindNext(Bul)
            Say = Say + 1
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
        MsgBox Say & " adet veri bulundu!", vbInformation
    Else
        MsgBox "Aranan veri bulunamadı!", vbExclamation
    End If
End Sub

 

[muratkayabasi82]

Teşekkürler