| | Post: 2 | Registrato il: 18/03/2020
| Età: 56 | Utente Junior | 2016 | | OFFLINE | |
|
  19/03/2020 08:39 | |
Buongiorno ancora. Secondo post
Avrei la necessità sempre con una macro di chiudere ed aprire dei tab di excel.
Vorrei fare in modo che all'attivazione di una macro, questi tab venissero chiusi o aperti a seconda che siano visibili o nascosti.
Io sono riuscito a fare il comando ma funziona solo se sono aperti o solo se sono chiusi.
Inoltre vorrei che il pulsante di comando cambiasse colore a secondo della loro condizione.
Per intenderci Rosso quando visualizzati e Bleu quando nascosti.
C
Grazie a tutti del supporto. |
|
| | Post: 5.856 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
| 19/03/2020 09:25 | |
Ciao manca il file d'esempio
Ciao By Sal ![[SM=x423051]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0031.gif) se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 2.588 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 19/03/2020 10:08 | |
ciao
il seguente codice abbinato ad un pulsante ActiveX, nasconde/scopre il foglio2, cambiando colore al pulsante (verde=visibile - rosso=non visibile).
Private Sub CommandButton1_Click()
If Worksheets("Foglio2").Visible = True Then
Worksheets("Foglio2").Visible = False
ActiveSheet.CommandButton1.BackColor = RGB(255, 0, 0)
Else
Worksheets("Foglio2").Visible = True
ActiveSheet.CommandButton1.BackColor = RGB(0, 255, 0)
End If
End Sub Visto che ci sei, rispondi cortesemente anche all'altro post ?
https://www.freeforumzone.com/d/11685177/FROM-EXCEL-TO-TXT-USANDO-VBA/discussione.aspx
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 2 | Registrato il: 18/03/2020
| Età: 56 | Utente Junior | 2016 | | OFFLINE | |
|
| 19/03/2020 10:38 | |
Buongiorno il file di esempio non lo ho messo perchè pensavo fosse una istruzione semplice per chi se ne intende. Ad ogni modo ubbidisco.
Dal prossimo post provvedo.
Inoltre vorrei ringraziare dell'aiuto pubblicamente ma non so se questa è la sezione corretta.
Fino ad ora risolto tutto perfettamente grazie al tuo supporto.
Grazie.
Ma se sono parecchi i fogli come faccio ad aggiungerli? sono circa 30. Il meccanismo funziona perfettamente, ma se volessi farlo su fogli multipli? [Modificato da Stefano Alx 19/03/2020 10:53] |
| | Post: 2.590 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 19/03/2020 11:40 | |
cioè vuoi visualizzare/nascondere n fogli tutti insieme? sono attigui oppure ? Nel nome hanno qualcosa che li accomuna
[Modificato da dodo47 19/03/2020 11:42] Domenico
Win 10 - Excel 2016 |
| | Post: 4 | Registrato il: 18/03/2020
| Età: 56 | Utente Junior | 2016 | | OFFLINE | |
|
| 19/03/2020 11:45 | |
No non sono attigui e si vorrei nasconderli e o visualizzarli a mia scelta. Mi serve per configurare il mio database in funzione del tipo di evento che andrò a fare.
Non posso allegare il file perchè troppo grande. |
| | Post: 2.591 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 19/03/2020 12:02 | |
se non sono in qualche modo individuabili c'è poco da fare...devi ripetere le istruzioni per tutti i fogli....A MENO CHE:
in ciascun foglio interessato metti in una cella fuori vista una x o quel che vuoi; poi cicli tutti i fogli e se quella cella ha la x li nascondi
pe: cella con la x AA1
for j=1 to sheets.count
if sheets(j).range("AA1") = "x" then
sheets(j).visible=false
etc
etc
OVVIAMENTE nel foglio con il pulsante la x non deve esserci
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 5 | Registrato il: 18/03/2020
| Età: 56 | Utente Junior | 2016 | | OFFLINE | |
|
| 19/03/2020 15:23 | |
Grazie ora provvedo. Non so come ringraziarti. Alla prossima.
Mi dice però che for senza next non funziona. [Modificato da Stefano Alx 19/03/2020 18:47] |
|
|
|
|