You are here:Home-Domande su Excel VBA e MACRO-adattare contenuto celle con step righe-Rispondi a: adattare contenuto celle con step righe
Rispondi a: adattare contenuto celle con step righe2020-05-21T08:06:39+02:00

Home Forum Domande su Excel VBA e MACRO adattare contenuto celle con step righe Rispondi a: adattare contenuto celle con step righe

BySalvBySalv
Amministratore del forum
    Post totali: 697

    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