Pulsanti nascosti

Hai un problema con Excel?

Nuova discussione

Pulsanti nascosti
di BaroneRosso (utente non iscritto) data: 24/09/2013 23:16:40
salve devo chiedere aiuto su come nascondere dei pulsanti su fogli di lavoro diversi, provo a fare un esempio:
Foglio1 pulsante Cmd_cerca
Foglio2 pulsante Cmd_cerca
Foglio3 pulsante Cmd_Inserisci
Foglio3 pulsante Cmd_Inserisci2
Sul foglio3 i due pulsanti devono essere nascosti, se sul foglio1 premo il pulsante Cmd_cerca si deve aprire il foglio3 e rendere visibile il pulsante Cmd_Inserisci automaticamente appena esco dal foglio3 il pulsante si deve nascondere, e per essere visibile devo cliccare il pulsante Cmd_cerca presente sul foglio1.
La stessa cosa se clicco il pulsante Cmd_cerca presnte sul foglio2, si deve aprire il foglio3, solo che a questo punto si deve attivare il pulsante Cmd_Inserisci2, appena esco dal foglio3 il pulsante si deve nascondere e per tornare visibile si deve cliccare un altra volta il pulsante Cmd_cerca presente sul foglio2.
Spero che qualcuno mi dia una dritta.
di paolomath data: 25/09/2013 08:11:31
Ciao,

nel codice di Foglio1 pulsante Cmd_cerca:

ActiveWorkbook.Sheets("Foglio3").Activate
ActiveWorkbook.Sheets("Foglio3").Cmd_Inserisci.Visible = True
ActiveWorkbook.Sheets("Foglio3").Cmd_Inserisci2.Visible = False

nel codice di Foglio2 pulsante Cmd_cerca:

ActiveWorkbook.Sheets("Foglio3").Activate
ActiveWorkbook.Sheets("Foglio3").Cmd_Inserisci.Visible = False
ActiveWorkbook.Sheets("Foglio3").Cmd_Inserisci2.Visible = True

Per l'uscita dal Foglio3 potresti anche non interessartene (mica li vedi quando sei su 1 o 2), altrimenti utilizza l'evento Deactivate del foglio.

Bye.
Pulsanti nascosti
di BaroneRosso (utente non iscritto) data: 25/09/2013 18:37:25
Ci siamo quasi paolomath l'unico problema è che i due pulsanti sul foglio3 devono essere nascosti e si deve attivare solo quando si clicca sul pulsante cerca, quando dal foglio3 si clicca sul pulsante Cmd Inserisci il pulsante scatena l'evento ActiveWorkbook.Sheets("Foglio1").Activate a questo punto il pulsante deve diventare invisibile e finche non riclicco il pulsanre cmd Cerca deve rimanere nascosto.
Ho fatto delle prove ma non ci sono riuscito a concludere, spero che mi puoi aiutate grazie
di paolomath data: 25/09/2013 23:15:30
Ciao,

hai provato l'evento Deactivate del Foglio3?

Oppure su click di Inserisci metti:

ActiveWorkbook.Sheets("Foglio3").Cmd_Inserisci.Visible = False

lo stesso per Inserisci2.

Bye
Pulsanti nascosti
di BaroneRosso (utente non iscritto) data: 26/09/2013 10:05:36
Ciao paolomath avevo già provato con ActiveWorkbook.Sheets("Foglio3").Cmd_Inserisci.Visible = False e mi da errore, però forse non mi sono spiegato bene cosa devo fare, ti ricordo che i pulsanti cmd_Inserisci e cmd_Inserisci2 si trovano sul foglio3 e devono essere nascosti.
Appena clicco il pulsante cmd_Cerca che si trovano uno sul foglio1, il pulsante apre il foglio3 a questo punto il pulsante cmd_inserisci deve essere visibile, appena clicco il pulsante cmd_inserisci, il fogli3 si chiude e si riapre il foglio1, a questo punto il pulsante deve tornare ad essere nascosto, e deve tornare ad essere visibile solo quando clicco il pulsante cmd_Cerca posizionato sul foglio1.
La stessa cosa deve fare il pulsante cmd_cerca posizionato sul foglio2 solo che deve attivare il pulsante cmd_inserisci2 posizionato sul foglio3.
Il codice che attiva i fogli quando clicco i relativi pulsanti c’è già, quello che non riesco a fare e nascondere e rendere visibile i pulsanti, tieni conto che i pulsanti cmd_Inserisci e cmd_inserisci2 quando ci clicco sopra copiano ed incollano dei dati nel foglio1 o foglio2.
Per quanto riguarda l'evento Deactivate non so come fare.
Grazie
di paolomath data: 26/09/2013 10:13:46
Potresti allegare un file di esempio?
Pulsanti nascosti
di BaroneRosso (utente non iscritto) data: 26/09/2013 12:24:22
Alledo il file come richiesto, nel frattenpo ho apportato delle modifiche
di paolomath data: 26/09/2013 14:05:33
In fondo a Sub CopiaDati() inserisci prima di ActiveWorkbook.Sheets("Avanzamento Lavori").Activate:

ActiveWorkbook.Sheets("ElencoPrezzi").Cmd_Inserisci_Dati.Visible = False

In fondo a Sub CopiaDati2():

ActiveWorkbook.Sheets("ElencoPrezzi").Cmd_Inserisci_Dati2.Visible = False

Bye.
Pulsanti nascosti
di BaroneRosso (utente non iscritto) data: 26/09/2013 20:10:04
Grazie per l'aiuto adesso funziona tutto

Vuoi Approfondire?