• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Rowsource v Combobox

Zaslal/a rinma 16.2.2015 9:43

ahoj, v comboboxu pro jmeno a prijmeni mam rowsource seznam[prijemni a jmeno], to stejne chci zapsat do comboboxu pro kluby, ale tam to nejde. bere si to data z jinehoé listu, jak to mam zapsat? to co mam na obrazku funguje, ale chci to stylem, ze to bude brat polozky podle poctu. je to na strance kluby v tabulce klub. kluby[klub]?

Příloha: 23648_row.jpg (100kB, staženo 36x)

Zaslat odpověď >

---

eLCHa(16.2.2015 12:29)#023649

Zase příloha jako obrázek, s tím se fakt bezva pracuje...

A v čem je problém. V prvním případě máte oblast převedenou na tabulku, která obsahuje sloupec příjmení a jméno. Tak totéž proveďte s oblastí, která obsahuje sloupec klub. Převeďte ji na tabulku.citovat

rinma(16.2.2015 13:29)#023650

ty kluby jsou taky tabulka (kontingencni), na jinem listu, list kluby. ten zapis mi nefunguje z druheho listu.

Příloha: 23650_klub.jpg (93kB, staženo 32x)

citovat

marjankaj(16.2.2015 13:52)#023651

rinma napsal/a:

ty kluby jsou taky tabulka (kontingencni), na jinem listu, list kluby. ten zapis mi nefunguje z druheho listu.Příloha: 23650_klub.jpg

My si tu prílohu predstavujeme inak. Súbor v exceli nemáš?citovat

rinma(16.2.2015 14:35)#023652

tady jsem to nasimuloval, chci, aby to bralo seznam z liszu kluby, protoze tam nejsou duplicitni hodnoty, z tabulky2 to umim, napisu tabulka2[klub], ale u te kontingencni mi to nefunguje

Příloha: 23652_row.zip (25kB, staženo 30x)

citovat

eLCHa(17.2.2015 8:25)#023657

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

rinma(17.2.2015 8:32)#023658

dekuji za odpoved, vyzkousimcitovat

rinma(18.2.2015 8:14)#023688

ahoj, tohle neni presne to, co bych chtel. ja chci, at rowsource v Combobox2 je A3: posledni plny radek, nebo zkousel jsem tam dat do bunky C3 counfif, tak treba rowsource A3: A(C3). ale nevim, jak to zapsat a jestli to jde. neco jsem nasel na netu, vyzkousel, ale nefunguje.

Příloha: 23688_row2.zip (26kB, staženo 30x)

citovat

eLCHa(18.2.2015 8:58)#023689

@rinma
Já vím co chcete. Sice nevím, proč to chcete, když výsledek bude stejný jako u kódu, který jsem vložil (a ušetříte KT), ale když to chcete...

Najděte si na netu něco jak dynamická pojmenovaná oblast (název), vytvořte si ho a ten pak vložte do RowSource.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse