Kod ile tablo oluşturma...

[pekerl]

Arkadaşlar merhaba!
Acaba istediğimiz uzunluk ve genişlikte bir tabloyu makro ile nasıl oluşturabiliriz!
Kod'u lazım!
Teşekkürler!

 

[guraycakir]

Makro kaydet özelliğinden yararlanabilirsin.

 

[guraycakir]

örnek dosya ekte

 

[isfa5878]

uyarlayabilirseniz şöyle bir kod daha var elimde

sub ()
Range("A3:H13").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1").Select
End sub