< návrat zpět

MS Excel

Téma: Zápis hodn. z UserForm rss

Zaslal/a radekb 15.10.2010 9:13

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ý 4

Příloha: zip2766_userform-radek.b.zip (160kB, staženo 15x)
Zaslat odpověď >
icon Poki(15.10.2010 9:29)#002768
Poki
Mas pravdu, problem je v definici prvniho volneho radku. Pri pouziti usedrange se bere v uvahu jakkoliv vyplnena bunka(tedy i vzorcem).
Zkusil bych definovat prvni prazdny radek takto:
radek = ActiveSheet.Cells(1000000, 1).End(xlUp).Row + 1citovat
Koci(15.10.2010 9:36)#002769
avatar
Nebo podobný způsob...
Příloha: zip2769_userform-radek.b.zip (146kB, staženo 19x)
citovat
radekb(15.10.2010 10:17)#002770
avatar
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?citovat
icon Poki(15.10.2010 10:22)#002771
Poki
co takto:
Cells(radek, 9) = cdbl(TextBox3.Value)* -1citovat
radekb(15.10.2010 10:56)#002772
avatar
Tak tohle funguje, ale když mám TextBox Výdaj prázdný(tedy mám zápis v TextBox Příjem) vyhodí to chybu.citovat
icon Poki(15.10.2010 10:59)#002773
Poki
tak to nebude tak tezke osetrit nejakou IF podminkou, co? 4citovat
radekb(15.10.2010 11:06)#002774
avatar
Tak se teda budu trápit 3 , a snad na to přijdu. Díky zatím za pomoc a hezký víkend.citovat
icon Poki(15.10.2010 11:13)#002775
Poki
If IsEmpty(TextBox3.Value) = False then
Cells(radek, 9) = cdbl(TextBox3.Value)* -1
End Ifcitovat
radekb(15.10.2010 19:11)#002781
avatar
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 pomoccitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje