Vím, že je to JSON. Reagoval jsem na tohle: Podařilo se mi jen natáhnout data přes PowerQuery, ale zde se mi pro změnu nedaří dát proměnnou IČ
Zkoušel jsem ve VBA vytahat data ze JSON podle návodů nebo videí na YT, Bez úspěchu.
Tak sem to zkusil nahulváta rozsekat přes fci MID.
Ičo v buňce A5, výsledek se vypisuje do okna Immediate
Adresa by měla být
https://ares.gov.cz/ekonomicke-subjekty-v-be/rest/ekonomicke-subjekty-res/
s konkrétním ičo
https://ares.gov.cz/ekonomicke-subjekty-v-be/rest/ekonomicke-subjekty-res/26041561
Proměnná by tedy měla být místo toho čísla, ne? S PQ se nekamarádím, ale možná by to šlo.
To přidání tlačítek na pás karet se provádí úpravou xlm toho konkrétního souboru pomocí "Custom UI Editor" (Koukni na youtube). Takže ono nastavení cestuje spolu se sešitem.
Cože to?
"Toto řešení s příkazem na panelu nástrojů ale nebude dostupné u jiných uživatelů, kteří tento sešit obdrží a budou s ním pracovat" ---> Proč?
Řešení bez fce FILTER
_xlfn vypadá, že tvůj excel neobsahuje použitou funkci. Jakou používáš verzi?
fce FILTER
Jestli máš CZ Excel tak místo EVALUATE použij VYHODNOTIT
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
With Range("A3")
.Activate
.Value = .Value + 1
End With
Application.EnableEvents = True
End If
End Sub
Kopie celého listu do nového sešitu
Pokud by nebylo potřeba v msgboxu zobrazit "závadný znak", dal by se využít regulární výraz.
Něco k inspiraci: https://www.mrexcel.com/board/threads/date-input-mask-applying-a-watermark-to-textbox.1231537/
https://wall.cz/index.php?m=topic&id=54219#post-54244
Obávám se, že manuálnímu vykopírování dat do nového souboru se nevyhneš, pokud tedy není možné obnovit soubor ze zálohy.
Můj osobní tajný tip je, že ten soubor je poškozený.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.