Excel Forum

	Soluzioni Excel Domande e Risposte
		Rendere visibile un foglio di lavoro.

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Rendere visibile un foglio di lavoro.

Ultimo Aggiornamento: 21/02/2017 10:34

digito

Post: 41

Registrato il: 27/04/2005

Utente Junior

Excel 2010

OFFLINE

20/02/2017 11:13

00#1

Gent.mi,

sono a chiedervi gentilmente se è possibile ottenere:

in Excel 2010 ho 15 fogli di lavoro ed una UserForm.

con il seguente codice:

- Application.visible = False.

regolarmente i fogli non vengono visualizzate ed appare regolarmente l'UserForm1.

Gradirei con un pulsante, inserito all'UserForm, che un foglio per es. Foglio9 apparisse nascondendo UserForm.

ho applicato il seguente codice con esito negativo:

- Foglio9.application.visible = True
o
- Foglio9.visible = True
- UnLoad UserForm1

e dal Foglio9, con un pulsante rendere invisibile il foglio9 richiamando UserForm1.

Ringrazio e con cordialità saluto.

patel45

Post: 3.706

Registrato il: 13/03/2012

Città: LIVORNO

Età: 78

Utente Master

2010

OFFLINE

20/02/2017 11:17

00#2

allega un file di esempio da testare, io farei

Application.visible = True
Sheets("Foglio9").select
UserForm1.Hide

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta

digito

Post: 41

Registrato il: 27/04/2005

Utente Junior

Excel 2010

OFFLINE

20/02/2017 12:16

00#3

Gent.mo Patel,

invio il file e scusa per non averlo fatto prima pensando che fosse semplice ma....

il codice in se funziona e gradirei che alla visualizzazione del foglio9 gli altri non dovrebbero essere visualizzati.

al pulsante del foglio9, che regolarmente richiama UserForm1, il foglio9 dovrebbe non essere visualizzato.

Nel ringraziarti dell'aiuto, saluto.

Download (380 KB)

patel45

Post: 3.707

Registrato il: 13/03/2012

Città: LIVORNO

Età: 78

Utente Master

2010

OFFLINE

20/02/2017 18:04

00#4

Private Sub Button2_Click()
Application.Visible = True
For Each sh In Sheets
  If sh.Name <> "Foglio9" Then sh.Visible = False
Next
UserForm1.Hide

End Sub

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta

digito

Post: 42

Registrato il: 27/04/2005

Utente Junior

Excel 2010

OFFLINE

21/02/2017 10:34