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

Příspěvky uživatele

???
=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.

To bude záležať na konkrétnom prípade štruktúry dát. Ak si chcete zamotať hlavu, tak napr. tu riešia kombinácie KT, ListObject, PivotCache, Connection, QueryTable ...
Ak pre Vašu štruktúru dát (prepojenia, dotazy, kt, ...) funguje cesta najmenšieho odporu - RefreshAll, použite ju. Je to schodnejšie, ako zbytočne hľadať prečo sa KT obnovila skôr ako jej zdroj (teda sa tým pádom neaktualizovala), ak Vám to nerobí.

RefreshAll obnoví všetko, druhé makro iba QueryTables. Napr. v tom Vašom súbore wall fuel_format.xlsm nie je ani jediná QueryTables, ale obnoviť dáta cez Obnoviť všetko trvá 3 s.

Dajte si BreakePoint na tento riadok
qt.Refresh BackgroundQuery:=Falsea zistíte, že sa tam makro ani nedostane.

Nebudete predsa spúšťať 74 makier, alebo písať 74x ten istý úryvok kódu. Treba použiť cyklus. Názvy tých súborov máte niekde v zošite uložené aj s heslami?

Takto?ThisWorkbook.RefreshAll

Skúste toto, ale podľa komentárov bude záležať na konkrétnej kombinácii Win+Edge+32/64bit+Office.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse