koşullu biçimlendirme ile çapraz çizgi çizmek..

[zetkatamet]

Arkadaslar,
Koşullu biçimlendirme kullanarak, çapraz çizgi çizdirmek istiyorum. Yardımcı olabilirmisiniz.. Dosya ekte.

 

[uzmanamele]

merhaba

standart koşullu biçimlendirme ile yapamazsınız, kod yazmak gerekir ama ne kadar kullanışlı olur bilemiyorum.

 

[zetkatamet]

bilgilendirme icin tesekkurler Suleyman bey, kodla ugrasmaya degmez. baska turlu cozum bulmaya calisacagim.

 

[Ali]

Kodla küçük bir örnek

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H5") = 1 Then
    With Range("B5").Borders(xlDiagonalDown)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = 1
    End With
    Else
    Range("B5").Borders(xlDiagonalDown).LineStyle = xlNone
    End If
End Sub

 

[zetkatamet]

tesekkurler Ali bey, iyi calismalar.