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

MS Excel

Téma: Chyba v makru

Zaslal/a lajos 15.3.2015 18:16

Zdravím přátelé,
v následujícím kodu mi vyskakuje chyba"Nelze získat vlastnost VLookup třídy WorksheetFunkcion".(run-time error "1004").
V prvním-ComboBox7_Change bez problému,
v druhém-Combobox_8Change vyskočí výše uvedená chyba..Nikde chybu nevidím,tak kde je prosím problém a co jsem přehlédl?
Děkuji za případnou pomoc

Private Sub Combobox7_Change() ' +++ vyhledam dalsi polozky
On Error Resume Next
TextBox18.Value = WorksheetFunction.VLookup(Val(ComboBox7.Value), _
Sheets("Zařízení").Range("A3:F10"), 2, False)
TextBox19.Value = WorksheetFunction.VLookup(Val(ComboBox7.Value), _
Sheets("Zařízení").Range("A3:F10"), 3, False)
TextBox20.Value = WorksheetFunction.VLookup(Val(ComboBox7.Value), _
Sheets("Zařízení").Range("A3:F10"), 4, False)
TextBox21.Value = WorksheetFunction.VLookup(Val(ComboBox7.Value), _
Sheets("Zařízení").Range("A3:F10"), 5, False)
End Sub

Private Sub Combobox8_Change() '
' On Error Resume Next
TextBox16.Value = WorksheetFunction.VLookup(Val(ComboBox8.Value), _
Sheets("Parametry").Range("B2:C3"), 2, False)
' TextBox17.Value = WorksheetFunction.VLookup(Val(ComboBox8.Value), _
' Sheets("Parametry").Range("A3:C11"), 3, False)

End Sub

Zaslat odpověď >

---

eLCHa(16.3.2015 6:52)#024125

Zdravím příteli
Bez přílohy můžeme pouze střílet.

Zkontroluje výsledek výrazu Val(ComboBox8.Value)Val("123") = 123, ale
Val("a") = 0
a tady tuším zakopané morče.citovat

lajos(16.3.2015 9:23)#024132

Taky tak nějak tuším,že hlodavec je v tom "Val",jenže proč první funguje a druhé ne...snad pomůže příloha.
Děkuji za reakci

Příloha: 24132_test-wall.cz.rar (39kB, staženo 38x)

citovat

Dingo(16.3.2015 10:55)#024133

první vyhodnocuje číslo, druhé text.

Příloha: 24133_test-wall.cz_2.zip (29kB, staženo 49x)

citovat

lajos(16.3.2015 13:30)#024137

Nemám nikde v buňkách nastaven formát na číslo,vše je formát "obecný".Co mi uniká? citovat

Dingo(16.3.2015 13:49)#024140

Zkoušel jste ten můj upravený soubor? Funguje tak jak si to představujete? Jestli ano, tak ten rozdíl je:
WorksheetFunction.VLookup(Val(ComboBox7.Value)
- hledá na listu "Zařízení" číslo
WorksheetFunction.VLookup((ComboBox8.Text)
- hledá na listu "Parametry" textcitovat

lajos(16.3.2015 14:08)#024141

Zkoušel a funguje..jen nevím,proč to tak je.proč jedno je text a druhé číslo.To mi není jasné

A děkuji za vyřešení citovat

Dingo(16.3.2015 14:36)#024144

Ono je to složitější a já to dobře nevysvětlím.
Musí se to napsat tak, aby to "Vlookup" dokázalo najít hodnotu z Comboboxu na zadaném listu. Ono tam překáželo hlavně to VAL(...) - převod na číslo. To u textového obsahu hlásilo tu chybu, nebylo to nijak ošetřené. Proto jsem to přepsal na ComboBox8.Text)bez VAL(..) a jde to, stejně tak ale tam funguje i ComboBox8.Value - vyzkoušejte. Naopak když se použije Vlookup(ComboBox7.Value, ....) tak to nefunguje tam je převod na číslo v pořádku.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse