Aranan değeri farkli renge boyanmasi

[MADCAP]

Saygideğer hocalarım,

Bir a1 hucresinden z999999 giden bir excel listesi var. Bu excel listesinde sadece makro ile a sutunlarindaki hucreleri aramak ve istedigim deger var ise farkli renge boyanmasini istiyorum.

Yani ben bir sayi girecem ve o sayi a sutununda var ise bulacak ve direk farkli renge boyayacak. Ancak eger aradigim yok ise hata verecek.( a sutununu boyaya bilir, direk tum satiri olabilir bu cok onemli degil)

İsimi kolaylastirmasi icin, olan degerler ara butonundan otomatik silinirse tekrardan yazdifim degeri silmek zorunda kalmak.


Sizlere örnek koyamadim telefondan yardim istedigimden dolayi.

Değerleri zamanlariniz icin tesekkuru bir borc bilir, iyi aksamlar dilerim.

 

[Ömer]

Merhaba,

Sorunuz net değil. Anladığım kadarıyla bu şekilde deneyin.

Sub Ara_Bul()

    Dim c As Range, Adr As String, aranan
    
    aranan = "excel"[COLOR="DarkGreen"] 'aranan ölçüt[/COLOR]
    
    With Range("A:A")[COLOR="DarkGreen"] 'aranan sütun[/COLOR]
        .Interior.ColorIndex = 0
        Set c = .Find(aranan, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                c.Interior.ColorIndex = 3
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        Else
            MsgBox "Aranan Değeri Bulamadım."
        End If
    End With

End Sub

.

 

[MADCAP]

Teşekkür ederim