adattare contenuto celle con step righe

[raimea]

#10100

ciao

ho questa piccola semplice macro

che partendo da riga 10

mi adatta l altezza delle righe a =17

con salti _step ogni 4 righe

—————

sub altezza ()

Rows(“7:100”).Select

For x = 10 To 100 Step 4

Sheets(“singolo”).Cells(x, 1).RowHeight = 17  ‘ da riga 10

Next

——————–

vorrei aggiungere OLTRE che adattare l altezza,

mettere anche il contenuto grassetto

e carattere a 13  della stessa riga

 

partendo da E10 fino colonna AJ10

ovviamente da ripetere con salti di 4 righe

 

vi allego il file

https://www.dropbox.com/s/lfrxs42ksqp2h4r/test.rar?dl=0

grazie

 

[BySalv]

#10101

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

[raimea]

#10102

ciao

tutto bene

grazie

[Autore]

Post