Příspěvky uživatele
< návrat zpět
S pomocnými stĺpčekmi to je úplne jednoduché.
Jedná sa rovnakú tabuľku? Alebo vlastne je sú to tabuľky alebo Tabuľky (objekt)? Nový stĺpec - môže tam byť vzorec? Ten čas je skutočne zaokrúhlený na minúty, teda by sa dalo vyhľadať podľa času? ... Príloha by nezaškodila.
EDIT:
Od brucha príklad
Skúsil som aj nejaký ten komplikovanejší vzorec. Bez pomocného stĺpca.
Ale pozor! Akú máte verziu Office?
Použil som totiž funkcie TEXTJOIN (od Office 2019) a UNIQUE (Office 365 a Office 2021).
Určite to vypočítať nejako pôjde, akurát že netuším, ako ste k tým Vašim výsledkom prišiel. Nechápem postup výpočtu, logiku, čo sa má s čím zrátať a odrátať. Skúste to vysvetliť inak.
Môžete použiť v súbore nejaké pomocné skryté stĺpce?
Pr.
???
=SUMIFS($B$2:$B$20;$A$2:$A$20;A2;$C$2:$C$20;"<="&C2)
Chyba #ODKAZ! Vám vznikne vtedy, ak v Hárok2 napr. do bunky Hárok2!C2 dáte =Hárok1!B2. Túto bunku Hárok2!C2 potom skopírujete aj do Hárok2!A2:B2, aby sa tam preniesli a upravili vzorce aj na ostatné bunky odkazujúce na Hárok1. No a tu vznikne problém. Do Hárok2!B2 sa vzorec vloží ako =Hárok1!A2 ale do Hárok2!A2 by sa mal vložiť už =Hárok1!niečo2, lenže pred "A" už nič nie je. Preto chyba - "niečo" neexistuje. To platí na všetky strany (hore, dole, vpravo, vľavo), aj na rozsahy, posuny pomocou OFFSET/POSUN a pod.
Prístup z VBA na SharePoint (SP) folder je prakticky nemožný. Dá sa pristupovať do neho, ak je zdieľaný do OneDrive (OD). Celkovo ale aj práca s OD vo VBA sa líši ešte aj od toho, aký typ OD to je (Commercial, Customer, obyč OD). Mám za to, že ak súbor nie je použitý, ešte v PC nie je, bude mať adresu začínajúcu https://... a lomky budú "/", no ak už je v PC načítaný bude mať adresu C:\Users\... a lomky budú "\". Do prvého stiahnutia sa synchronizuje do zoznamu súborov len link. To je len typ, nemám SP.
Čítať a správne pochopiť jednotlivé zmeny v takýchto témach je na palicu.
To myslíte asi PowerQuery. Tak si doinštalujte PQ pre Office 2013, lebo E2013 ho ešte natívne neobsahuje. Už sa síce nebude aktualizovať, ale neva. Pribudne Vám záložka POWER QUERY - tam From File - From Folder - ...
U mňa všetko prebehne v poriadku. Akurát som si teraz všimol, že list "unipetrol" má v stĺpci "price disc" vzorec. Takže tam sa bude asi načítavať inak. To som si len od oka tipol, že sa načítajú všetky 3 listy rovnakým spôsobom. To doriešime neskôr.
Každopádne teraz k veci.
- Dám si BreakPoint na ten riadok
sFileTemp = Dir(sDir & "*.xlsx", vbNormal)
- Kliknem na tlačítko "LOAD DATA - INTTANK"
- Kód sa zastaví na BreakPointe, myšou idem na "sDir" a napíše mi cestu.
- Sedí tá cesta naozaj úplne presne (lomítka, medzery, iné znaky ...)? U mňa je to
"E:\Download\data-int-tank\"
- Ak nie som si na 100% istý cestou, tak pklik na sDir - Add Watch... - OK. V okne Watches v stĺpci Value kliknem a skopírujem si hodnotu bez úvodzoviek. Otvorím si Prieskumník a do adresného riadku vložím skopírovanú hodnotu - ENTER. Otvorí mi presne ten adresár o ktorý ide?
- Ak je všetko v cajchu, ale stále to hádže chybu, tak akú konkrétne chybu?
- Ak cesta v cajchu nieje, tak aká má byť presne cesta k danému súboru? Ale presne (umiestnenie, lomítka, medzera všetko).
EDIT: Skúste použiť namiesto Dir() metódu FSO:
sDir
E:\Download\/data-int-tank/
Cesta na HDD obsahuje "\" a online cesta obsahuje "/".
Následne výraz
sDir & "\*.xlsx"
obsahuje
E:\Download\/data-int-tank/\*.xlsx
Sranda, že kód napriek týmto očividným chybám s lomítkami v E2021 prejde 
Sub zaloha()
Dim ADR As String
If MsgBox("Chcete provést zálohu před načtením dalších dat do souboru?" & vbNewLine & "Vytvoří se záložní soubor" & vbNewLine & "a uloží do vámi zvoleného umístění, " & vbNewLine & "Doporučuji!" & vbNewLine & "Soubor bude pojmenovaný dd-mm-rrrr-hh-mm-ss." & vbNewLine, vbExclamation + vbYesNo) = vbYes Then
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then ADR = .SelectedItems(1)
End With
If ADR = "" Then MsgBox "Nevybrali jste umístění pro zálohu." & vbNewLine & "Záloha neproběhla !", vbExclamation: Exit Sub
ThisWorkbook.SaveCopyAs ADR & "\" & Format(Now, "dd-mm-yyyy-hh-mm") & "_" & Environ("UserName") & ".xlsm"
End If
End Sub
sKod = List1.Range("B1")
List1 je ale list "view".
Ak myslíte cestu čo je na liste "procedure" v B1, tak ten je List7.
Ďalej neskúmam, nemám zdroj...
Nemám tu teraz CZ Office, ale skúste namiesto "názevsouboru" použiť "filename". Myslím, že to pôjde aj v CZ Office, lebo naopak bude asi problém v iných jazykoch použiť "názevsouboru". Skúste to overiť pls.
Taká hračička
Snažil som sa obsiahnuť všetky možné situácie, čo by mohli nastať - viď komentáre v bunkách.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články