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

Příspěvky uživatele

Ak je to XLSM súbor, treba ho zabaliť do ZIP. Max veľkosť je 256 KB. Alebo to uploadnite na GoogleDrive, či iné free úložisko.

Nie 365-ku nemám nikde. Mám iba "oldschoolovú" verziu.

Office tieto 2 zostavy:
2016 Professional Plus SK x64
verzia 1807 (zostava 10325.20082)
verzia 1807 (zostava 10325.20118)

Nainštalované mám len appky W,E,A,PP,O.

OS:
Win 10 Pro SK x64 verzia 1803 (zostava 17134.228)

Pozn.: Žeby bol môj E zrovna stabilne fungujúci to povedať nemôžem. Pravidelne mi pri kopírovaní hlási problém s Clipboardom, len tak prestane zobrazovať označenie buniek, alebo prestane prekresľovať obrazovku (napíšem do bunky, ale vidím to iba v poli vzorca) a pod. Takže neviem, či je môj PC zrovna smerodajný :)

Nemám čas/chuť to preinštalovať, no. Ako to bolo s tými obuvníkovými deťmi ... ?

To bude podstatne zložitejšie ako si predstavujete. Verte, že viem o čom hovorím. Musíte si stanoviť do akých podrobností ste ochotný vypĺňať a overovať špecifikácie. Veľmi je rozšírený nešvar, že len hŕstka dodávateľov zasiela presnú špecifikáciu daného produktu. A málokto je ochotný presné špecifiká dekódovať. Produkt sa líši v PN iba písmenkom a znamená to že má/nemá podsvietenú klávesnicu, doplniteľný HDD, matný/lesklý displej, IPS/TN, CZ/SK/EN popisky klávesnice (to je megaproblém, tomu verte), 2/4 článková bat., DVD/bez ... . Teda popis sa väčšinou iba kopíruje z iných e-shopov, a ak niekto nepreverí nejaký z týchto nie hlavných parametrov, je problém na svete. Už X-krát som donútil e-shop k prevereniu týchto info z popisu u dodávateľa, a vždy som mal pravdu, že popis je zlý. Skutočne záleží aké podrobnosti budete spracovávať. Ak len CPU, LCD, GPU, HDD, a pod. tak to nebude problém, ale s podrobnejšími info býva problém. Ak ale máte skutočne správne info, filtrov si môžete nasúkať akú len máte veľkú obrazovku :)

Mal som hypotézu, že zavoláme Refresh, a budeme nejakú dobu čakať, kým status Refreshing nebude False (hotovo). A potom by sa aktivoval list Data. Ale tak to nefunguje. Ten Counter tam bol len pre prípad zaseknutého Refresh-u, aby ukončil čakanie po 5000 kontrolách.

Neviem fakt. Nepomáha ani DoEvents po Refresh ale pred Activate?
Skúšal som vytvoriť aj ďalší PQ dotaz, ale ani ten sa mi po prejdení neprepne na svoj list. U mňa proste ten aktívny Data drží ako pribitý.

Nič som po nainštalovaní Excelu neprenastavoval. Maximálne tak občas R1C1 alebo Iteračný, inak nič.

Mepexg, kde ste ?

Ani nejaké obdobné testovanie Refreshing by nepomohlo ? U mňa je ale Refreshing stále False. Pritom PQ funguje. Dokonca som tabuľku natiahol na 20K riadkov, nech má čo počítať, ale aj tak nedosiahnem Refreshing stav True, ani prepnutie na list Aux.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Counter As Long
If Not Intersect(ListObjects("xlTbl_SourceData").Range, Target) Is Nothing Then
With Sheet3.ListObjects("qry_DateCompleted").QueryTable
.Refresh BackgroundQuery:=False
Do While .Refreshing = True
Counter = Counter + 1
If Counter > 5000 Then Exit Do
Loop
End With
Activate
End If
End Sub

Napadajú ma možnosti : Rýchle filtre v KT, Rozšírený filter, parametrický PowerQuery, makro ako posledná možnosť.
Treba prílohu s príkladom nejakých dát, presného rozmiestnenia údajov a ich typov, ... . Citlivé info zmente.

Problém je, že u mňa sa Aux vôbec neaktivuje. Netuším prečo. Potom prípadne rovno volaciu proc upraviť. Tiež len tip...
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ListObjects("xlTbl_SourceData").Range, Target) Is Nothing Then
Application.ScreenUpdating = False
Sheet3.ListObjects("qry_DateCompleted").QueryTable.Refresh BackgroundQuery:=False
Activate
Application.ScreenUpdating = True
End If
End Sub

EDIT: Len dodám, že u mňa sa v E2016 Pro x64 SK + Win10 x64 SK (všetko aktualizované) ten Aux neaktivuje ani pri Obnoviť všetko. Ale funguje správne.

A keby ste do listu Aux pridal totok ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Cells(7, 2), Target) Is Nothing Then Sheet1.Activate
End Sub

OT: S tým súhlasím. No keď môžem/viem, pomôžem, aj keď si to adresáti nezaslúžia. Všeobecne, nielen v Exceli. Som raz taký, ale nebojte, žiaden dobrý skutok nikdy nezostal bez trestu

EDIT: Jáj a ešte som k tej prílohe chcel... Doplnenie prílohy je požadované snáď v každom druhom vlákne, neustále častejšie, a začínam mať pocit, akoby pýtajúci sa čakali, kedy začnú mať riešitelia pocit viny, že dopytujúcich vlastne otravujú a obťažujú.

Kristepane to sú zadania, a bez prílohy. Tu som Vám niečo pripravil.

Úprava na požiadanie...

V 1.liste máte ten dynamický rozsah. Treba si dať pozor na to na ktorom riadku dáta začínajú, podľa toho upraviť.
Makro v 2. liste prosím berte len ako moje odreagovanie po 16 hod. pracovnej tortúre ... idem si dať konečne pivo od jedu a idem spať.

Asi to ide aj inak, ale keď si dáte vložiť počítané pole, a jeho vzorec napíšete ako obyčajné "=poleB+PoleC+PoleD+..." tak Vám súčty dá.

Super, lebo vlastná iniciatíva niečo vyskúšať sa vidí tak v 50% prípadoch.

OT: V Tykaní nieje žiaden problém. Teda ak si na to za čas spomeniem :)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse