Reposted : VBA CODE FOR TABLE FORMATTING

[shoun2502]

I need a help with the below mentioned code. As the code runs well . Further I need to incorporate the following points.


1. Outside border as Color white
2. In table alternate rows RGB (211 217 222). I meant 1, 3, 5 ROWS etc.
3. 2, 4, 6 rows as .Interior.Color = RGB(234, 237, 239)


Keeping the below formatting intact.


Sub All_Tables_All_Sheets_New()
Dim T As ListObject
Dim c As Long
Dim i As Long
For i = 1 To Sheets.Count
For Each T In Sheets(i).ListObjects
With T.DataBodyRange
c = .Columns.Count
.Interior.Color = RGB(234, 237, 239)
.Font.Size = 11
.Name = "Calibri"
.Font.Color = RGB(89, 89, 89)
.Columns(1).Interior.Color = RGB(0, 39, 77)
.Columns(1).Font.Color = vbWhite
.Columns(1).Font.Bold = True
.Rows(1).Interior.Color = RGB(0, 39, 77)
.Rows(1).Font.Color = vbWhite
.Rows(1).Font.Bold = True
.Rows.Borders.LineStyle = xlContinuous
.Rows.Borders.Color = vbWhite
.Rows.Borders.Weight =3
End With
Next
Next
End Sub


I look forward to having your support on the same.

Regards

 

[mole999]

You have four replies at > https://www.mrexcel.com/forum/excel...table-formatting-post5270239.html#post5270239. Your question appears unchanged so I am locking this thread