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

• #16708 Mutt senior tag Vladek83 #16700

  Új Válasz 2013-02-13 21:17:50 #16708

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz Vladek83 #16700 üzenetére

  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