You are here:---Rispondi a: [RISOLTO] Aggiunta righe
Rispondi a: [RISOLTO] Aggiunta righe2018-05-17T09:57:44+02:00

Home Forum Domande su Excel Generale [RISOLTO] Aggiunta righe Rispondi a: [RISOLTO] Aggiunta righe

BySalvBySalv
Amministratore del forum
    Post totali: 512

    Ciao Giorgiobi, eccoti la macro che fa il lavoro, ho fatto un piccolo esempio sul foglio 2 riportando pochi codici, ho inserito un pulsante per lanciare la macro.

    Questa la Macro

    Sub dividi()
    
    Dim r, c, x, y, d
    
     
    
    r = Cells(Rows.Count, 1).End(xlUp).Row
    
    For x = r To 2 Step -1
    
    d = Cells(x, 10)
    
    If d = 1 Then GoTo 1
    
    If x = r Then
    
    For y = 1 To d'nel caso qui scrivere "d-1"
    
    Range("A" & x & ":J" & x).Copy Range("A" & x + y)
    
    Next y
    
    Else
    
    Range("A" & x + 1 & ":J" & x + d).Select
    
    'la riga sopra nel caso sostituire con
    
    Range("A" & x + 1 & ":J" & x + (d-1)).Select
    
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    For y = 1 To d'nel caso qui scrivere "d-1"
    
    Range("A" & x & ":J" & x).Copy Range("A" & x + y)
    
    Next y
    
    End If
    
    1 Next
    
    End Sub

    tu fai copia incolla sul foglio2 dei codici che devi creare le etichette e poi lancia la macro.

    Ma ATTENZIONE, una cosa esempio se sono da stampare 2 etichette in effetti ne crea altre 2 cosi diventano 3, se nel caso vuoi che siano solo 2, cioè l’originale piu 1 per fare 2 allora inserisci il “-1” dove ti ho messo i commenti.

    Fai sapere Ciao By Sal  :bye:

    ecco il link al file ho inserito dei numeri etichette a piacere per vedere il funzionamento.

    https://mega.nz/#!QQ13EBpA!hHHKIxzSHf6qkdLajcJtzY8c897_8WVqWyYpq1HFNSY

     

     

     

    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