Hücre Çizgileri

[AS3434]

İyi günler.
Formülle veya fonksiyonla şarta uyan hücrelere çizgi çektirebilirmiyiz.

 

[Necdet]

Sayın AS3434,

Koşullu biçimlendirme ile yapılabileceğini düşünüyorum.

 

[Ongun]

Selamlar, buna benzer bir çalışma yapmıştım.

Sheets("Sayfa1").Select
With Range("A2:H500")
.ClearContents
.Font.Bold = False
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
Yukarıdaki kod A2 ve H500 arasındaki çicgileri siliyor, aşağıdaki kod ise A1 hücresinin altını çiziyor. Necdet bey`in dediği gibi koşul yapmanız lazım.

Cells(1, 1).Borders(xlEdgeBottom).LineStyle = 1

Bu verdiğim örnek sadece yol göstermesi için bunu kodlarınıza uyarlamanız lazım. Saygılarımla kolay gelsin.
:hey: