< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#055134
avatar
Už není potřeba mám...citovat
#055137
elninoslov
Len si dajte pozor pri .End(xlDown/xlUp). Ak máte filtrované riadky nefungujú správne. Vtedy treba použiť metódu .Find(...).citovat
#055140
avatar
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
#055148
elninoslov
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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35