Ciao Raimea, ecco la macro modificata
Sub altezza()
For x = 10 To 100 Step 4 ' salta 4 righe sotto
With Sheets("singolo")
.Cells(x, 1).RowHeight = 17 ' da riga 10
.Range(Cells(x, 5), Cells(x, 35)).Font.Bold = True 'carattere grassetto
.Range(Cells(x, 5), Cells(x, 35)).Font.Size = 13 ' misura del carattere
End With
Next
End Sub
l’altezza della riga basta modificarne una che vale per tutta la riga, mentre per il grassetto
ed il font-size è mirato solo alle celle interessate dalla colonna “E” ad “AJ” appunto 5-35.
si poteva anche usare Range(“E” & x & “:AJ” & x), ma io uso sempre Cells(), in quanto se si devono spostare di colonne resta difficile modificare la “E”.
Ciao By Sal (8-D
Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie