• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

http://excelplus.net/forum/viewthread.php?thread_id=800&pid=3383#post_3383

Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

Našel jsem starý excel (z roku 2007), kde jsem to řešil. Můžete se inspirovat.
Já sám mám v plánu se na to znovu kouknout a trochu to "zmodernizovat" - je možné až pravděpodobné, že dnes bych to napsal jinak. Uvidíme, jestli se k tomu dostanu, možná se i pochlubím ;)

Pokud jsou ty formuláře v excelu, tak pravděpodobně opravdu stačí automatický filtr a výběr pouze viditelných buněk.

Mno já nevím. U registrů může být problém s oprávněními. Moc se mi to nelíbí.

Ono záleží, jestli ty aplikace běží najednou nebo ne. Pak by bylo třeba řešit synchronizaci a nevím ještě co všechno.

Kdybych to dělal já, dělal bych to přes textový dočasný soubor - i kdyby to působilo neohrabaně. Protože je podle mně jedno jak to působí, hlavně když to dělá, to co má.

Jinak po napsání tématu do google (takže počítám, že jste to viděl)
http://www.promotic.eu/cz/pmdoc/Subsystems/Comm/DDE/DDE.htm
Ale moc jsem to nestudoval...

Upresnim.
K cemu maji slouzit ty vytvorene seznamy ;)

Priklanel bych se k jinemu reseni. A to zamknout tlacitko VLOZIT pomoci vlastnosti Enabled a odemknout ho az po vyplneni celeho formulare.

Podobne jako jsem to udelal zde
http://wall.cz/index.php?m=topic&id=11863&page=2#post-11883

Mě by spíš zajímalo k čemu to má vlastně sloužit.
Už od začátku to totiž vidím na automatický filtr.

Kont. tabulkou je to asi nejelegantnější, ale ne každý je ovládá

VBA je fajn, ale až jako poslední řešení. Je nesmysl vymýšlet něco, co už vymysleli u MS a my za to zaplatili (to neplatí jen zde, ale u mnoha jiných témat).
KT je základ a každý, kdo chce pracovat s excelem by je měl ovládnout.
Howgh!

Problém je v tom, že si zbytečně komplikujete život tím, že máte 5 listů.

Řešení je jednoduché:
Dejte všechny tabulky do jedné a přidejte sloupec typ položky. Zapněte automatický filtr a používejte ho.
Pokud potřebujete data tisknout a ten sloupec by vadil, dejte ho mimo oblast tisku.

Je vždy lepší mít zadávaná data na jednom listu (pokud je to možné) protože pak je (o hodně) snažší je analyzovat.

Jestli tomu rozumím, tak k tomu slouží funkce
ZÍSKATKONDATA

např."
=ZÍSKATKONTDATA("Součet z Pole";$A$3)

funkci zadáte tak, že napíšete = a kliknete na požadovanou buňku v KT - tedy na ten váš Grand Total
Pokud je to tedy ono

Já osobně si vystačím s openofficem , ale kolegyně je trošku fixovaná na Excel a tak se jí snažím trochu pomoci.

Tak tímhle jí asi nepomůžete, ale můžete jí naopak zkomplikovat další práci.
Částečně to popsal AL.
Pokud potřebujete vyjímečně více instancí, otevřete si nejdříve novou a v ní pak sešit. Používám a není to nic, co by bolelo.

Nicméně, asi bych se vydal zhruba touto cestou...

Omlovám se za kritiku, ale to makro je naprostá šílenost. Je 5 ráno tak tady s kritikou končím.
Váš problém je tady:

Dim pole(6) As String

říkáte že (pokud to není výřez z kódu - naprosto zbytečné a komlikující) pole má mít pouze textové hodnoty
Mělo by pomoct

Dim pole(6)
pole(4) = CDate(Lab_dat.Value)

@marjankaj
Když už, tak postačí jediný řádek
Sheets("List1").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("List2").Range("A1"), Unique:=True
Jenže tady nevíme (bohužel to autor nenapsal),jestli List2 obsahuje další sloupce a jesli nějak navazují na sloupec se zkopírovanýma hodnotama.

@fostercz
Nebo může pomoci dobře nastavená kont. tabulka a je to bez kódu. Záleží na tom, jak s těmi daty pracujete.

Když už něco vypnete pomocí false
Application.ScreenUpdating = False
Application.DisplayAlerts = False
je to třeba i zapnout
Application.ScreenUpdating = True
Application.DisplayAlerts = True
jinak se budete divit, jak excel (ne)funguje...

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje