EXCEL VBA: Rowsource problem

Question

Buongiorno a tutti e grazie in anticipo per l'aiuto.

Ho un problema nel popolare una listbox a partire da una tabella.

Il problema sorge perchè ho la necessità che la listbox venga popolata esclusivamente dalle righe della tabella che risultano visibili avendo prima applicato un filtro sulla tabella. 

Grazie

Answer 1

Immaginando (tu non lo specifichi) che la tua tabella inizi da A1 nel Foglio1 e che la tua Listbox sia in una UserForm e che lo voglia fare tramite un CommandButton:

Private Sub CommandButton1_Click()

    Dim sh As Worksheet

    Dim rng As Range

    Dim lCol As Long

    Application.ScreenUpdating = False

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    Set rng = sh.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)

    lCol = rng.Columns.Count

    With Me.ListBox1

        .ColumnCount = lCol

        .Clear

        rng.Copy

        ThisWorkbook.Worksheets.Add

        ActiveSheet.Range("A1").PasteSpecial

        Set rng = ActiveSheet.Range("A1").CurrentRegion

        Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1)

        .List = rng.Value

    End With

    With Application

        .DisplayAlerts = False

        ActiveSheet.Delete

        .DisplayAlerts = True

        .ScreenUpdating = True

    End With

    Set rng = Nothing

    Set sh = Nothing

End Sub

Answer 2

Bene!

Ciao.

Answer 3

Scusami....non avevo letto bene....

GRAZIEEEE

Answer 4

Immaginando (tu non lo specifichi) che la tua tabella inizi da A1 nel Foglio1 e che la tua Listbox sia in una UserForm e che lo voglia fare tramite un CommandButton:

Private Sub CommandButton1_Click()

 

    Dim sh As Worksheet

    Dim rng As Range

    Dim lCol As Long

 

    Application.ScreenUpdating = False

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    Set rng = sh.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)

     

    lCol = rng.Columns.Count

     

    With Me.ListBox1

        .ColumnCount = lCol

        .Clear

        rng.Copy

        ThisWorkbook.Worksheets.Add

        ActiveSheet.Range("A1").PasteSpecial

        Set rng = ActiveSheet.Range("A1").CurrentRegion

        Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1)

        .List = rng.Value

    End With

     

    With Application

        .DisplayAlerts = False

        ActiveSheet.Delete

        .DisplayAlerts = True

        .ScreenUpdating = True

    End With

     

    Set rng = Nothing

    Set sh = Nothing

     

End Sub

Grazie mille,

l'unica cosa che non trovo nel listato è proprio l'informazione relativa alla listbox.

Sbaglio io a vedere?