excel aramada bulunan hücreyi renklendirme

[fatihhan34]

arkadaşlar; ctr+f aramada buldunan hücreyi nasıl renklendirebiliriz. Aramayı bitirdiğimizde ise renk tekrar silinmek şartıyla.

forumda var ama attachment.php şeklinde açtığı için indiremedim.

teşekkürler

 

[hamitcan]

Bir zamanlar kendim için yaptığım örneği sizinle paylaşayım, belki işinizi görür.

Option Explicit
Dim Alan As Range
Private Sub CommandButton1_Click()
    Dim Ma As Variant
    Dim Mb As Variant
    Dim uMa As Integer
    Dim hcr As Range
    Dim i As Integer
    
    Ma = TextBox1.Text
    uMa = Len(Ma)
    Set Alan = Range(RefEdit1.Text).Cells
        Alan.Font.Size = 11
        Alan.Font.ColorIndex = xlAutomatic
        Alan.Font.Bold = False
    For Each hcr In Alan
    For i = 1 To Len(hcr.Text)
        Ma = IIf(CheckBox1.Value = False, UCase(Ma), Ma)
        Mb = Mid(hcr.Text, i, uMa)
        Mb = IIf(CheckBox1.Value = False, UCase(Mb), Mb)
        If Mb = Ma Then
            hcr.Characters(i, uMa).Font.Size = 14
            hcr.Characters(i, uMa).Font.Color = vbRed
            hcr.Characters(i, uMa).Font.Bold = True
        End If
    Next
    Next
End Sub

Private Sub CommandButton2_Click()
If RefEdit1.Text = Empty Then MsgBox "Bir Aralık Belirlemelisiniz !...": Exit Sub
    Set Alan = Range(RefEdit1.Text).Cells
        Alan.Font.Size = 11
        Alan.Font.ColorIndex = xlAutomatic
        Alan.Font.Bold = False
End Sub

 

[fatihhan34]

teşekkür kardeş ama kod çalışmadı