MS Excel

Zdravím, potřeboval bych pomoci s formulací/pořadím podmínky.

Mám combobox a textbox a potřebuji, aby zde byla daná podmínka : Když je v combu vybraná hodnota, a textbox je nevyplněný, tak se zobrazí msgbox s upozorněním aby byl vyplněn textbox. To samé obráceně, pokud je hodnota v textboxu a combo nevyplněné tak opět msgbox s hláškou. Níže je uvedená podmínka, ale reaguje pouze na to pokud je hodnota napsaná v texboxu. Někde mám něco špatně. Pomůže někdo?

If TextBox65 = True Then
If ComboBox4 = "" Then 'Výběr cihly Zdivo 2
MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)", vbInformation
Exit Sub

Else
If TextBox65 = "" Then
If ComboBox4 = True Then
MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)", vbInformation
Exit Sub
End If
End If
End If
End If

Zaslat odpověď >

€Ł мσşqμΐτσ(2.10.2014 14:56)citovat#021765

zrušit else

If TextBox65 = True And TextBox65 = "" Then MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)", vbInformation: Exit Sub
If ComboBox4 = True And ComboBox4 = "" Then MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)", vbInformation: Exit Sub

marficek119(2.10.2014 15:23)citovat#021768

Pokud to napíšu takto, tak stále nefunguje. Asi jsem pochopil špatně

If TextBox65 = True And ComboBox4 = "" Then
MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)"
Exit Sub
'End If
If ComboBox4 = True And TextBox65 = "" Then
MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)"
Exit Sub
End If
End If

marjankaj(2.10.2014 15:28)citovat#021769

mosquito791 napsal/a:

zrušit else

If TextBox65 = True And TextBox65 = "" Then MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)", vbInformation: Exit Sub
If ComboBox4 = True And ComboBox4 = "" Then MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)", vbInformation: Exit Sub

Tak takéto riadky môžeš aj vyhodiť a nič sa nezmení. Snáď iba dĺžka kódu.

€Ł мσşqμΐτσ(2.10.2014 16:31)citovat#021771

mno jo ted koukám, že tam není .enabled nebo .visible.

Tak teď nechápu proč je tam

textbox65 = true ,nebo
combobox4 = true

a nestačí jenom "If TextBox65 = "" Then MsgBox .... :Exit Sub"
atd...

asi mám dlouhé vedení

marficek119(2.10.2014 19:40)citovat#021774

Nemůže být problém v tom, že je vybraná hodnota v combu pro podmínku neviditelná. V combu mám vybranou položku, ale stále podmínka nereaguje, jako by bylo combo nevyplněné.

kp57(2.10.2014 22:46)citovat#021778

Nevím sice kdy TextBox65 vrací "True", ale pokud je "False", tak to znamená v tom tvém kódu konec.

Téma: Pomoct s podmínkou

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje