Příspěvky uživatele
< návrat zpět
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.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články