You are here:---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: 505

    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:

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi