di THECAPITAN » 07/03/07 20:42
Ciao Anthony47! Forse ci sono riuscito.
Il mio errore era quello di lasciare tra i nomi delle celle(a,b,c,d,e,f) e le etichette(titolo,genere,anno,posizione,interpreti,commenti) una riga bianca e quindi quando andavo a selezionare le colonne (con riga di intestazione) mi faceva un casino nel senso che mi spostava anche le etichette. Cmq, credo di esserci riuscito perchè la gestione della tabella funziona correttamente. Cmq, per sicurezza ti posto il codice delle macro.
Ti ringrazio molto del tuo interessamento. E' proprio vero non si finisce mai di imparare. Grazie mille. Ciao
Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 07/03/2007 da .
'
'
Columns("B:F").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro registrata il 07/03/2007 da .
'
'
Columns("B:F").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Sub Macro3()
'
' Macro3 Macro
' Macro registrata il 07/03/2007 da .
'
'
Columns("B:F").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Sub Macro4()
'
' Macro4 Macro
' Macro registrata il 07/03/2007 da .
'
'
Columns("B:F").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Sub Macro6()
'
' Macro6 Macro
' Macro registrata il 07/03/2007 da .
'
'
Columns("B:G").Select
Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub