Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Ciao.
Per aprire una UserForm0 uso il seguente codice:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 13 And ActiveCell.Row = 7 Then
UserForm0.Show vbModeless
End If
If ActiveCell.Column = 17 And ActiveCell.Row = 24 Then
UserForm0.Show vbModeless
End If
End Sub
Problema:
Tutte le volte che apro il foglio si apre anche l'UserForm0
e non capisco perché.
Vorrei che il UserForm0 si aprisse solo quando è richiesto: Range("M7") e Range("Q24").
Per piacere potete dirmi dove sbaglio.
Grazie.
Ciao.
Nunzio.
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Risposta accettata dall'autore della domanda
Ciao Mauro.
Ho deciso di abbandonare tutto e di rifare il tutto, aggiornandolo alle nuove esigenze,
in un nuovo UserForm (come il precedente), lo trovo molto più funzionale.
Grazie di tutto.
Alla prossima.
Ciao.
Nunzio.
<cut>
File arrivato.
Se seleziono il foglio Uscite, ottengo un errore a questa riga nell'evento Worksheet_Activate:
Range("B" & d).Select
in quanto da nessuna parte viene specificato il valore della variabile d che tu dichiari As Long, quindi di default ha valore 0 (zero) e la cella B0 non esiste; per capirci:
Public Sub m()
Dim d As Long
MsgBox d
Range("B" & d).Select
End Sub
Ciao Mauro.
Premo F8 e va sempre dall'inizio alla fine di Worksheet_Activate.
Una curiosità: è possibile col tasto Tab saltare da una cella a l'altra.
Grazie.
Ciao.
Nunzio.
Prova a mandarmi il file:
maurogsc
chiocciola
alice.it
Ciao Mauro.
Premo F8 e va sempre dall'inizio alla fine di Worksheet_Activate.
Una curiosità: è possibile col tasto Tab saltare da una cella a l'altra.
Grazie.
Ciao.
Nunzio.
Ciao Mauro.
Ho messo un punto di interruzione in Worksheet_Activate
ed un punto di interruziine in Worksheet_SelectionChange(ByVal Target As Range)
ma il cursore rimane sempre in Worksheet_Activate
e non va mai in Worksheet_SelectionChange(ByVal Target As Range).
Grazie.
Ciao.
Nunzio.
A quale riga si blocca? Ma tu premi F8, vero?