Koşullu Biçimlendirmeye VBA Makrosu Uygulama

[zpawnz]

Merhaba,

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

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.

 

[Muzaffer Ali]

Merhaba.

Koşulu biçimlendirme içinde kenarlık seçeneği de seçilerek biçimlendirilmiş olmalı aksi halde bu kodlar koşullu biçimlendirme olsa bile çerçeveyi çizer.

Daha doğru ve hızlı yanıt almanız için dosyanızı görmemiz lazım.
Dosyanızı dosya.co gibi bir sitede paylaşabilirsiniz

 

[zpawnz]

İndir Gant Shema xlsx

Dosyayı indir Gant Shema xlsx

dosya.co

koşullu biçimlendirmede zaten kenarlık eklemedim amacım da vurgulamak istediğim hücre seçildiğinde sütunu ve satırı kenarlıkla vurgulamak, ama koşullu biçimlendirme üzerine kenarlık eklenmiyor.

 

[Muzaffer Ali]

Koşullu Biçimlendirmelerin hepsinde çerçeve yok seçmişsiniz.
Tüm Koşullu Biçimlendirmeleri tek tek açıp Çerçeve tabındaki Sağ alttaki Temizle butonuna basmalısınız.



Sonuç aşağıdaki gibi olmalı

 

[zpawnz]

Evet temizleyince oldu teşekkürler.