Modifica codice VBA trasposizione

Question

Ciao a tutti !!

Ho necessità di creare un nuovo modulo modificando un codice VBA di un altro modulo gia esistente in modo tale che mi faccia una trasposizione finale con il risultato di avere delle colonne alternate con delle colonne vuote.

Allego screenshot e cartella excel con modulo VBA da modificare

Answer 1

Ciao Torical,

Ciao Torical,

Ho dimenticato di allegare la cartella dove è presente il modulo con relativo codice VBA. https://1drv.ms/x/s!AnRKMq2umMonjFJAOXFKACFJFemU?e=nC0Iph

Sposta il tuo codice dal modulo di codice del oggetto Questa_cartella di lavoro e mettilo in un modulo di codice standard.

Nel tuo codice, sostituisci l'istruzione

Next inCol

con:

Next inCol

Dim i As Long

For i = 2 To wsOut.UsedRange.Columns.Count Step 2

wsOut.Columns(i).Insert

Next i

===

Regards,

Norman

Mi correggo, il codice da inserire dovrebbe essere:

Next inCol 

Dim i as long

For i = wsOut.UsedRange.Columns.Count To 2 Step -1 

    wsOut.Columns(i).Insert 

Next i

Ho aggiornato la mia risposta originale e il file di prova.

===

Regards,

Norman

Answer 2

Ciao Torical,

Eseguendo il codice modificato, il Foglio2 riporta la seguente disposizione dei dati:

Potresti scaricare il mio file di prova Torical2_20220308.xlsm

===

Regards,

Norman

Answer 3

Ciao Torical,

Ho dimenticato di allegare la cartella dove è presente il modulo con relativo codice VBA. https://1drv.ms/x/s!AnRKMq2umMonjFJAOXFKACFJFemU?e=nC0Iph

Sposta il tuo codice dal modulo di codice del oggetto Questa_cartella di lavoro e mettilo in un modulo di codice standard.

Nel tuo codice, sostituisci l'istruzione

 Next inCol 

con:

 Next inCol     

Dim i As Long 

For i = 2 To wsOut.UsedRange.Columns.Count Step 2 

    wsOut.Columns(i).Insert 

Next i 

===

Regards,

Norman

Answer 4

Ho dimenticato di allegare la cartella dove è presente il modulo con relativo codice VBA. https://1drv.ms/x/s!AnRKMq2umMonjFJAOXFKACFJFemU?e=nC0Iph

Answer 5

Ciao Torical,

Ho necessità di creare un nuovo modulo modificando un codice VBA di un altro modulo gia esistente in modo tale che mi faccia una trasposizione finale con il risultato di avere delle colonne alternate con delle colonne vuote.

Allego screenshot e cartella excel con modulo VBA da modificare

Non hai publicato il codice da modificare.

===

Regards,

Norman