purtroppo va bene fin quando deve tagliare e incollare nell'altro foglio ed ordinare ma quando deve tagliare e incollare da temp a temp1 non succede nulla....
- Codice: Seleziona tutto
Sub temp1_Rettangolo1_Clic()
Dim ra, c As Integer
ra = Worksheets("temp1").Range("d1").Value ' ra è la variabile che indica la lunghezza dell'elenco
For c = 1 To 3
x = Cells(1, c).Formula
If Mid(x, 1, 1) = "=" Then
Range(Cells(1, c), Cells(ra, c)).Select
Selection.Cut
Sheets("temp").Select
Range(Cells(1, c), Cells(ra, c)).Select
ActiveSheet.Paste
Sheets("temp1").Select
End If
Next
Range("A1:c" & ra).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("temp").Select
For c = 1 To 3
y = Cells(1, c).Formula
If Mid(y, 1, 1) = "=" Then
Range(Cells(1, c), Cells(ra, c)).Select
Selection.Cut
Sheets("temp1").Select
Range(Cells(1, c), Cells(ra, c)).Select
ActiveSheet.Paste
Sheets("temp").Select
End If
Sheets("temp1").Select
Next
End Sub