Combobox: visualizzare dati filtrati

[VisitorsVBA]

Ciao ragazzi,
intanto volevo fare un ringraziamento a tutti per l'ottimo aiuto che mi avete dato e che mi ha permesso di iniziare a imparare il VBA.
Detto questo, vorrei porvi un quesito, cioè, se è possibile visualizzare i dati filtrati di unf oglio excel in un combobox.
Mi spiego meglio:
Sul Foglio1 di excel ho elencato, per colonna, da A a F le marche, i modelli e le cartucce che montano di 3 marche di stampanti.
Aprendo la userform "Cartucce" mi filtra la marca indicata in una casella di testo "Marca" della stessa userform "Cartucce".
Nel combobox vorrei che mi visualizzasse solo i dati filtrati e non tutti, come avviene nel mio caso, con il seguente codice generato:


Dim marca
marca = FrmCartucce.TxtMarca
If marca = "" Then Exit Sub
Worksheets("Foglio1").Select
Range("A1:F1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=marca
FrmCartucce.CmbModelloStampante.RowSource = ""
CmbModelloStampante.RowSource = "Foglio1!$B2:$F65000" 'VISUALIZZA TUTTO INVECE DEL FILTRO

Come posso correggere il codice.

Grazie a tutti.

[Anthony47]

Ciao Visitor, temo che quello che cerchi non si puo' fare in modo diretto; potresti farlo quindi in modo indiretto, copiando i dati filtrati in un' altra area di servizio e usando questa area come RowSource del tuo combobox.

Per copiare i dati filtrati, puoi partire da qualcosa come:

Codice: Seleziona tutto

LRow = Range("A65536").End(xlUp).Row
'
'Qui inserisci le istruzioni di filtro
'
Range("A1:F" & LRow).SpecialCells(xlCellTypeVisible).Copy
Sheets("Foglio11").select      '<<<< Inserire corretto nome foglio
Cells.Select
Selection.ClearContents
Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
'Infine:
CmbModelloStampante.RowSource = ActiveSheet.UsedRange.Address

Prova e fatti sentire.

Ciao.

[Anthony47]

Per evitare equivoci, la cosiddetta "area di servizio" corrisponde al foglio citato in questa istruzione:

Codice: Seleziona tutto

Sheets("Foglio11").select      '<<<< Inserire corretto nome foglio

Se, come tutti noi, non arrivi al Foglio11 o rinomini un foglio (riservato solo a questo scopo) o cambi l' etichetta sull' istruzione.

Ciao.