Excel - Comandi "fantasma"

[Flash30005]

In un foglio di excel con due pulsanti Start e Stop (Ferma) ho creato queste macro:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then GoTo Esci
VariaPausa = 1
ActiveSheet.Shapes("Start").Visible = False
ActiveSheet.Shapes("Ferma").Visible = True
Call MacroX
Esci:
End Sub
---------------------------------------------
Private Sub Start_Click()
VariaPausa = 1
ActiveSheet.Shapes("Start").Visible = False
ActiveSheet.Shapes("Ferma").Visible = True
'ActiveSheet.Range("A3").Select
Call MacroX
End Sub
---------------------------------------------
Private Sub Ferma_Click()
VariaPausa = 0
ActiveSheet.Shapes("Start").Visible = True
ActiveSheet.Shapes("Ferma").Visible = False
End Sub

-----------------------------------------------------------
La prima si attiva inserendo un dato in A2 mi rende invisibile il pulsante Start e visibile il pulsante Stop (Ferma) e continua con la macroX
Però premendo il pulsante Stop con il codice Ferma_click il pulsante Start diventa visibile ma non diviene invisibile il pulsante Stop e rimangono visibili sia lo Start che lo Stop, la stessa cosa succede se premo il pulsante Start.

Da quello che ho potuto constatare è che il comando è solo una visualizzazione in quanto il pulsante che doveva divenire invisibile non esiste in realtà (risulta disabilitato) come se fosse un "fantasma"

Come posso fare per far funzionare questi codici?

Ciao

[pietrol]

Ciao flash30005

prova a spostare le macro sotto l'evento MouseUp, durante l'evento Click il tasto non riesce a nascondersi perchè ancora non è stato rilasciato dal mouse.

In alternativa potresti usare solo un pulsante cambiandogli il testo e di conseguenza il comportamento, qualcosa tipo:

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "Start" Then
        'fai qualcosa
        CommandButton1.Caption = "Ferma"
    Else
        'fai qualcos'altro
        CommandButton1.Caption = "Start"
    End If

End Sub



ciao
pietrol

[Anthony47]

Se le forme in discussione sono dei commandbutton dove la proprieta' Name e' stata definita come Start e Stop allora invece di questo:
ActiveSheet.Shapes("Start").Visible = False
ActiveSheet.Shapes("Ferma").Visible = True
puoi mettere un codice come questo, nel codice di gestione del click:

Codice: Seleziona tutto

Stop.Visible = True 
Start.Visible = False

Ciao.

[pietrol]

Ciao
errata corrige

prova a spostare le macro sotto l'evento MouseUp, durante l'evento Click il tasto non riesce a nascondersi perchè ancora non è stato rilasciato dal mouse.

non è vero, ha ragione Anthony, basta modificare le istruzioni come da lui indicato.

ciao
pietrol

[Anthony47]

ha ragione Anthony, basta modificare le istruzioni come da lui indicato.

Speriamo che Flash possa confermare, pero'!

Ciao.

[Flash30005]

ha ragione Anthony, basta modificare le istruzioni come da lui indicato.

Speriamo che Flash possa confermare, pero'!

Io confermo: quei codici sono stati un ottimo requiem ora i fantasmi non ci sono più


Grazie Pietrol e Anthony
(Ho un altro argomento che non ha a che fare con i pulsanti ma il sincronismo tra una cella formattata in hh:mm con l'orario del Pc)

Ciao