Seçilen Hücrenin Boyanması ve Aynı Değerlere Sahip Olanlar

[ferkuu]

Merhaba üstadlarım

seçtiğim hücrenin tüm satırırnın boyanmasını "=satır()=hücre("sat") " bu kod ile sağlıyorum ancak
aynı zamandada seçtiğim hücrenin içindeki veri başka hücrede de varsa o hücrede boyansın bunu nasıl sağlayabilirim VB olmadan teşekkür ederim

 

[pitchoute]

Formül ile yapılabilir mi? Zannetmiyorum, bilen arkadaşlar formül ile yardımcı olabilirler. Eğer son çara olarak VBA kullanmak isterseniz, işinizi görecektir;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim seciliDeger As Variant
    Dim tumHücreler As Range
    Dim hücre As Range

    Application.ScreenUpdating = False

    Me.Cells.FormatConditions.Delete

    seciliDeger = Target.Value

    Me.Rows(Target.Row).Interior.Color = RGB(255, 255, 0)

    Set tumHücreler = Me.UsedRange

    For Each hücre In tumHücreler
        If hücre.Value = seciliDeger Then
            hücre.Interior.Color = RGB(0, 255, 0)
        End If
    Next hücre

    Application.ScreenUpdating = True
End Sub