digito
00domenica 12 febbraio 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.
federico460
00domenica 12 febbraio 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
digito
00domenica 12 febbraio 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.
patel45
00domenica 12 febbraio 2017 15:29
non ho capito, dici che il tutto funziona e poi che dà errore, quale errore ?
digito
00domenica 12 febbraio 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.
federico460
00domenica 12 febbraio 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
digito
00domenica 12 febbraio 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.
federico460
00domenica 12 febbraio 2017 16:34
Ciao
vedi se va bene
https://www.dropbox.com/s/t92dwlf7q2c01lx/richiama.xlsm?dl=0
ho utilizzato pulsanti activex
digito
00domenica 12 febbraio 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.
digito
00lunedì 13 febbraio 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.