Příspěvky uživatele


< návrat zpět

Zapsat na první volný řádek (30.6.2023 14:02)

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ěkuji

Zapsat na první volný řádek (30.6.2023 10:31)

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

Zapsat na první volný řádek (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.

zápis pomocí makra (14.6.2023 13:09)

ano, to je přesně ono. 9

Děkuji moc

zápis pomocí makra (12.6.2023 16:56)

Potřebuji načíst hodnoty ve žluté oblasti a zapsat do zelené s tím, že do kterého sloupce se zapíše rozhoduje modrá - to je proměnná.

Nevím jak to popsat líp.

zápis pomocí makra (12.6.2023 13:49)

Zdravím,

Potřeboval bych poradit jak pomocí makra načíst hodnotu buňky a zapsat ji do pole na pozici podle jiné buňky...

něco na způsob:

Sub zapis()
Range("Z2:BA2").Cells(12) = "=c74"
Range("Z3:BA3").Cells(12) = "=c75"
Range("Z4:BA4").Cells(12) = "=c76"
Range("Z5:BA5").Cells(12) = "=c78"
End Sub

Ale ta buňka Cells(12) byla proměnná hodnota - 1 - 31.

Makro na externí odkaz (25.6.2013 8:17)

Tak ještě jinak, potřebuji text v uvozovkách nahradit hodnotou z buňky třeba A1

ActiveCell.FormulaR1C1 = _
"='T:\Vyrobni technologie\Grafy\Přehled 2013\Týdenní\Week 22\[BT 3310 Week 22.xlsm]DATA'!R[-5]C[223]"

Makro na externí odkaz (24.6.2013 12:51)

Zdravím potřeboval bych poradit s makrem které mi převede textový řetězec složený pomocí funkce =CONCATENATE("='";A1;B1;C1) na externí odkaz a vrátí hodnotu do buňky D1.
B1 a C1 jsou proměnné.

Jestli bude někdo tak hodný a ví, budu vděčný

Vyhledání hodnot (22.12.2010 8:58)

Zdravím,
nevíte někdo o nějaké funkci nebo makru co by vyhledalo 5 největších hodnot z databáze o:

44 řadácha a 43 sloupců ? celkem tedy z 1892 hodnot 15 největších ...

A kdyby to šlo pozice buněk vybraných hodnot ( těch 15-ti největších )

uložení dat makrem (14.12.2009 1:35)

Dík přesně tak jsem to potřeboval...

uložení dat makrem (11.12.2009 15:11)

Presne tak jsem to chtel. Moc dik!

A jeste jedna otazka, za predpokladu ze to budu chtit pouzit do database, jak napsat kod, aby se dalsi hodnota napsala na dalsi volny radek...

Priklad: zapnu jednou napisu hodnotu a dam ulozit, zapnu znova, dalsi hodnotu a na dalsi volny radek, tak, aby predchozi hodnota zustala napsana tam kde je bez prepisu te nasledujici hodnoty.

Jestli se ti teda chce premyslet...

uložení dat makrem (11.12.2009 13:08)

Kdyz otevres prilohu, je tam talacitko, ktere spusti­ "aplikaci" UserForm. Tam je textbox a tlacitko uloz. Kdyz zadam do textboxu napriklad cislo a kliknu na tlacitko uloz, chci aby se hodnota z textboxu ulozila nekam do bunky...

uložení dat makrem (11.12.2009 10:10)

Dobrý den,

Chtěl bych se zeptat jestli by mi byl někdo schopný poradit, jak ve VBA uložit obsah ze štítku (TexBox) po zadání hodnoty do buňky.

Děkuji


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje