Hücre seçince renkle doldurma

[Conqueror20]

iyi akşamlar,
ekteki dosyada
b2 hücresi seçilirse f22 hücresini mavi
b3 hücresi seçilirse f33 hücresini mavi
b4 hücresi seçilirse f44 hücresini mavi yapmak istiyorum

 

[Conqueror20]

iyi akşamlar,
b2 hücresi seçilirse f22 hücresini mavi
b3 hücresi seçilirse f33 hücresini mavi
b4 hücresi seçilirse f44 hücresini mavi yapmak istiyorum. Bana yardımcı olur musunuz

 

[Conqueror20]

iyi akşamlar,
b2 hücresi seçilirse f2 : p2 hücresini mavi
b3 hücresi seçilirse f3 : p3 hücresini mavi
b4 hücresi seçilirse f4 : p4 hücresini mavi yapmak istiyorum. Bana yardımcı olur musunuz

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("F2:P4").Interior.ColorIndex = 0
    Select Case Target.Address(0, 0)
        Case "B2": Range("F2:P2").Interior.ColorIndex = 8
        Case "B3": Range("F3:P3").Interior.ColorIndex = 8
        Case "B4": Range("F4:P4").Interior.ColorIndex = 8
    End Select
End Sub