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

Příspěvky uživatele

Ten súbor musíte zabaliť do ZIP/RAR, a ten ZIP/RAR nesmie byť väčší ako 256 KB. A myslím, že musíte byť prihlásený, to ale neviem na isto.

Vzorce dávajte do tagu CODE, t.j. označíte v príspevku vzorec, a dole stlačíte ten $. Potom nenastane situácia so smailíkmi.

Pridajte si tam teda ďalšiu podmienku, niečo takéto:
=KDYŽ(NEBO(R1="NE";R1="");váš_vzorec;R1*váš_vzorec)
=IF(OR(R1="NE";R1="");váš_vzorec;R1*váš_vzorec)

EDIT:
Alebo ešte kratšie:
=váš_vzorec*KDYŽ(NEBO(R1="NE";R1="");1;R1)
=váš_vzorec*IF(OR(R1="NE";R1="");1;R1)

Žiaľ ani teraz nemám potuchy ako to myslíte.

Každý súbor obsahuje 24 čísel v rovnakých bunkách, teda zoberieme všetkých 72 (3x24) čísel, a nájdeme z nich jedno minimum. Toto minimum potom do Výsledku zapíšeme na 24 riadkov. Stále to isté minimum, z rovnakého počtu údajov z rovnakých súborov, rovnakých stĺpcov, s rovnakou logikou. V tom prípade stačí jediný výpočet v prvej bunke Výsledku, a do ostatných buniek Výsledku sa dá iba odkaz na prvú bunku.

Je tento môj tip správny ?

EDIT: No vidím, že Jeza.m ma predbehol, a konečne to ako jediný asi pochopil správne.

Toto nieje problém, ale ako vravíte, dá sa tam prirobiť ešte veľa vecí, ktoré by už boli podstatne náročnejšie, napr. posun rozsahu dátumov so zachovaním dát, odomykanie prázdnych buniek v B a aktivácia Overenia dát v nich, kvôli rezervácii na inom PC, a pod. ...

Už si z toho niečo vyberiete snáď.
Týmto súborom nahraďte ten predošlý pri tých 3 súboroch čo som poslal minule.

Nechcem Vám do toho vstupovať, mne fungujú obe verzie, len malá poznámka : Nebolo by lepšie keby sa rezervovalo na základe označených Dátumov, a nie Mien ?

Funguje to presne ako požadujete. Niečo musíte robiť zle.

Nahrajte si kompletné riešenie pre jeden riadok pomocou Zaznamník makier. Potom si kód môžete upraviť na cyklus, kde sa bude v cykli meniť adresa zdroja a cieľa pre Riešiteľa ("SetCell:=" a "ByChange:=").
Je to len idea.

Dynamický rozsah pre overenie dát si urobíte z Tabuľky jednoducho - nadefinovaním Definovaného názvu s odkazom na daný stĺpec Tabuľky - a to najlepšie je to, že už ho tam máte :)
Volá sa "nazvy".
Teda iba označte celý stĺpec "Položka" v "DataTab" a dajte zmeniť Overenie dát z
=seznam!$A$2:$A$1000
na
=nazvy

Pre druhú otázku by som si musel pozrieť makro, a to sa mi práve nechce. Snáď neskôr, ak sa neozve autor Jeza.m / AL.

Dobrý nápad, v tom prípade by to konkrétne v mojom príklade vyzeralo nasledovne:
=SUMIFS(tblData[Hodnota];tblData[Středisko];$A$4;tblData[Účet];$B$4)
teda dúfajme, že sa tam nachádza iba jeden riadok s danou kombináciou...

Skúste jedno z týchto 2 makier.
Jeden variant je na tlačítko a spojí všetky údaje v A so všetkými indexami v B.
Druhý variant je taký, že reaguje na zmenu v A a B a do C spája tie riadky v ktorých došlo k zmene. Tento variant je odstavený premenovaním názvu metódy Worksheet_Change na Worksheet_Change2. Tú "2" odstránte a začne fungovať.

Oba varianty treba dopilovať, keďže nevieme odkiaľ začínajú dáta, či sú pod nimi iné dáta, či je to Tabuľka (nie tabuľka), o ktoré stĺpce sa jedná, ...

Môže byť aj takáto matica, a v tom prípade by malo byť šumák, ako sú rozmiestnené:
=MIN(IF($E$11:$E$16=I11;$F$11:$F$16;FALSE))
=MIN(KDYŽ($E$11:$E$16=I11;$F$11:$F$16;NEPRAVDA))

My tie podmienky ale nepoznáme, tak si ich tam doplnte. Myslím, že kód je pochopiteľný. V premennej H1 je hodnota z bunky D1, a v premennej H2 je pole hodnôt z buniek B2:B9 zostavené podľa indexov:

H2(1,1) = hodnota bunky B2
H2(2,1) = hodnota bunky B3
H2(3,1) = hodnota bunky B4
H2(4,1) = hodnota bunky B5
H2(5,1) = hodnota bunky B6
H2(6,1) = hodnota bunky B7
H2(7,1) = hodnota bunky B8
H2(8,1) = hodnota bunky B9

Za "Case X:" - kde "X" je číslo z D1, si vždy urobte čo sa má pri tejto hodnote "X" stať.

Teda tie Vaše tajuplné podmienky si už zvládnete urobiť. (alebo dodajte presné inštrukcie pre každú kombináciu)

Ja som urobil len len pre D1=1 a D1=2, aj to som si tipol ...

PS: A ešte som zabudol, že stĺpec F v List2, je schovaný. Sú v ňom odkazy na "riadiace bunky" - bunky spúšťajúce Calculate. Pretože samotná zmena napr. bunky D1 nevyvolá Calculate, ale ak je niekde odkaz "=D1", tak to už Calculate vyvolá.

Môžete použiť aj Calculate, ale musíte niekde v liste načítať hodnotu zo zmenených buniek, a toto načítanie skryť (napr v stĺpci určenom iba na to, najlepší by bol stĺpec A a všetko ostatné posunúť).
Máte tam obe metódy, ale Change je teraz odstavená, je premenovaná, číslo 1 v názve. Teda teraz je to len cez to Calculate.
Niečo si vyberte...

Asi by som to urobil cez Change, nie cez Calculate:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim H1, H2
If Not Intersect(Target, Union(Range("D1"), Range("B2"))) Is Nothing Then
H1 = Range("D1")
If H1 <> "" Then
Application.EnableEvents = False
H2 = Range("B2")
Call Skrývání_sloupců_a_řádků(H1, H2)
Application.EnableEvents = True
End If
End If
End Sub

Private Sub Skrývání_sloupců_a_řádků(H1, H2)
With Sheets(4)
If H1 = 1 Then
.Rows(1).Hidden = True
.Rows(2).Hidden = False
.Columns(2).Hidden = False
Else
If H1 = 2 Then
.Rows(1).Hidden = False
.Rows(2).Hidden = True
.Columns(2).Hidden = (H2 = True)
End If
End If
End With
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse