Richiamare UserForm dal pulsante di un foglio di lavoro

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.

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

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.

non ho capito, dici che il tutto funziona e poi che dà errore, quale errore ?

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.

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

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.

Ciao

vedi se va bene
https://www.dropbox.com/s/t92dwlf7q2c01lx/richiama.xlsm?dl=0

ho utilizzato pulsanti activex

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.

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.