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

MS Excel

Téma: Poslední řádek v textboxu

Zaslal/a lajos 26.1.2014 16:38

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse