Comandi CheckBox

Hai un problema con Excel?

Nuova discussione

Comandi CheckBox
di atis10 data: 07/01/2015 10:11:37
Buongiorno e Buon2015 a tutti!!

vengo subito al dunque,

sto cercando di far girare in una macro un comando che richiami la macro "Salva" se la checkbox nominata "salvainexcel" è spuntata...

allego la stringa che ho partorito (e pasticciato), dove sto sbagliando?

grazie

Luca
If ActiveSheet.CheckBox("salvainexcel") = Checked Then Call Salva
di Lucas87 data: 07/01/2015 10:41:18
Ciao
Prova con
If salvainexcel = True Then Call Salva

di atis10 data: 07/01/2015 11:37:45
non va in errore, ma non mi lancia la macro richiamata...

allego la macro completa...

Sub Esegui_Controlli()

If ActiveSheet.Range("aq5").Value = True Then Call Salva


If ActiveSheet.Range("aq6").Value = True Then Call Stampa_CARTACEO


If ActiveSheet.Range("aq7").Value = True Then Call Stampa_PDFNORMALE


If ActiveSheet.Range("aq8").Value = True Then Call Stampa_PDFCONFIRMA


If ActiveSheet.Range("aq9").Value = True Then Call Stampa_ETI


Sheets("Misure").Select

End Sub

di atis10 data: 07/01/2015 11:41:07
pardon, correggo l'allegato con quello che mi hai suggerito...

sembra girare a vuoto...

Sub Esegui_Controlli()

If salvainexcel = True Then Call Salva


If stampacartaceo = True Then Call Stampa_CARTACEO


If stampapdf = True Then Call Stampa_PDFNORMALE


If stampapdfconfirme = True Then Call Stampa_PDFCONFIRMA


If stampaetichetta = True Then Call Stampa_ETI


Sheets("Misure").Select

End Sub

di Lucas87 data: 07/01/2015 11:51:43
La macro "Salva" viene richiamata correttamente.
Prova a seguire in debug quello che fa il codice
Oppure prova a lanciare la macro Salva da sola e vedere cosa fa
di atis10 data: 07/01/2015 11:58:37
la macro salva funziona, l'ho scritta io e l'ho già utilizzata, ma non la richiama, credo che l'errore sia nel if ... secondo me non riconosce i riferimenti alle varie checkbox...

Luca
di Lucas87 data: 07/01/2015 12:19:36
Se non riconoscesse il riferimento alle checkbox darebbe un errore in quanto non troverebbe l'oggetto.
Hai seguito in debug il corso del codice?
di atis10 data: 07/01/2015 12:31:27
non va in errore, non mi fa fare nessun debug, passa liscio...

una domanda da ignorante...ma non ci vorrebbe un salvainexcel.value = true ? (va in errore scritto cosi...)

ho l'impressione che siano errati i riferimenti...e non trova nessun true quindi passa oltre e basta.

Luca
di Lucas87 data: 07/01/2015 13:00:16
Fai così:
In corrispondenza dell'IF clicca sulla sinistra del codice, compare un pallino rosso.
Fai avviare la macro
L'esecuzione si fermerà sul pallino rosso
Avanza un'istruzione alla volta con il tasto F8 e vedi cosa succede
Dopo l'if dovrebbe passare alla parte di codice della macro salva...
di Vecchio Frac data: 07/01/2015 15:35:00
E' questo che cercate?
if activesheet.shapes("salvainexcel").OLEFormat.Object.Value = True then Salva
Per riferirsi a un oggetto sul foglio (tipo controllo modulo) bisogna usare una sintassi un po' strana.

Vuoi Approfondire?