• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Zápis hodn. z UserForm

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ý

Příloha: 2766_userform-radek.b.zip (160kB, staženo 15x)

Zaslat odpověď >

---

Poki(15.10.2010 9:29)#002768

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

Nebo podobný způsob...

Příloha: 2769_userform-radek.b.zip (146kB, staženo 19x)

citovat

radekb(15.10.2010 10:17)#002770

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

Poki(15.10.2010 10:22)#002771

co takto:
Cells(radek, 9) = cdbl(TextBox3.Value)* -1citovat

radekb(15.10.2010 10:56)#002772

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

Poki(15.10.2010 10:59)#002773

tak to nebude tak tezke osetrit nejakou IF podminkou, co? citovat

radekb(15.10.2010 11:06)#002774

Tak se teda budu trápit , a snad na to přijdu. Díky zatím za pomoc a hezký víkend.citovat

Poki(15.10.2010 11:13)#002775

If IsEmpty(TextBox3.Value) = False then
Cells(radek, 9) = cdbl(TextBox3.Value)* -1
End Ifcitovat

radekb(15.10.2010 19:11)#002781

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse