MS Excel

Ahoj,

vyhledám si pomocí cyklu poslední prázdný řádek v sešitu a zapíšu jej do proměnné. Následně potřebuju do toho prázdného řádku (který mám v proměnné) zapsat data. Jak to mám udělat?

Worksheets("Db").Range(PrazdnyBLg).Value = TextBox1.Text

Tohle mi bohužel nefunguje, zkoušel jsem to s uvozovkama, bez uvozovek, s doplněním rozsahu např. Range("A1:A" PrazdnyBlg) ale to mi zase zapisuje do celého sloupce.

Věděl by někdo, jak tam tu proměnnou zapsat?

Zaslat odpověď >

Pavlus(1.9.2016 22:53)#032579

Pokud proměnná "PrazdnyBlg" obsahuje číslo řádku, tak je to jenom o logice ;-)...
Range("A" & PrazdnyBlg).ValueP.citovat

elninoslov(2.9.2016 2:30)#032580

Určite nehľadáte posledný prázdny, ale prvý prazdny

Robíte to cyklom, a prečo nie takto
PrazdnyBlg = Worksheets("Db").Cells(Rows.Count, 1).End(xlUp).Row + 1
A potom napr.
Worksheets("Db").Cells(PrazdnyBlg, 1).Value = neviem čo

PS: Z brucha z tabletu, tak snáď bez chyby.citovat

eLCHa(2.9.2016 6:32)#032581

Taky z tabletu a taky zbrucha

Chyba je tam - clUp má být xlUp

A taky bych řekl, že hledá poslední prázdnou (v pracovní oblasti)

Kdyby hledal první, stačilo by xlDown

A taky bych řekl, že to jde bez proměnné...Range(Cells(1,1),Cells(Rows.Count,1).End(xlUp)).Value = cosikcitovat

Filipsv(2.9.2016 9:31)#032585

Aha, tak proto to asi nefungovalo

Samozřejmě jsem hledal první prázdný řádek.

Vyzkoušel jsem postup od elninoslov a funguje, díky!citovat

elninoslov(2.9.2016 12:03)#032591

Je to len slovíčkarenie, samozrejme, predpokladáme všetci to isté, že chcete nájsť nasledujúci riadok pod posledným záznamom. Ak sa tam nevyskytujú prázdne tak môže byť xlDown, ak áno tak xlUp. Inak clUp upravené na xlUp, to viete mobil a nočná hodina ...

citovat

Filipsv(2.9.2016 15:41)#032599

Ještě bych potřeboval poradit, kam vložit kód, který načítá první volný řádek do proměnné. Potřebuji to použít ve formuláři, konkrétně v TextBoxu. Takže do TextBoxu zadám text, který se zapíše do prvního volného řádku.

Momentálně to mám následovně:
Private Sub TextBox1_Change() 'Textbox pro jméno
PrazdnyBLg = Worksheets("Db").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("DB").Cells(PrazdnyBLg, 1).Value = TextBox1.Value
End Sub

Jenže výsledek je takový, že při každém zadaném znaku to znovu počítá obsazené řádky a výsledek vypadá následovně (do TextBoxu vypisuju slovo test):
Naddis sloupce
1. t
2. te
3. tes
4. test

Dokázali byste poradit, kam to nejlépe umístit? Formulář otevírám přes tlačítko, tak jsem to zkoušel dávat do části, kde je kód pro otevření formuláře, ale to nějak nefunguje.

Příloha: zip

32599_databaze-dat.zip (28kB, staženo 29x)

citovat

elninoslov(2.9.2016 16:33)#032603

Všetky ostatné makrá som odstránil.

Příloha: zip

32603_databaze-dat.zip (20kB, staženo 31x)

citovat

elninoslov(2.9.2016 17:03)#032604

Alebo takto Vám, bude objekt Tabuľka počítať zvyšné veci.
Samozrejme tie výpočty môže robiť aj makro, a vloží tak výsledky (deň, mesiac, rok), ale vek by som určite riešil vloženým vzorcom (nie hodnotou), alebo ho počítať až vo finále, kde budete s dátami pracovať. Na výstupe. Vek, ako je známo, sa časom (žiaľ) mení :)

Příloha: zip