Mouse dolaşırken hücre boyama

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Mouse F1 de belirtilen alanda gezinirken B1 alanında örnekteki gibi boyama yapılabilir mi? (fonksiyon ve/ya da makro ile)
Saygılarımla

 

[Muzaffer Ali]

Merhaba.

Sayfanın kod kısmına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range(Range("F1").Text)) Is Nothing Then
        With Range("C:C")
            .FormatConditions.Delete
            .FormatConditions.Add xlCellValue, xlEqual, "=" & Target.Address
            .FormatConditions(1).Interior.ColorIndex = 6
        End With
    End If
End Sub

 

[Tevfik_Kursun]

Sayın Dalgalıkur,
İlginize çok teşekkür ederim. Makbule geçti.
Acaba font rengi için nasıl bir ekleme yapılmalı? Bunu da şimdi sorsam çok ayıp etmiş olur muyum?
Saygılarımla

 

[Muzaffer Ali]

Aşağıdaki kod ile yazı rengi kırmızı olur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range(Range("F1").Text)) Is Nothing Then
        With Range("C:C")
            .FormatConditions.Delete
            .FormatConditions.Add xlCellValue, xlEqual, "=" & Target.Address
            .FormatConditions(1).Interior.ColorIndex = 6
            .FormatConditions(1).Font.Color = -16776961
        End With
    End If
End Sub

 

[Tevfik_Kursun]

Sayın Dalgalıkur,
İlginize çok çok teşekkür ederim.
Saygılarımla