| | Sub FormatTableData() |
| | |
| | Dim c |
| | ' Macro1 Macro |
| | ' Macro recorded 3/2/2010 by skravatz |
| | ' |
| | Sub FixWideColumn() |
| | |
| | |
| | Range("A2").Select |
| | ActiveWindow.FreezePanes = True |
| | |
| | FixWideColumn |
| | ' |
| | For Each c In ActiveSheet.Columns |
| | Range("A2").Select |
| | c.ColumnWidth = 50 |
| | c.WrapText = True |
| | End Sub |
| | |
| | Columns("A:CA").EntireColumn.AutoFit |
| | Next |
| | |
| | 'Copy to clipboard and this will paste in data adding filters and freeze panes |
| | ActiveSheet.Paste |
| | Selection.AutoFilter |
| | Columns("A:A").Select |
| | If c.ColumnWidth > 50 Then |
| | ' |
| | Range(Selection, Selection.End(xlToRight)).Select |
| | End If |
| | End Sub |
| | Sub FormatTableData() |
| | ' |
| | |
| | ActiveSheet.Paste |
| | Range("A2").Select |
| | ActiveWindow.FreezePanes = True |
| | Selection.AutoFilter |
| | Columns("A:A").Select |
| | Range(Selection, Selection.End(xlToRight)).Select |
| | Columns("A:CA").EntireColumn.AutoFit |
| | FixWideColumn |
| | Range("A2").Select |
| | |
| | End Sub |
| | |
| | Sub FixWideColumn() |
| | Dim c |
| | |
| | For Each c In ActiveSheet.Columns |
| | If c.ColumnWidth > 50 Then |
| | c.ColumnWidth = 50 |
| | c.WrapText = True |
| | End If |
| | Next |
| | |
| | End Sub |