MS Excel

Ahoj Hackeři,
mohl by jste mi někdo poradit, nebo jak nejlépe udělat automatický filtr podle range?

V příloze v sheets Program range A4 - zadám (číslo figury)
a pod tím bych chtěl, aby to ze sheets Archív vyfiltrovalo to číslo figury a zkopírovalo na sheets Program ( vyznačeno žlutě )
Nebo nenapadá vás jak by to šlo jednodušeji udělat ?
Ale musí to právě udělat ihned co zadám číslo figury do A4 a odentruji...

Díky

Zaslat odpověď >

Strana: « předchozí 1 2 3 další »

Lugr(14.7.2020 6:16)#047294

Tady máte ještě makro.

Není to profi, ale funguje.

Sub Zapsat()

If Sheets("Program").Range("A2") = "" Then
MsgBox "Zadejte Figuru", vbExclamation
Else

Dim Radek As Long

Radek = Sheets("Archív").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Program").Range("A4:G4").Copy
Sheets("Archív").Cells(Radek, 1).PasteSpecial xlPasteValues
Sheets("Archív").Cells(Radek, 8).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
Sheets("Archív").Select
Range("A2").Select
Application.CutCopyMode = False

Sheets("Program").Select
Range("A4,D4:G4").ClearContents
Range("A4").Select

MsgBox "Figura úspěšně zapsána do archívu", vbInformation

End If

End Sub

mepexg

mě ta Vaše příloha nefunguje, co dělám špatně?

citovat

MePExG(14.7.2020 7:17)#047295

lugr - asi nemáte Power Query (od v.2010 doplnok a od v.2016 už je súčasť MSE).citovat

Fantasyk(14.7.2020 9:03)#047297

Diky moc vsem,
Jak budu u pc tak na to mrknu a zkusim pochopit jak jste to udelali

Jeste jednou moc dekujicitovat

Lugr(14.7.2020 13:49)#047299

Mepexg

Já právě mám Office 2016, ale přesto to nejde. Asi dělám něco špatně. Ale děkuji.citovat

Fantasyk(14.7.2020 17:02)#047305

mepexg napsal/a:

V prílohe je posledných 10 riadkov z archívu a zoradené dátumy zostupne.Příloha: 47293_pq_kardex-v2.2.zip (41kB, staženo 8x)

Tak nějak mi to od tebe taky nejde ale PQ mám..

Od lugr mi to jede jak má jen těch posledních 10 z historiecitovat

MePExG(14.7.2020 18:58)#047306

Ak máte viacej riadkov v archíve, stačí zmeniť bunku na liste Program!A4 na požadovanú figuru a potom už len Data-Refresh-All (Ctrl+Alt+F5) v tabuľke Data-Refresh (Alt+f5) a tabuľka od a11:h? sa zaktulizuje podľa požiadaviek (z archívu sa vyberie zadaná figura - zoradí sa zostupne Datum a čas a ponechá sa prvých 10 riadkov). Ešte raz prikladám prílohu.

Příloha: zip

47306_pq_kardex-v2.2.zip (42kB, staženo 16x)

citovat

Fantasyk(14.7.2020 19:01)#047307

mepexg napsal/a:

Ak máte viacej riadkov v archíve, stačí zmeniť bunku na liste Program!A4 na požadovanú figuru a potom už len Data-Refresh-All (Ctrl+Alt+F5) v tabuľke Data-Refresh (Alt+f5) a tabuľka od a11:h? sa zaktulizuje podľa požiadaviek (z archívu sa vyberie zadaná figura - zoradí sa zostupne Datum a čas a ponechá sa prvých 10 riadkov). Ešte raz prikladám prílohu.Příloha: 47306_pq_kardex-v2.2.zip (42kB, staženo 0x)

A jde to i bez refreshe jak to má lugr ?citovat

MePExG(14.7.2020 19:05)#047308

Programy píšem iba pre svoju potrebu. Nie je to nič zložité. Stačí záznam makra a spustiť refresh na tabuľke a tento príkaz umiestniť do zmeny bunky Program!A4.citovat

MePExG(14.7.2020 19:27)#047310

Doplnil som Vám aj to makro.

Příloha: zip