MS Excel VBA - problem z przeniesieniem wyboru listy rozwijanej do kryterium filtra

Excel 2010 - makro nie działa @ **bag** | **30.04.2014**

1
0
1

Dzień dobry.

Mam listę lokalizacji, spośród których użytkownik może wybrać jedną lub kilka z listy rozwijanej. Pętla sprawdza, które pozycje zostały zaznaczone (warunek: Me.Lista.Selected =true). Chciałbym przenieść pozycje zaznaczone do kryterium filtru wielokrotnego wyboru - porównanie do tablicy tworzonej przez funkcję array. Mam problem ze stworzeniem pętli, która jako argumenty funkcji array wstawi te elementy listy, które zostały wybrane. Poniżej fragment kodu:

Dim TablWybor As Variant
...
For i = 0 To n
If Me.Lista.Selected(i) = True Then

Tu mam problem ze stworzeniem tablicy z elementów listy spełniających powyższy warunek.

'TablWybor = array( Me.Lista.List(0), Me.Lista.List(2),...)

End If
Next i

Selection.AutoFilter
ActiveSheet.Range("A1:Z1000").AutoFilter Field:=3, Criteria1:= _
TablWybor, Operator:=xlFilterValues

Prośba o pomoc w rozwiązaniu problemu.

Dziękuję.
Darek.

#Excel,

Zapytał
@ Dariusz_Gortatowicz | 20.02.2019
- 0
- 0
- 0

1

Spróbuj tak:

Dim TablWybor(), a As Integer

For i = 0 To Me.Lista.ListCount - 1
   If Me.Lista.Selected(i) Then
      ReDim Preserve TablWybor(a)
      TablWybor(a) = Me.Lista.List(i)
      a = a + 1
   End If
Next

Komentarze (1)

Odpowiedział
@ Mirosław_Janiak | 22.02.2019
- 1
- 7
- 1

Komentarze

działa, dziękuję :)

Skomentował : @ Dariusz_Gortatowicz ,22.02.2019

0
0
0

Pytanie