Può succedere di avere dei dati estratti da un programma da portare in excel e formattare in una certa maniera a intervalli regolari, mensilmente o settimanalmente. Una macro è proprio quello che ci vuole, cioè un automatismo che prenda una tabella non formattata con un numero di colonne conosciuto ma un numero di righe imprecisato e la trasformi.

Sub Formatta()

‘Impostazione larghezza colonne
Columns(“B:B”).Select
Selection.ColumnWidth = 20
Columns(“C:C”).Select
Selection.ColumnWidth = 15
Columns(“D:D”).Select
Selection.ColumnWidth = 15
Columns(“E:E”).Select
Selection.ColumnWidth = 15

‘Grassetto sulla prima riga
Range(“B3:E3″).Select
Selection.Font.Bold = True

‘Coloro una riga si e una no
x = 4
y = 2
colora = False

Do While Cells(x, y) <> “”

Range(“B” + CStr(x) + “:E” + CStr(x)).Select

If colora Then
colora = False
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Else
colora = True
End If

x = x + 1

Loop

End Sub