makro ile hücre çizgileri nasıl yapılır

[atunali25]

A dan I ya kadar sütunlar sabit satır sayıları farklı olan sayfalarda tablo çizgilerini nasıl yapabilirim.Makro ile

 

[Hacı Bayram ÖZKAN]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:I20]) Is Nothing Then Exit Sub
Target.Borders.LineStyle = 1
End Sub

 

[atunali25]

sayın tarzanhaci,teşekkürler ancak sorunu çözemedim

 

[Seyit Tiken]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:I20]) Is Nothing Then Exit Sub
If Target.Value > 0 Then Target.Borders.LineStyle = 1
End Sub

Bu şekilde bir deneyiniz.