< návrat zpět

MS Excel

Téma: Chyba v makru rss

Zaslal/a lajos 15.3.2015 18:16

lajosZdraví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 7

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ěď >
icon eLCHa(16.3.2015 6:52)#024125
eLCHa
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
lajos
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: rar24132_test-wall.cz.rar (39kB, staženo 50x)
citovat
Dingo(16.3.2015 10:55)#024133
avatar
první vyhodnocuje číslo, druhé text.
Příloha: zip24133_test-wall.cz_2.zip (29kB, staženo 61x)
citovat
lajos(16.3.2015 13:30)#024137
lajos
Nemám nikde v buňkách nastaven formát na číslo,vše je formát "obecný".Co mi uniká? 6citovat
Dingo(16.3.2015 13:49)#024140
avatar
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
lajos
Zkoušel a funguje..jen nevím,proč to tak je.proč jedno je text a druhé číslo.To mi není jasné 6

A děkuji za vyřešení 1citovat
Dingo(16.3.2015 14:36)#024144
avatar
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)
avatar\n

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