
r = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 1), Cells(r, 17)).Sort key1:=[g2], Order1:=xlAscending, Header:=xlYes, _
key2:=[c2], Order2:=1, _
key3:=[d2], Order3:=1, _
key4:=[h2], Order4:=2
' fatta in questo modo funziona
Range(Cells(2, 1), Cells(r, 17)).Sort key1:=[g2], Order1:=xlAscending, Header:=xlYes, _
key2:=[c2], Order2:=1, _
key3:=[d2], Order3:=1
|
r = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 1), Cells(r, 17)).Sort key1:=[c2], Order1:=xlAscending, Header:=xlYes, _
key2:=[d2], Order2:=1, _
key3:=[h2], Order3:=2
Range(Cells(2, 1), Cells(r, 17)).Sort key1:=[g2], Order1:=xlAscending, Header:=xlYes
|
