Příspěvky uživatele

Dík. Nějak ta podmínka nefungovala tak jsem zkusil tohle:
Cells(radek, 9) = TextBox3.Value

If Cells(radek, 9) > 0 Then
Cells(radek, 10) = TextBox4.Value
Else
Cells(radek, 10) = CDbl(TextBox4.Value) * -1
End If
End Sub
TextBox3 je Příjem a TextBox4 Výdaj a funguje to. Ještě jednou díky za pomoc

Tak se teda budu trápit

, a snad na to přijdu. Díky zatím za pomoc a hezký víkend.

Tak tohle funguje, ale když mám TextBox Výdaj prázdný(tedy mám zápis v TextBox Příjem) vyhodí to chybu.

Děkuji funguje! Ještě bych měl malou podotázku. Mám TextBox kde se zapisuje Výdaj např. 1000. Protože se jedná o výdaj potřebuji zápis do buňky se znaménkem mínus tedy -1000.Tedy:
Cells(radek, 9) = TextBox3.Value
Jak to změnit, aby se mi do buňky zapsala záporná hodnota čísla v textboxu?

Ahoj,
mám problém se zápisem hodnot z ComboBox a TextBox umístěných na UserForm. Nevím proč, ale hodnoty se mi zapisují až na 170-tý řádek.Asi chyba ve vyhledání prvního volného řádku.Lepší se bude kouknout na sešit v příloze,špatně se to popisujea taky je možný, že dochází ke střetu nějakých proměných. Tak kdyby mě to někdo opravil, byl bych vděčný

Nahradil jsem část kódu podle Pokiho a funguje jak má. Děkuji všem za ochotu!!

Tak, již téměř dokonalé. I to seřazení se mi povedlo. Snad poslední věc - Reakce při volbě tlačítka "NE" je teď, přeskok na list "zaruky" bez obarvených buněk. Potřebuju aby se nic neprovedlo, tedy zůstat v listě kontrola. Zkusil jsem to sám, což mi funguje ale až po dvakrát stisknutém tlačítku. Próóč

If test = 0 Then 'podmínka, která se ptá, zda je nějaké číslo k opravě
If vbNo = MsgBox("Ve sloupci se vyskytlo jedno, nebo více čísel v intervalu 1-60, chce je nyní opravit?", vbYesNo) Then
Sheets("kontrola").Select
End If
If vbYes = MsgBox("Ve sloupci se vyskytlo jedno, nebo více čísel v intervalu 1-60, chce je nyní opravit?", vbYesNo) Then
Stačí prosím opravit část kódu. Díkec

Díky za vysvětlení kódu. Trošku mě to hlava už začíná brát. Ale po důkladnějším otestování se vyskytli chybičky, které asi sám neopravím -
1.nefunguje podmínka, když se ve sloupci nenachází žádné číslo v intervalu 1-60(vyplnil jsem tři řádky číslem 100 a zobrazil se chybný msgbox"Ve sloupci se vyskytlo......" a po stisku volby "ano" nebo "ne" se aktivuje sešit"záruky"

2.nefunguje na poslední číslo ve sloupci(ale to až tak nevadí - vložím na začátek makro pro seřazení hodnot od nejmenší do největší)
No a ještě malou radu:
- kde přepsat, když chci nastavit toto makro pro jiný sloupec? Změna Range("A:A") na např. Range("H:H")nefunguje.
Doufám, že jednou budu moct taky někomu takhle pomáhat

Vynikající. Sice nechápu

ale funguje. Budu se muset móc móc učit. Smekám a díky....radek

Ahoj, po stisku tlačítka píše že makro není k dispozici.
Ani v modulech jsem nic nenašel

a ani skript na msgbox. Tak moc moc prosím o opravu.

Ahoj, tohle bude asi jednoduchý, ale na mě ne :o).
Potřebuji po stisku tlačítka zkontrolovat hodnoty v jednom sloupci a jestliže se tam nachází jedno nebo i více čísel mezi 0 a 60 pak spustit msgbox s nějakou hláškou(třeba POZOR).
Msgbox by měl mít dvě ovládací tlačítka. Třeba O.K. pro zavření msgboxu a ZKONTROLUJ, které mi otevře List "Záruky".Díky za řešení - Radek

Ahoj, tak všechno funguje. Jsem trdlo, protože jsem si do listu "Trvalé platby" dal vzorec, který mi měnil měsíc na aktuální. Tím pádem se mi září změnilo na říjen ale hodnota 1 ve sloupci zůstala, tudíž se neprovedl pro říjen žádný zápis. Takže pochopeno a odstraněno.
DÍÍÍÍKY. No ještě mám pár jiných problému, ale ty až v novém tématu. radek

Tak stále mi to nefunguje. Ošetření staršího data je o.k., ale pro měsíc říjen pokud jsou ve sloupci již jedničky - nefunguje :o( Žádné data ve sloupci K jinak nemám. Ještě jednou posílám soubor s již vepsaným makrem. Jinak budu muset končit...pokračování zítra odpoledne. Ještě jednou tisíceré díky.

Tak nevím. Mě to nefunguje. Mohl by si mi zaslat ten sešit, kde ti to funguje.
No a taky mě teď napadlo, že když neotevřu sešit zrovna v ten den kdy je nějaká trvalá platba tak se mi zpětně nic nezapíše. Tohle jde nějak ošetřit? Jo jinak děkuji moc za trpělivost!!

Jenže pokud je tam to číslo, nezkopíruje se již do listu říjen nic.
Nechal jsem zapsat trvalé platby pro den 28.září. Poté jsem změnil sys.datum na 28.říjen a do listu "říjen" se po otevření sešitu nic nevypsalo. Až když jsem vymazal ty jedničky u data 28.říjen se zápis provedl.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje