Originariamente inviato da lucio.menci
Be', la routine descritta da nicola75ss allora è più o meno corretta.
Io in genere però le scrivo così:
codice:
Sub Pari
Dim Cella
For Each Cella In Selection
If Cella Mod 2 Then Cella.Value = ""
Next Cella
End Sub
Per quanto riguarda l'ordinamento:
codice:
Sub OrdinaRighe()
Dim Riga
For Each Riga In Selection.Rows
Riga.Sort Key1:=Riga.Cells(1, 1), Orientation:=xlLeftToRight
Next Riga
End Sub
Per creare un paio di pulsanti che eseguono i comandi, hai due scelte:
inserire degli shape (dalla toolbar dei disegni, può essere un rettangolo o un immagine)
inserire un pulsante (dalla toolbar moduli)
Una volta inserito l'oggetto, tasto dx -> Assegna macro -> vai a cercare Pari e OrdinaRighe. Per eseguirle, selezioni l'area su cui vuoi operare e premi il pulsante!
Fatto tutto come volevi?
Ciao
Lucio