Takový detail:
ty kluby jsou taky tabulka (kontingencni)
Bohužel to není
taky tabulka, ale je to
Kontingenční tabulka, což je jiný typ objektu než
Tabulka.
Právě proto je obrázek jako příloha nesmysl (i když možná pohodlnější) a kdybyste vložil přílohu rovnou, už byste to měl.
Pokud tu kontingenční tabulku vytváříte jen proto, abyste měl seznam klubů ve formuláři, tak na Vašem místě bych ji zrušil a do modulu formuláře bych vložil kód:
Private Sub UserForm_Initialize()
With Me.ComboBox1
.ListIndex = 0
' .Style = fmStyleDropDownList
End With 'Me.ComboBox1
Dim cClubs As Collection
Set cClubs = New Collection
Dim i As Variant
For Each i In Application.Transpose(ActiveSheet.ListObjects("Tabulka2").ListColumns("klub").Range.Value)
On Error Resume Next
cClubs.Add CStr(i), CStr(i)
On Error GoTo 0
Next i
With Me.ComboBox2
.RowSource = vbNullString
Dim j As Integer
For i = 2 To cClubs.Count
For j = 0 To .ListCount - 1
If cClubs(i) < .List(j) Then
Exit For
End If
Next j
.AddItem cClubs(i), j
Next i
Set cClubs = Nothing
.ListIndex = 0
' .Style = fmStyleDropDownList
End With 'Me.ComboBox2
End Subcitovat
23648_row.jpg
23652_row.zip
RSS nejnovější články