Už není potřeba mám...citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Zapsat na první volný řádek
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.
Len si dajte pozor pri .End(xlDown/xlUp). Ak máte filtrované riadky nefungujú správne. Vtedy treba použiť metódu .Find(...).citovat
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
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
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
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)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články