Questo sito utilizza cookie, anche di terze parti, per migliorare la tua esperienza e offrire servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina o cliccando qualunque suo elemento acconsenti all’uso dei cookie

Rimani informato sugli aggiornamenti di SOS-OFFICE. Inserisci il tuo indirizzo e-mail: Informativa sulla privacy

filtro su fogli di lavoro

Vai
6 Anni 4 Mesi fa #226 da Cavanna
COM_KUNENA_MESSAGE_CREATED_NEW
Buongiorno
scusate se nel formulare la domanda commetto errori ma sono neofita a tutti gli effetti.
ho creato in maniera molto rudimentale una macro per stampare diversi fogli che ho in uno stesso file:
Sub macro2()
Workbooks.Open Filename:=ActiveWorkbook.Path & "\"nome file".xls"
Response = MsgBox(prompt:="Select 'Yes' or 'No'.", Buttons:=vbYesNo)

If Response = vbYes Then
MsgBox "You selected 'Yes'."
Sheets.PrintOut
Else

MsgBox "You selected 'No'."
End If
ActiveWorkbook.Close
End Sub

pero' vorrei poter filtrare i fogli prima di stamparli, sia per formato che per colore etichetta
si puo' fare?
grazie in anticipo

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
6 Anni 4 Mesi fa - 6 Anni 4 Mesi fa #227 da Alessandra
COM_KUNENA_MESSAGE_REPLIED_NEW
Ciao
non mi è chiaro cosa intendi per filtrare per formato.

Per quanto riguarda il colore dell'etichetta del foglio, la puoi conoscere leggendo la proprietà tab.color del foglio

Ad esempio, per stampare solo i fogli con etichetta rossa

Public Sub stampa()
Dim foglio As Worksheet

For Each foglio In Worksheets

If foglio.Tab.Color = vbRed Then

foglio.PrintOut

End If

Next
End Sub
Last edit: 6 Anni 4 Mesi fa by Alessandra.

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
6 Anni 4 Mesi fa #228 da Cavanna
COM_KUNENA_MESSAGE_REPLIED_NEW
Buongiorno Alessandra
Nel mio file sono presenti fogli nominati con un numero e fogli nominati con testo. Vorrei stampare solo quelli con il numero e con linguetta senza colore.
Spero di essere stato chiaro
Grazie mille buona giornata
Franco

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
6 Anni 4 Mesi fa #229 da Alessandra
COM_KUNENA_MESSAGE_REPLIED_NEW
Per vedere se un valore è un numero, puoi usare la funzione isNumeric. Quindi, mettendo insieme quello che abbiamo detto prima con la verifica del nome numerico, puoi fare così


Dim foglio As Worksheet

For Each foglio In Worksheets
If IsNumeric(foglio.Name) And foglio.Tab.Color = False Then

foglio.PrintOut

End If
Next

Si prega Accedi o Crea un account a partecipare alla conversazione.

Vai
6 Anni 4 Mesi fa #230 da Cavanna
COM_KUNENA_MESSAGE_REPLIED_NEW
Grazie mille
A presto
Franco

Si prega Accedi o Crea un account a partecipare alla conversazione.

Tempo creazione pagina: 0.349 secondi
Powered by Forum Kunena
Joomla templates by a4joomla