MS Excel

Zdravím,přátelé..
Potřeboval bych poradit,jak docílit toho,abych měl v textboxu vždy poslední řádek z listu.Potřebuji zobrazovat jakousi historii.Textbox je v Userformu,který je zobrazen v podstatě trvale a ovládá se z něj celá tabulka.
Děkuji za případnou pomoc.
Vojta

Zaslat odpověď >

cmuch(26.1.2014 19:19)#017497

Při spuštění UF se načte poslední řádek do TB1
a pak při každé změně na listu.

Toto umísti do modulu listu
Private Sub Worksheet_Change(ByVal Target As Range)
Call hodnotatextboxu
End Sub

Toto do obyčejného modulu
Sub hodnotatextboxu()
UserForm1.TextBox1 = Cells(Rows.Count, "A").End(xlUp).Row
End Sub

A toto do formuláře
Private Sub UserForm_Initialize()
Call hodnotatextboxu
End Sub
citovat

lajos(27.1.2014 21:58)#017517

Děkuji za odezvu,
zobrazí se mi pouze číslo řádku.Zkouší s tím laborovat,ale zatím bez úspěchu.:-)citovat

AL(27.1.2014 22:36)#017520

však to si chcel: ...abych měl v textboxu vždy poslední řádek z listu
nebudem do toho cmuchovi fušovať, ale máš tam v podstate iba 1 riadok, kde by mohol byť zakopaný pes. Schválne, na ktorom riadku v kóde je slovíčko Row (riadok)??

citovat

cmuch(28.1.2014 6:15)#017528

Fušovat do toho může kdo chce, třeba se najde jednodušší řešení.

UserForm1.TextBox1 = Cells(Rows.Count, "A").End(xlUp).Row
nahraď
UserForm1.TextBox1 = cells(Cells(Rows.Count, "A").End(xlUp).Row, 1).value
Zobrazovat se bude hodnota z posledního řádku sloupce A (A=1)citovat

lajos(29.1.2014 23:58)#017604

Děkuji za pomoc,přátelé:-)citovat

Téma: Poslední řádek v textboxu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje