- Katılım
- 20 Haziran 2018
- Mesajlar
- 66
- Excel Vers. ve Dili
- 2019 TR
Merhaba,
bu kod ile excelde seçili hücrenin bulunduğu satır ve sütun vurgulanıyor fakat koşullu biçimlendirme ile renklendirilmiş olan hücrelerde değişiklik olmuyor, koşullu biçimlendirilen hücrede kenarlık yok yine de vurgulama yapılmıyor çözemedim destek rica ediyorum.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:DZ2000")) Is Nothing Then
Range("A1:XFD1048576").Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A1:XFD1048576").Borders(xlInsideVertical).LineStyle = xlNone
Dim intersectCol As Range
Dim intersectRow As Range
Set intersectCol = Intersect(Target.EntireColumn, Range("L5:DZ2000"))
Set intersectRow = Intersect(Target.EntireRow, Range("L5:DZ2000"))
If Not intersectCol Is Nothing Then
intersectCol.BorderAround LineStyle:=xlContinuous, Weight:=xlMedium, ColorIndex:=5
End If
If Not intersectRow Is Nothing Then
intersectRow.BorderAround LineStyle:=xlContinuous, Weight:=xlMedium, ColorIndex:=5
End If
End If
End Sub