satır renklendirme

[airborne]

s.a.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    Cells.Interior.ColorIndex = xlNone
    'ActiveCell.EntireColumn.Interior.ColorIndex = 8 'Sütun Rengi
    ActiveCell.EntireRow.Interior.ColorIndex = 4 ' Satır Rengi
    ActiveCell.Cells.Interior.ColorIndex = 8 ' Hücre Rengi
End Sub

kodu ile tüm satır renkleniyor, fakat bu kodun sayfa1 de B4:AG18 arasında çalışması için ne gibi bir düzenleme yapılabilir.

Selametle.............................................

 

[pitchoute]

Aleykümselam, şu şekilde deneyip sonucu paylaşabilir misiniz;

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    On Error Resume Next
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    Dim rng As Range
    Set rng = Me.Range("B4:AG18")
    rng.Interior.ColorIndex = xlNone
    If Not Intersect(Target, rng) Is Nothing Then
        Dim rowRange As Range
        Set rowRange = Intersect(ActiveCell.EntireRow, rng)
        If Not rowRange Is Nothing Then
            rowRange.Interior.ColorIndex = 4 
        End If
        ActiveCell.Interior.ColorIndex = 8 
    End If
End Sub

 

[airborne]

s.a.

Teşekkür ederim. Ellerinize sağlık.

Selametle.............................