iyi akşamlar,
ekteki dosyada
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
arkadaşlar yokmu yardım edecek
Sn:Conqueror20
Aşağıdaki kodu kullanabilirsiniz.
Function InRange(Range1 As Range, Range2 As Range) As Boolean
Dim InterSectRange As Range
Set InterSectRange = Application.Intersect(Range1, Range2)
InRange = Not InterSectRange Is Nothing
Set InterSectRange = Nothing
End Function
Sub ColourChange()
If InRange(ActiveCell, Range("B2:B65536")) Then
Cells.Interior.ColorIndex = xlNone
Range("F" & ActiveCell.Row, "P" & ActiveCell.Row).Interior.ColorIndex = 4
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call ColourChange
End Sub