Problemi con il comando Cancel

Hai un problema con Excel?

Nuova discussione

Problemi con il comando Cancel
di beppexile data: 01/02/2016 08:37:02
Buongiorno amici di Excel;
stamani mi sono promesso di riordinare e pulire il codice del mio programma, ma ad un certo punto ho avuto un problema.
Siccome il codice sulla userform1 era decisamente lungo, ho deciso di creare tanti moduli quante le sezioni del mio programma e spostare il codice di pulsanti e quant'altro nei rispettivi moduli per poi richiamare quelle porzioni di codice con la funzione Call;

prima era cosi:

Private Sub CommandButton1.Click()
'codice
'codice
'chilometri di codice
End Sub

adesso sono così:

Private Sub CommandButton1.Click()
Call TastoSalva
End Sub

Questo ha reso il file molto più leggibile.

Il problema sta nel codice in basso.
Tentando di spostare anche quello ho sistematicamente errore sul Cancel= True
Ho provato a scrivere anche così:

Userform1.SCARICO_CmbBox_Lotto.Cancel = True

ma ho sempre errore.
Qualcuno sa dirmi come fare e se sia fattibile spostare il contenuto dell'evento Exit della combo in questione in un modulo?

P.S.: Lo so che lo potrei lasciare li dove si trova, ma adesso ho la curiosità se sia una cosa fattibile.

Grazie a tutti

Private Sub SCARICO_CmbBox_Lotto_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If SCARICO_CmbBox_Lotto.ListIndex < 0 Then
        Cancel = True    '<<<<<<<<<<<< il problema sta qui!
        '... altre istruzioni
    Else
        '... altre istruzioni
    End If
End Sub

di patel data: 01/02/2016 11:35:43
dai per scontato che tutti sappiano di cosa stai parlando, io allegherei il file.
di beppexile data: 02/02/2016 08:30:05
Hai ragione patel, ma francamente credevo si capisse.
Allego in file con il commento alle istruzioni da modificare, presenti alle righe:

- Codice Userform1, riga 529
- Modulo M4_Scarico, riga 45

Vorrei effettuare la modifica fatta con le altre sub.

Vuoi Approfondire?