mi avete fatto (più che aiutato..) una macro che allego, ora mi da errore perchè a forza di immettere dati..
devo allargare il campo:
- Codice: Seleziona tutto
Sub CopiaColonne()
Sheets("RIEPILOGO ORDINI").Select
Columns("A:IV").Clear
Col = 1
For FF = 2 To Worksheets.Count - 8
If Sheets(FF).Name <> "RIEPILOGO ORDINI" Then
Sheets(FF).Range("A:A,B:B,C:C,D:D,E:E,P:P,Q:Q,R:R,S:S,T:T,U:U,V:V").Copy
Cells(1, Col).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(1, Col).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Col = Col + 12
End If
Next FF
Application.CutCopyMode = False
Range("A1").Select
Call partcomm
Call eliformcondordini
Call Compila
Call CONDENSA
Call COSTI
Call DAARRIVARE
Call rimanenti '<<<
End Sub
in particolare mi dice che è impossibile copiare e incollare a causa di dimensioni diverse,io penso di aver finito le colonne...
ossia che
Columns("A:IV").Clear
debba diventare
Columns("A:MZ").Clear ad esempio, ma cambiando solo questo mi da lo stesso errore