Ú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.

• #16701 Excelbarat tag Vladek83 #16700

  Új Válasz 2013-02-13 11:15:35 #16701

  Ú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

  

  Excelbarat

  tag

  válasz Vladek83 #16700 üzenetére

  Ha esetleg a listában az "A" és a "B" oszlop adatait is meg akarod jeleníteni egymás mellett akkor cseréld le a kód végén ezt a sort:
  rTab(i, 1) = r.Offset(, 1)
  erre:
  rTab(i, 1) = r.Offset(, 0) & " " & r.Offset(, 1)

  [ Szerkesztve ]

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