Ciao,
ho un lunghissimo elelnco di valori su una singola colonna che andrebbero trasposti in orrizzontale ma solo su 6 colonne.

MI spiego meglio
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
... dovrebbero diventare
1 2 3 4 5 6
7 8 9 10 11 12
13 14 15... eccetera

l'incolla speciale - trasponi, non è così "elastico"... il registratore di macro non m'aiuta in quanto se uso i riferiemnti relativi
incolla correttamente solo la prima riga. dalla seconda perde il numero "7" ad esempio.
Avete da suggerirmi il codice di una macro che protrebbe aiutarmi?
Grazie infinite

salve
prova questa:

Sub trasponi()
uriga = Cells(Cells.Rows.Count, 1).End(xlUp).Row
xx = uriga Mod 6
If uriga Mod 6 = 0 Then
cont = uriga / 6
Else
cont = Int(uriga / 6) + 1
End If
riga = 1
rigacopy = 1
For n = 1 To cont
Set rng = Range(Cells(riga, 1), Cells(riga + 5, 1))
rng.Copy
Cells(rigacopy, 3).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
riga = riga + 6
rigacopy = rigacopy + 1
Application.CutCopyMode = False
Set rng = Nothing
Next n
Set rng = Nothing
End Sub

saluti
Andrea

---

salve
lieto di esserti stato d'aiuto e grazie per il riscontro.
Da oggi mi prendo un periodo di vacanza.
saluti a tutti
Andrea

---