MS Excel

Téma: chyba v běhu makra

Zaslal/a lajos 9.2.2013 5:12

Zdravím,přátelé,
Mám následující problém.Pokud mám v Comboboxu v UserFormu číslo s desetinnou čárkou,makro ze zastaví s chybou Run Time Error 13-mismath.Problém bude zřejmě někde v oblasti Místního nastavení a nastavení v Excelu.Dokonce se mi jednou povedlo,že makro proběhlo,ale po zavření sešitu a opětovném otevření se problém objevil zase.Má s tím někdo zkušenosti?Mám verziMS Office 2007Cz a WIN7ProfesionalCZ,oboje originál legální.Dík za případnou pomoc.

Uzamčeno - nelze přidávat nové příspěvky.

Pavlus(9.2.2013 14:45)#011551

Chyba bude určitě v kódu. To "mismath" znamená, že dojde k matematické chybě, například "přetečení" u proměnné, nesprávně definovaná proměnná, nematematický výraz apod.
A jako vždy :-), přidej soubor...
P.citovat

Jeza.m(9.2.2013 19:06)#011555

Těžko říct jak kód vypadá, ale lepší než pracovat přímo s Combem je nejprve si hodnotu načíst do proměnné konkrétního typu, má-li být číslo, tak třeba single a pak dál v kódu pracovat s touto proměnnou. Dále pokud to místní nastavení OS vyžaduje, tak převést čárku na tečku replace(x,",",".").

M@citovat

lajos(9.2.2013 20:34)#011557

Zdravím a dík za odezvu.Částečně se podařilo s tím něco udělat.Pokud ve WIN7 v místním nastavení změním oddělovač na "tečku",tak to funguje.Jenže pak nemůžu psát desetinnou čárku.Takže celkem v podstatě nanic.
K příloze:pokud v UF v Comboboxech C5 a C6 vyberu částku s desetinnou čárkou,nastane ta chyba.Comboboxy se plní z listu "Ceník".

Příloha: rar

11557_priprava.rar (64kB, staženo 25x)

citovat

Jeza.m(9.2.2013 20:45)#011558

Přiznám se že nevím co znamená to CDb1 :-), ale zkus tam dosadit něco jako:
Else: hodnota1 = Replace(UserForm2.C5.Value, ".", ",")
M@citovat

Opičák(9.2.2013 21:13)#011559

máš tam výpočty, pro mě nejasné, ale jen jsem do toho mrknul
hodnota1 = CDbl(UserForm2.C6.Value)

oprav na:

hodnota1 = Val(UserForm2.C6.Value)
a všechno počítácitovat

Opičák(9.2.2013 23:00)#011560

Místo jakéhosi zápisu makra
"!D2:D" & wsh.Cells(Rows.Count, "D").End(xlUp).Row

použij funkci
Application.WorksheetFunction.CountA(Range("D:D"))

několikrát jsem soubor zkoušel a vždy se mi Excel "udávil" zbledl a zemřel.

citovat

lajos(10.2.2013 2:42)#011563

Oběma děkuji,jak Opičák,tak Jeza.M-pomohli.Ještě jednou dík.citovat

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.