ho il seguente codice che mi raggruppa le righe che hanno lo stesso codice all'interno di una colonna, e su altre 3 colonne riporta la somma dei valori che c'erano nelle righe con lo stesso codice.
- Codice: Seleziona tutto
Sub UnisciSpedizioni()
vert = Cells(Rows.Count, 4).End(xlUp).Row
oriz = Cells(1, 4).End(xlToRight).Column
Range(Cells(1, 4), Cells(vert, oriz)).Select
Selection.Sort Key1:=Cells(2, 4), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For y = 1 To vert
If Cells(y, 4) = "" Then Exit For
If Cells(y, 4) = Cells(y + 1, 4) Then
Cells(y, 33) = Cells(y, 33) + Space(1) + Cells(y + 1, 33)
Cells(y, 37) = Cells(y, 37) + Cells(y + 1, 37)
Cells(y, 42) = Cells(y, 42) + Cells(y + 1, 42)
Range(Cells(y + 1, 1), Cells(y + 1, oriz)).Select
Selection.Delete Shift:=xlUp
y = y - 1
End If
Next y
Cells(1, 4).Select
End Sub
Il problema è che è molto lento, ma non sono sicuro sia colpa del codice perchè anche un altro codice -molto più semplice di questo- ci mette il suo tempo a operare.
Può essere che il file sia rovinato o che ci siano trope macro insieme? nello stesso file ho 7 macro
grazie mille
