Příspěvky uživatele


< návrat zpět

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

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

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.

ano, to je přesně ono. 9

Děkuji moc

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.

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.

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]"

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ý

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 )

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

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...

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...

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

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