MS Excel

Téma: Msg box ošetření odpovědi

Zaslal/a PavDD 26.11.2024 12:46

Mám dialog pro zadání hodnoty. Když zadám číslo, ok.
Potřebuji ošetřit stav , že jsem si to rozmyslel a stiskl Storno. Vyhazuje mi chybu. jak na to, aby ukončil makro?
Poradíte prosím?

Příloha: zip

57045_dotaz-msgbox.zip (15kB, staženo 2x)

Zaslat odpověď >

elninoslov(26.11.2024 13:03)#057046

Z deklarácie dajte preč "As Long"
Dim CenaPartner
a pred tento riadok
Range("AQ2").Value = "objednej " & CenaPartner
dajte tento
If CenaPartner = "" Then Exit Sub

EDIT:
Alebo použite Application.InputBox namiesto InputBox, a Type=1 (číslo), potom pri zrušení je návratová hodnota False:
CenaPartner = Application.InputBox("Otevři případ na www,zadej objednávku PARTNER.", _
"Cena Partner - tvá nákupní cena z objednávky eset.cz", Type:=1)
If CenaPartner = False Then Exit Subcitovat

PavDD(26.11.2024 13:41)#057049

díkycitovat

Uživatelské menu

Nejste přihlášen(a)

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.