• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ara (ctrl+F) renk sorunu

Katılım
9 Ağustos 2014
Mesajlar
85
Excel Vers. ve Dili
2013 türkçe
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.
 
Deneyiniz.

Kod:
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
 
Geri
Üst