[VBA/Excel '07] Riempire comboBox con alcuni fogli lavoro

[leomac]

Salve
dovrei inserire in una combobox solo alcuni fogli lavoro, ad esempio fogli il cui nome inizia con un punto. Ho provato col seguente codice ma nella combobox me li mette tutti senza eccezzione:

fogli = "." & ws
For Each fogli In Worksheets
ComboBox3.AddItem fogli.Name
Next

Grazie mille

[nicola75ss]

....
For Each fogli In Worksheets
    If Mid(fogli.Name, 1, 1) = "." Then
        ...............
    End If
Next fogli
....

P.S. Non ho avuto ancora modo di provare il codice che mi hai mandato. Sorry.

[leomac]

come sempre thx nicoO.
posto:

For Each ws In Worksheets               'per ogni ws (=foglio) excel presente nell'insieme di fogli (=worksheet)
    If Mid(ws.Name, 1, 1) = "." Then    'se il nome del foglio (ws.Name) ha come prima lettara il "."
        foglio = Mid(ws.Name, 2)        'definisco foglio = ...
        ComboBox3.AddItem foglio        'Aggiungo in combobx tutti i fogli con il "." senza il punto nel testo
    End If
Next

P.S.: certe volte le funzioni nn le ricordo prorpio... :master:
P.P.S.: N.P. fai con comodo

thx

[nicola75ss]

Prego. Sebbene al lato pratico sia la stessa cosa è più corretto usare la funzione left()

If Left(ws.Name, 1) = "." Then

[leomac]

O.K. prendo atto e correggo.