| | Post: 35 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
12/02/2017 11:25 | |
Gent.mi,
sono a chiedere gentilmente un suggerimento per ottenere il seguente risultato.
In una Userform ho tre pulsanti e gradirei che il primo vada al foglio2 alla riga D20, il secondo al foglio2 alla riga D68 ed il terzo sempre al foglio2 alla riga D105.
Per ottenere ciò, e non so se è fatto bene, ho usato i seguenti codici:
1° pulsante
Foglio2.Select
Foglio2.Range("D20").Select
2° pulsante:
Foglio2.Select
Foglio2.Range("D68").Select
3° pulsante
Foglio2.Select
Foglio2.Range("D105").Select
Non riesco ad ottenere il seguente risultato:
nel foglio2, ho inserito n. 3 pulsanti alle righe: 66,103,146 che dovrebbero: chiudere il foglio2 e richiamare UserForm.
Fiducioso, ringrazio dell'aiuto.
|
|
| | Post: 968 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Senior | 365 | | OFFLINE |
|
12/02/2017 12:13 | |
ciao
per attivare il form
Private Sub CommandButton3_Click()
Application.WindowState = xlMinimized
UserForm1.Show
End Sub
per andare al foglio
Private Sub CommandButton1_Click()
Application.WindowState = xlMaximized
Sheets("Foglio2").Select
Range("D20").Select
Me.Hide
End Sub
per nascondere il form [Modificato da federico460 12/02/2017 12:24] |
| | Post: 35 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
12/02/2017 15:15 | |
Buongiorno Federico460,
nel ringraziare per la cortesia e tempestività, il tutto funziona e al codice che mi hai suggerito mi da errore.
Gradirei se è possibile che il foglio 2 rimanga nascosto o invisibile e dovrebbe apparire cliccando sull'icona (?) dell'UserForm.
Cliccando sul bottone del foglio 2 oltre ad aprire l'UserForm, che mi apre, dovrebbe nascondere il foglio2.
Auguro che si possa realizzare e nell'equivoco invio il file.
Mi scuso se approfitto, saluto.
|
| | Post: 3.698 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
12/02/2017 15:29 | |
non ho capito, dici che il tutto funziona e poi che dà errore, quale errore ?
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 36 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
12/02/2017 16:00 | |
Buongiorno Patel,
l'errore che mi dava è su "Me.Hide" del codice di Federico; forse ho sbagliato nell'inserire il codice.
Comunque al momento dall'allegato inviato, sembra che vada bene e gradirei un'occhiata al codice se va bene ed applicare se è possibile le modifice come specificato al post precedente.
Ringrazio della cortesia e mi scuso. |
| | Post: 969 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Senior | 365 | | OFFLINE |
|
12/02/2017 16:13 | |
Ciao
va bene no?
a parte che hai un modulo con scritto
Sub Chiudi()
UserForm1.Show
End Sub
non è che si chiuda eh!
comunque ho provato anche
Private Sub Image1_Click()
Foglio2.Select
Foglio2.Range("D20").Select
Me.Hide
End Sub
e funziona
anche se a te non interessa nasconderlo a vedere
il file |
| | Post: 37 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
12/02/2017 16:25 | |
Gent.mo Federico460,
ringrazio, naturalmente questo è una prova da inserire in un programma.
Ho fatto le varie modifiche il tutto va bene alla prossima
saluto. |
| | Post: 970 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Senior | 365 | | OFFLINE |
|
12/02/2017 16:34 | |
Ciao
vedi se va bene
https://www.dropbox.com/s/t92dwlf7q2c01lx/richiama.xlsm?dl=0
ho utilizzato pulsanti activex |
| | Post: 38 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
12/02/2017 17:08 | |
Gent.mo Federico460,
ringrazio della gentilezza e premura.
Perfetto ed è meglio con i pulsanti activex che purtroppo non ho mai usato.
In rete al momento non sono riuscito a trovare una guida per l'uso e faresti una cortesia tempo permettendo di spiegare dettagliatamente l'uso dove si inseriscono i codici ed ecc.
Nuovamente ringrazio e scusa se approfitto. |
| | Post: 39 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
13/02/2017 13:02 | |
Buongiorno,
chiedo scusa se riapro la discussione sull'applicazione che va bene e che gradirei modificarla aggiungendo una modifica in:
> Questa cartella di lavoro: "Application.Visible = False".
All'apertura dell'applicazione i fogli di lavoro non sono visibili ad eccezione dell'UserForm e mi va bene.
Non riesco a rendere visibile premendo la prima icona "1", il foglio 2. Ho fatto diversi tentativi senza riuscire.
Ringrazio per l'aiuto, saluto. |
|
|