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

MS Excel

Téma: Zapsat na první volný řádek

Zaslal/a Chronik 30.6.2023 8:10

Zdravím,

Hledám nějaký vzor nebo návod už dva dny, ale nikde jsem nenašel to co potřebuji, nebo nedokázal upravit tak aby mi to vyhovovalo. Může mi někdo poradit?

Mám aplikaci UserForm, tam je 5 textboxů, ze kterých chci načíst hodnoty a zapsat je na aktivní list na první volný řádek do 3 sloupců. Každou hodnotu TextBoxu do jednoho sloupce pomocí makra, které bych spustil tlačítkem.
Sloupce jsou A-E.

Zaslat odpověď >

---

Chronik(30.6.2023 10:31)#055134

Už není potřeba mám...citovat

elninoslov(30.6.2023 13:32)#055137

Len si dajte pozor pri .End(xlDown/xlUp). Ak máte filtrované riadky nefungujú správne. Vtedy treba použiť metódu .Find(...).citovat

Chronik(30.6.2023 14:02)#055140

Zdravím,

mám to takto:

Posledniplnyradek = Range("b1").End(xlDown).Row ' Ve sloupci B
PrvniPrazdnyRadek = Posledniplnyradek + 1
Cells(Posledniplnyradek + 1, 2) = Me.TextBox1.Value ' příjmení a jméno
Cells(Posledniplnyradek + 1, 3) = Me.ComboBox1.Value ' zařazení
Cells(Posledniplnyradek + 1, 5) = Me.ComboBox2.Value ' provoz
Cells(Posledniplnyradek + 1, 6) = Me.ComboBox3.Value ' směna
Cells(Posledniplnyradek + 1, 4) = Me.ComboBox4.Value ' smlouva

a filtr je podle tohoto sloupce.

Bude stačit jen vyměnit .End na . Find?

Děkujicitovat

elninoslov(1.7.2023 1:33)#055148

Ale pozor. Takisto nebude fungovať, ak budú v dátach medzery. Treba si ujasniť, či chcete zapisovať na prvý voľný alebo za posledný zaplnený. To je rozdiel. A samozrejme, či bude použitý filter a či sa jedná o objekt Tabuľka, alebo iba obyč tabuľka, ďalej či to má hlavičku a na ktorom riadku (to u Vám má na riadku 1)...
Worksheets("Hárok1").Columns("B").Cells.Find(What:="", After:=Worksheets("Hárok1").Range("B1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Resize(, 5).Value = Array(TextBox1.Text, ComboBox1.Text, ComboBox2.Text, ComboBox3.Text, ComboBox4.Text)
ďalej je možnosť SpecialCells(xlCellTypeLastCell), a tiež ak budú napr. posledné riadky vyfiltrované vracia nesprávny výsledok.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse