Příspěvky uživatele

Mno, takže pokud se vám takto stále mění zadání, podívejte se na Power Query. Když ho pochopíte, může být pro vás snadnější než VBA a zvládne toho opravdu hodně.

Pokud jsem porušil nějaké krédo, tak se omlouvám.

Pokud vám někdo soubor odemkne, je to jeho volba. Nicméně by to mělo být formou, že vy zašlete uzamčený soubor a dostanete zpět odemknutý.
V žádném případě by tu nikdo neměl umístit návod nebo odkaz, jak se to dělá - stejně mu to smažu.

A to krédo je, že pokud někdo něco uzamkl, měl k tomu důvod a měl by to být on, kdo to odemkne.

@elninoslov
Ale keď má eLCHa podstatne rýchlejší nápad, tak myslím, že je dokončenie tohoto aj zbytočné... Inak s tými externými súbormi to trvá cca rovnako dlho 20 s (u mňa).

Není to zbytečné. já myslím, že jemu nezáleží na tom, jestli to jede 20s nebo 40s, ale jestli to funguje a správně. A když už to máte skoro hotové...

Mně opravdu jen zajímalo, jestli je textový řetězec opravdu to nejrychlejší a moc se mi to nechtělo líbit.
Zkusil jsem fci Filter, ale ta byla pomalejší a pak mně napadlo Collection + named key.

Jinak já běžně také používám stringy, ale ne na tak rozsáhlá pole.

Další možností je ADO a příkaz JOIN, také by bylo zajímavé otestovat, jak to vychází...

@elninoslov

Nedalo mi to a musel jsem to vyzkoušet.
Váš kód jede na mém PC 40 vteřin.

Využití Collection mi vychází 4x rychlejší (jel 8 vteřin), navíc má výhodu, že odhalí duplicity (proto se naše výsledky nebudou shodavat - nějaké tam máte). A je obecný (nepoužívá transpose)
Ještě by to šlo možná optimalizovat, ale už nemám čas ;))

Pokud máte stálý počet produktů, můžete pužít SUMIFS.
Já bych šel do kontingenční tabulky.

@elninoslov
Já věřím, že tam není ;)

Funkci MAXIFS si můžete vyzkoušet i v online verzi excelu a stejně tak mi ji nabízí android.
Na desktopu mám e2010, takže tam nevím.
Dle tohoto je v e2016, ale když ji nemůžete najít...

V excelu 2016 lze navíc nativně využít i Power Query.

zvykněte si psát verzi excelu

Máte tam?
MAXIFS

jinak maticově=MAX(KDYŽ($D$7:$D$11=$G$2;$E$7:$E$11;0))

@David123
Jakou máte verzi excelu. Tohle totiž úplně jednoduše zvládne Power query (Sloučit dotazy a použít Levé Anti)

Jinak, komentáře nepíšu. On je to jednoduchý kód a nejlépe to stejně pochopíte, když na to přijdete sám (jé, tohle dělá tohle, ahá...)

Jedna z milionu cest.
Seznam hodnot ukládám do pole sValues.
Počet zjistíte pomocí Ubound(sValues)Sub test()
Dim rRange1 As Range
Set rRange1 = Range("A1").CurrentRegion
Set rRange1 = rRange1.Offset(1, 0).Resize(rRange1.Rows.Count - 1, 1)
Dim rRange2 As Range
Set rRange2 = Range("D1").CurrentRegion
Set rRange2 = rRange2.Offset(1, 0).Resize(rRange2.Rows.Count - 1, 1)

Dim sValues() As String
ReDim sValues(1 To 1)
sValues(1) = vbNullString

For Each rCell In rRange1.Cells
If Application.WorksheetFunction.CountIf(rRange2, rCell.Value2) = 0 Then
If Not Len(sValues(1)) = 0 Then
ReDim Preserve sValues(1 To UBound(sValues) + 1)
End If
sValues(UBound(sValues)) = rCell.Value2
End If
Next rCell
Set rCell = Nothing

Set rRange1 = Nothing
Set rRange2 = Nothing
End Sub

=COUNTIFS($C7:$AF7;"X";$C$6:$AF$6;">="&DATUM(ROK(DNES());MĚSÍC(DNES());1);$C$6:$AF$6;"<="&DNES())

No, jak by mohlo dojít ke změně z jiného listu, to teda nevím
To nemusíte. Asi se všichni s tímto jevem jednou setkáme (ano, i já) - většinou nepřijdete na to, proč se děje to, co se děje, protože při ladění bude vše správně. I u mne docházelo ke spouštění událostí z objektu, kde to nedávalo smysl.

Pokud pracujete s konkrétním listem, vždy ho v kódu specifikujte. Např. tak, jak píše Vovka.

ActiveWorkbook, ActiveSheet a vlastně ActiveCokoliv používejte pouze výjimečně - pouze v případech, kdy opravdu potřebujete pracovat s aktivním objektem (tedy neznáte jeho přesnou definici).

Samozřejmě alt+;
Děkuji za upozornění.
Já k tomu používám ctrl+enter, taxe mi to asi spojilo.

@mepexg
OK. Já jsem se lekl, že je tam nějaký technický problém.

@mepexg
1/ bat je na vytvorenie cesty (substitúcie adresára na disk Q:) ku zdrojovým súborom.

Tady bych se z dovolením zeptal.
Má nějaký důvod, proč používáte bat a ne buňku v daném souboru, případně v kombinaci s funkcí POLÍČKO (CELL)?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje