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

MS Excel

Téma: Chyba v kódu

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

To chce spíš přílohu.citovat

marficek119(11.9.2014 19:51)#021553

Zde je příloha. Userform spouštím z listu rozpocet. Díky

Příloha: 21553_sesit1.zip (192kB, staženo 19x)

citovat

cmuch1(11.9.2014 20:27)#021555

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

Opravdu "Betonovani_pasu"? Nemusíš uvádět vůbec, nebo stačí použít "Me".citovat

marficek119(11.9.2014 20:36)#021558

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse