MS Excel

Dobrý den,

Chtěl bych se zeptat jestli by mi byl někdo schopný poradit, jak ve VBA uložit obsah ze štítku (TexBox) po zadání hodnoty do buňky.

Děkuji

Zaslat odpověď >

Poki(11.12.2009 10:25)#000918

No, asi by to chtelo trosku vic vysvetlit, co bys potreboval. At to ctu, jak to ctu, nedava mi to moc smysl. Určitě to bude jednoduchý, jen vědět, co to má dělat...(mozna by se hodila i ukazka)

1) Textbox je na formulari?
2) Má se obsah bunky ulozit do toho textboxu?
3) Štítek textboxu je popisek?citovat

Chronik(11.12.2009 13:08)#000919

Kdyz otevres prilohu, je tam talacitko, ktere spusti "aplikaci" UserForm. Tam je textbox a tlacitko uloz. Kdyz zadam do textboxu napriklad cislo a kliknu na tlacitko uloz, chci aby se hodnota z textboxu ulozila nekam do bunky...

Příloha: zip

919_ukazka.zip (10kB, staženo 36x)

citovat

Poki(11.12.2009 14:50)#000920

Tak uz jsem to pochopil - to bylo vycerpavajici vysvetleni :).

Je to strasne jednoduchy - v nastaveni commandbuttonu (uloz) jen pridas jeden radek, takze bude vypadat takhle:
(pokud uložíš 'nic', tak se vloží taky 'nic' do zvolené buňky)

Private Sub CommandButton1_Click()

Range("e3") = Me.TextBox1.Value

Unload UserForm1
End Sub

snad je to to, co jsi chtel :)citovat

Chronik(11.12.2009 15:11)#000921

Presne tak jsem to chtel. Moc dik!

A jeste jedna otazka, za predpokladu ze to budu chtit pouzit do database, jak napsat kod, aby se dalsi hodnota napsala na dalsi volny radek...

Priklad: zapnu jednou napisu hodnotu a dam ulozit, zapnu znova, dalsi hodnotu a na dalsi volny radek, tak, aby predchozi hodnota zustala napsana tam kde je bez prepisu te nasledujici hodnoty.

Jestli se ti teda chce premyslet...citovat

Poki(11.12.2009 15:50)#000922

Pokud bys ty hodnoty zapisovat treba do sloupce D od druheho radku (prvni bude asi nejaka hlavicka)

tak by to slo takhle:

Cells(Application.WorksheetFunction.CountA(Range("D:D")) + 1, 4) = Me.TextBox1.Value

predpoklada to ale, ze ve sloupci D nebudes mit zadne prazdne bunky, resp, ze ta prvni prazda bude ta, kam se zapise hodnota z formularecitovat

Chronik(14.12.2009 1:35)#000937

Dík přesně tak jsem to potřeboval...citovat

carno(19.1.2010 11:10)#001077

Dobrý den,

mam k dotaz co když potřebuji, aby CommandButton1 uložil najednou více TextBoxů.

Děkuji za odpověďcitovat

Téma: uložení dat makrem

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query