< návrat zpět

MS Excel

Téma: Chyba v kódu rss

Zaslal/a marficek119 11.9.2014 19:06

Zdravím, prosím někoho zkušenějšího, zda by mě nepomohl. V níže uvedeném kódu je asi někde chyba, nebo je špatně napsaný. V UF načítám prostřednictvím několika comboboxů data z listu. Po výběru z načtených hodnot vyskočí chybová hláška method or data member not found . Je však zvláštní, že jeden combobox funguje úplně bez problémů, ale ostatní hlásí chybu a přitom je kód u comba vesměs stejný. Díky za radu

Private Sub ComboBox1_Change() 'Výběr betonu
Sheets("Rozpocet").Range("AZ34") = Betonovani_pasu.ComboBox1.ListIndex + 1
End Sub

Private Sub ComboBox10_Change()
Sheets("Rozpocet").Range("AZ90") = Betonovani_pasu.ComboBox10.ListIndex + 1
End Sub

Private Sub ComboBox11_Change()
Sheets("Rozpocet").Range("AZ59") = Betonovani_pasu.ComboBox11.ListIndex + 1
End Sub

Private Sub ComboBox2_Change() 'Výběr cihly 1
Sheets("Rozpocet").Range("BC7") = Betonovani_pasu.ComboBox2.ListIndex + 1
End Sub

Private Sub ComboBox4_Change() 'Výběr cihly 2
Sheets("Rozpocet").Range("BC21") = Betonovani_pasu.ComboBox4.ListIndex + 1
End Sub

Private Sub ComboBox5_Change()
Sheets("Rozpocet").Range("AZ39") = Betonovani_pasu.ComboBox5.ListIndex + 1
End Sub

Private Sub ComboBox6_Change()
Sheets("Rozpocet").Range("AZ51") = Betonovani_pasu.ComboBox6.ListIndex + 1
End Sub

Private Sub ComboBox8_Change()
Sheets("Rozpocet").Range("AZ70") = Betonovani_pasu.ComboBox8.ListIndex + 1
End Sub
Private Sub ComboBox9_Change()
Sheets("Rozpocet").Range("AZ80") = Betonovani_pasu.ComboBox9.ListIndex + 1
End Sub
Private Sub UserForm_Initialize()
'Načtení položek/zdroj pro Comba
ComboBox1.RowSource = "Položky!B812:B830"
ComboBox2.RowSource = "Položky!B8:B30"
ComboBox4.RowSource = "Položky!B8:B30"
ComboBox5.RowSource = "Položky!B410:B415"
ComboBox6.RowSource = "Položky!B416:B423"
ComboBox11.RowSource = "Položky!B1616:B1617"
ComboBox8.RowSource = "Položky!B1214:B1230"
ComboBox9.RowSource = "Položky!B1214:B1230"
ComboBox10.RowSource = "Položky!B812:B830"
End Sub
[/code]

Zaslat odpověď >
cmuch(11.9.2014 19:28)#021552
avatar
To chce spíš přílohu.citovat
marficek119(11.9.2014 19:51)#021553
avatar
Zde je příloha. Userform spouštím z listu rozpocet. Díky
Příloha: zip21553_sesit1.zip (192kB, staženo 20x)
citovat
cmuch1(11.9.2014 20:27)#021555
avatar
Na formuláři Betonovani_plata máš u jednotlivých cmb Betonovani_pasu...., nahraď Betonovani_plata a pak to bude OK. Chyba skáče proto, že na frm Betonovani_pasu tyto cmb nemáš.citovat
kp57(11.9.2014 20:29)#021556
avatar
Opravdu "Betonovani_pasu"? Nemusíš uvádět vůbec, nebo stačí použít "Me".citovat
marficek119(11.9.2014 20:36)#021558
avatar
No pěkný, taková blbost:-) Díky moc. Jsem přejmenoval form a pak už jsem to nepřepsal v kódu. Díky za nakopnutí:-)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje