È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

attivazione userform con funzioni

Ultimo Aggiornamento: 22/07/2016 16:58
Post: 10
Registrato il: 16/07/2016
Città: MILANO
Età: 31
Utente Junior
2013
OFFLINE
22/07/2016 16:30

Ho una foglio excel coin quasi 30 schede 11 coppie di schede sono quasi identiche. All'avvio ho creato una userform contenenti 11 checkbox per la selezione di una coppia e le altre 10 coppie vengono nascoste tramite


Sheets("S1").Visible = False


sulla userform ho semplicemente messo


Private Sub workbook_open()
UserForm1.Show
End Sub

la domanda é la seguente: posso impstare l'avvio della userform se in determinate schede e celle c'é il valore 1?


Post: 535
Registrato il: 06/04/2013
Utente Senior
2010
OFFLINE
22/07/2016 16:58

Re:
dartx, 22/07/2016 16.30:

...la domanda é la seguente: posso impstare l'avvio della userform se in determinate schede e celle c'é il valore 1?



Ciao
la risposta è si.
Sempre sull'evento open, qualcosa tipo:

if worksheets("pippo").range("A1")= 1 then userform1.show

Se sono più fogli da controllare le cui celle devono contenere 1, puoi fare la somma di tali celle che, se corrisponde al totale attiva la userform. Per esempio se per avviare la uForm le celle A1 del foglio1, B3 del foglio2 e D6 del foglio3 devono essere impostate a 1, sempre sull'open:

if  worksheets("Foglio1").range("A1") + worksheets("Foglio2").range("B3") + worksheets("Foglio3").range("D6")=3 then ....

saluti

[Modificato da dodo47 22/07/2016 17:01]
Domenico
Win 10 - Excel 2016
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 15:46. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com