| | Post: 57 | Registrato il: 04/03/2017
| Città: MILANO | Età: 44 | Utente Junior | 2010 | | OFFLINE | |
|
31/10/2020 19:41 | |
Salve a tutti e grazie mille per tutti gli aiuti che fin qui mi vete dato!!
Ma avrei una richiesta:
io ho all'interno di una cartella di lavoro ho diversi fogli; ad es. Foglio1, poi foglio2 , foglio3 ecc.. e il foglio4 è nascosto.
Io ho creato nel foglio1 una un pulsante che ha in attivo una macro che cliccando mi apre una userform; la userform è popolata da una listbox che mi mostra l'elenco di tutti i fogli sia visibili che nascosti e un pulsante per lanciare la stampa.
Quindi io seleziono i fogli da voler stampare all'interno della listbox e con il pulsante avvio l'anteprima di stampa, e tutto funziona, ma io dovrei vedere nella listbox solo i fogli visibili e non quelli nascosti come ora.
Ovvero i fogli1 ,foglio2,foglio3, mentre il foglio4 non si deve vedere nella listbox.
Allego il codice che uso ora:
Private Sub UserForm_Initialize()
Dim n As Integer
Do
n = n + 1
ListBox1.AddItem Sheets(n).Name
Loop Until n = Worksheets.Count
End Sub
cosa sbaglio?? grazie |
|
|
01/11/2020 13:20 | |
Penso dovrebbe essere simile... Sub a()
Dim n As Integer
n = 1
Do
If Sheets(n).Visible = True Then ListBox1.AddItem Sheets(n).Name: n = n + 1
Loop Until n = Worksheets.Count
End Sub |
| | Post: 57 | Registrato il: 04/03/2017
| Città: MILANO | Età: 44 | Utente Junior | 2010 | | OFFLINE | |
|
01/11/2020 17:49 | |
grazie mille sono riuscito adattando un pochino il tuo codice Grazie mille.
Private Sub UserForm_Initialize()
Dim n As Integer
Do
n = n + 1
If Sheets(n).Visible = True Then ListBox1.AddItem Sheets(n).Name
Loop Until n = Worksheets.Count
End Sub
|
|
|