disposizione su 12 colonne

Hai un problema con Excel?

Nuova discussione

disposizione su 12 colonne
di alek (utente non iscritto) data: 10/06/2016 13:48:41
Salve
ho i 12 mesi dell'anno disposti in colonna B1 su 12000 righe ; dovrei con una macro disporli invece in 12 colonne (i per ogni mese), come si vede dall'esempio dell'allegato, sempre per le 12000 righe o anche più.
Ringraziabdo, saluto cordialmente

Alek

di alfrimpa data: 10/06/2016 15:08:46
Ciao Alek

Prova con la macro che vedi sotto; dovrebbe funzionare.

Alfredo

Sub prova()
Dim rng As Range
Dim cel As Range
Dim col As Integer
Dim ur As Long
ur = Worksheets("Foglio1").Cells(Rows.Count, 2).End(xlUp).Row
col = 1
Set rng = Worksheets("Foglio1").Range("b1:b" & ur)
For Each cel In rng
    cel.Offset(0, col).Value = cel.Value
    col = col + 1
    If col > 12 Then
    col = 1
   End If
Next cel
End Sub

disposizione su 12 colonne
di alek (utente non iscritto) data: 10/06/2016 16:08:20
Va benissimo, però mi dovrebbe iniziare il "Gennaio" sulla colonna D1, non sulla C1.
Ho tentato di modificare la macro, ma non ci riesco.
Acora tante grazie e un cordiale saluto.
Alek

di alfrimpa data: 10/06/2016 16:28:59
Ciao Alek

Modifica la macro come vedi sotto.

Con un po' di ragionamento non era difficile

Alfredo

Sub prova()
Dim rng As Range
Dim cel As Range
Dim col As Integer
Dim ur As Long
ur = Worksheets("Foglio1").Cells(Rows.Count, 2).End(xlUp).Row
col = 2    <====
Set rng = Worksheets("Foglio1").Range("b1:b" & ur)
For Each cel In rng
    cel.Offset(0, col).Value = cel.Value
    col = col + 1
    If col > 13 Then <====
    col = 2 <====
   End If
Next cel
End Sub

disposizione su 12 colonne
di alek (utente non iscritto) data: 11/06/2016 15:11:13
Ti ringrazio innanzitutto per la sollecita tua risposta che mi ha perfettamente risolto il problema.
Ho bisogno però, se possibile, di un altro step per realizzare quanto ho in mente.
Come si vede nell'esempio inviato, i mesi, grazie alla tua macro, sono disposti su 12 colonne a cascata. Per quello che dovtò fare in seguito, mi servono ora su una stessa riga, nella stessa posizione attuale, come indicato nell'esempio, per tutto il proseguimento del foglio, circa 5000 righe complessive.
Quindi ogni 12 righe ci sarà una nuova riga, seguente la riga stessa, formata da altre 12 righe e così via fino alla fine.
Spero di non aver abusato troppo della tua pazienza, ma se riesci a risolvere il problema, te ne sarei veramente grato.
Un ringraziamento e cordiali saluti
Alek

Vuoi Approfondire?