Aiuto per un commandbutton1

Hai un problema con Excel?

Nuova discussione

Aiuto per un commandbutton1
di Sal (utente non iscritto) data: 17/04/2012
Buon giorno a tutti
ho bisogno di un aiutino su una macro che ho fatto:

ho 2 fogli: foglio1 e foglio2 protetto senza password

nel foglio1 ho creato un commandbutton1 al quale è assegnato il codice vba di cui sotto.

praticamente vorrei che cliccando sul bottone si avverino le seguenti condizioni:
- mi passa al foglio2
- mi toglie la protezione
- mi ordina determinate colonne (nel caso dalla a alla t)
- si posiziona sulla cella a1
- mi rimette la protezione
- ritorna sul foglio1

va tutto bene se la macro la assegno ad un disegno (esempio un rettangolo o altro) ma assegnata al bottone non funziona, mi viene errore e la macro si ferma (colorando di giallo) sulla stringa:

selection.sort key1:=range("t1"), order1:=xlascending, key2:=range("a1") _
, order2:=xlascending, header:=xlno, ordercustom:=1, matchcase:=false, _
orientation:=xltoptobottom

ho provato anche a sostituire: selection.sort ke1…… con
sheets("foglio2").columns("a:t").sort key1 ……
ma non funziona!
spero di essere stato chiaro.
qualcuno sa aiutarmi?
ciao e grazie a tutti.

Private Sub CommandButton1_Click()

Worksheets("Foglio2").Activate
Worksheets("Foglio2").Select
ActiveSheet.Unprotect

    Sheets("Foglio2").Columns("A:T").Select
    Selection.Sort Key1:=Range("T1"), Order1:=xlAscending, Key2:=Range("A1") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom
    Range("A1").Select
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("Foglio1").Select

End Sub

di Patel (utente non iscritto) data: 18/04/2012
Allega il file che facciamo prima
di Sal (utente non iscritto) data: 18/04/2012
Ho allegato un file di prova

come puoi verificare, se clicco sul commandbutton da' errore
se clicco sul rettangolo funziona bene

il codice vba è lo stesso!
ciao grazie
di Sal (utente non iscritto) data: 18/04/2012
Il file corretto è quello denominato "file"

grazie
ciao
di Patel (utente non iscritto) data: 19/04/2012
Strano, a me funzionano ambedue
di Sal (utente non iscritto) data: 19/04/2012
Forse dipende dalla versioen excel !

io uso excel 2000

chissà !

ciao comunque grazie
di Patel (utente non iscritto) data: 19/04/2012
La prova l'avevo fatta con libreoffice e funzionava, ora ho provato con excel 2010 e col pulsante da errore, prova il file allegato

Vuoi Approfondire?