< návrat zpět

MS Excel


Téma: Kontingenční tabulka - automaticky filtr rss

Zaslal/a 13.7.2020 19:01

FantasykAhoj 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ší »
#047294
Lugr
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ě? 7citovat
#047295
MePExG
lugr - asi nemáte Power Query (od v.2010 doplnok a od v.2016 už je súčasť MSE).citovat
#047297
Fantasyk
Diky moc vsem,
Jak budu u pc tak na to mrknu a zkusim pochopit jak jste to udelali

Jeste jednou moc dekujicitovat
#047299
Lugr
Mepexg

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

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
#047306
MePExG
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: zip47306_pq_kardex-v2.2.zip (42kB, staženo 15x)
citovat
#047307
Fantasyk

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
#047308
MePExG
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
#047310
MePExG
Doplnil som Vám aj to makro.
Příloha: zip47310_pq_kardex-v2.3.zip (44kB, staženo 14x)
citovat
#047312
Fantasyk
Lugr e,
mohl by jsi mi prosím ještě upravit datum zvlášť a čas ?
jsem to zkusil a nějak mi to stále nefunguje 7
viz příloha

Děkuji moc
a jak jsi to udělal že to mizí a načítá ?
nechápu jak jsi to udělal

EDIT:
"upravenou" verzi mám v příloze...
Příloha: zip47312_kopie-kardex-v0.3aaaaaa.xlsm.zip (40kB, staženo 14x)
citovat

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

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

vyhledání obsahu buňky

vfort • 18.7. 11:22

Názvy z řádků do sloupců Power Query

Alfan • 18.7. 10:01

Tlac 2 roznych tabuliek

loksik.lubos • 17.7. 20:43

Týden v roce

Petr92 • 16.7. 15:34

Řazení podle času v kategoriích

veny • 16.7. 11:34

špatný výpočet ze zisku - příčina?

Anonym • 12.7. 22:56

špatný výpočet ze zisku - příčina?

Jakoby • 12.7. 12:35