Új hozzászólás Aktív témák

  • Mutt
    senior tag
    válasz Vladek83 üzenetére #16700

    Hali,

    Csináltam én is egy változatot, innen le tudod tölteni.

    A kód pedig:
    Private Sub UserForm_Initialize()
    Dim cella
    Dim elso As Boolean

    'kijelöljük a filter tartományt
    Range(ActiveSheet.AutoFilter.Range.Address).Select

    'több oszlopos listbox-hoz tudnunk kell hogy melyik oszlopot töltjük éppen
    elso = True

    'a kijelölés elemeit elkezdjük feldolgozni
    For Each cella In Selection
    'csak a látható (el nem rejtett) cellák érdekelnek minket
    If cella.EntireRow.Hidden = False Then
    'hozzáadjuk a cella értékét a listához
    If elso Then
    ListBox2.AddItem CStr(cella.Value)
    elso = False
    Else
    ListBox2.List(ListBox2.ListCount - 1, 1) = CStr(cella.Value)
    elso = True
    End If
    End If
    Next cella

    End Sub

    üdv.

Új hozzászólás Aktív témák