You are here:Home-Domande su Excel Generale-Aggiunta righe-Rispondi a: Aggiunta righe
Rispondi a: Aggiunta righe2019-04-05T09:46:21+02:00

Home Forum Domande su Excel Generale Aggiunta righe Rispondi a: Aggiunta righe

BySalvBySalv
Amministratore del forum
    Post totali: 721

    Ciao ecco la macro che fa il lavoro

    Sub InsRiga()
    Dim r, c, d, x
    
    For x = Cells(Rows.Count, 1).End(xlUp).Row - 1 To 2 Step -1
        d = Cells(x, 6)
        Cells(x + 1, 1).Select
        Rows(x + 1 & ":" & x + d).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next x
    End Sub

    questo il link al file
    https://mega.nz/#!JFdUmCjR!IqBKGwd2EpAy3nkh8WGS4lupFTwhXIf7cs_8jMlQnZU

    premi Control+p per vedere il funzionamento della macro

    però non ho capito se deve copiare i dati della riga selezionata, adesso mette solo righe vuote.

    Ciao By Sal :bye:

    Ciao By Sal (8-)
    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie