Příspěvky uživatele

Ahoj, díky za návrh v PQ, ale tohle je roztřídění pouze na hlavní kapitoly, tudíž skoro nepoužitelné.
Zkusil jsem vytvořit jak by se to zhruba mělo chovat, ale při počtu cca 42000 řádků je to celkem pomalé. Napadá mě to předělat a ukládat čísla řádku, které byly zobrazeny a ty pak rovnou načíst aby se nemusela procházet celá tabulka. Při zobrazení nebo skrytí určité položky by se jen načetly řádky, kterých se to týká...
Zatím je "klikací" sloupec B na listu "Taric".

Dobrý den,
potřeboval bych v Excelu vytvořit strukturu nomenklatury zboží. Data jsou importovány z XML souboru do listu "Tarzbozi". V listu "Taric" se zobrazují data. Ideálně by se to mělo chovat tak, jak je na webu https://www.celnisprava.cz/cz/aplikace/Stranky/taric-cz.aspx pod odkazem (...) v řádce "(33) Nomenklatura zboží:". Jde mi o to zdali je něco takového vůbec v Excelu možné. Jsem ve VBA začátečník, něco jsem začal, ale nevím jestli jsem se vydal správným směrem. Děkuji za nakopnutí a za rady.

P.S.
- v listu "Tarzbozi" je uloženo jen prvních 10 kapitol zboží
- xml soubor, z kterého jsou data naimportována je ke stažení zde https://www.celnisprava.cz/cz/aplikace/Stranky/ciselniky.aspx?hparams=bmF2aWdQYXJhbT1VQzAwM0Npc2VsbmlrRGV0YWlsJmNpc2VsbmlrPXRhcnpib3ppJnN0YXY9QSZ2ZXJ6ZT0xJnVjPVVDMDA0Q2lzZWxuaWtTZXpuYW01NJ95
- list "Tarzbozi" by se neměl upravovat aby šel při případné aktualizaci naimportovat nový xml

Já ale potřebuji ve skutečnosti vyhodnotit tohle:

If (.Cells(5, 2).Value Like "020319??00" Or .Cells(5, 2).Value Like "0203??0000" Or .Cells(5, 2).Value Like "02??000000") Then
...

Vyhodnotit se má právě ten text co je uložený v proměnný "dotaz". Napsal jsem to jako příklad, ve skutečnosti tam je poskládaná podmínka např.:

dotaz = "(.Cells(5, 2).Value Like "020319??00" Or .Cells(5, 2).Value Like "0203??0000" Or .Cells(5, 2).Value Like "02??000000")"
If dotaz Then
...

Dobrý den,
potřeboval bych pomoci s tímto problémem. Čím mám nahradit proměnnou "dotaz" v podmínce If aby to fungovalo ?. Díky moc.

dotaz = "5 + 5 = 10"
If dotaz Then
MsgBox "A"
End If

Trochu jsem se posunul. Zjistil jsem, že za tagem <sadData> musí být XML s prohlášením popsané schématem ImportT3.xsd napsané v tomto formátu:

<IMPORTT3>
<GUID>1</GUID>
<HEAD>
<SADTYPE>1</SADTYPE>
</HEAD>
<GOODS>
<P32>1</P32>
<CALCDATE>2022-11-11</CALCDATE>
<P33>4415202000</P33>
<P34>CN</P34>
<P38>1000</P38>
<P47>
<CUSTVAL>1000</CUSTVAL>
</P47>
</GOODS>
</IMPORTT3>

špičaté závorky to prostě nebere. Tenhle kód mi vrací správný výstup např. v aplikacu SoapUI:

<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:web="http://cs.mfcr.cz/taric/webservice">
<soap:Header/>
<soap:Body>
<web:Import>
<web:sadData>
<IMPORTT3>
<GUID>1</GUID>
<HEAD>
<SADTYPE>1</SADTYPE>
</HEAD>
<GOODS>
<P32>1</P32>
<CALCDATE>2022-11-11</CALCDATE> <P33>4415202000</P33>
<P34>CN</P34>
<P38>1000</P38>
<P47>
<CUSTVAL>1000</CUSTVAL>
</P47>
</GOODS>
</IMPORTT3>
</web:sadData>
<web:lang>cs</web:lang>
</web:Import>
</soap:Body>
</soap:Envelope>

Pokud to ale pošlu v Excelu tak je výstupem chyba. Napadá někoho nějaké řešení? Díky všem.

Ještě příloha, která se nenahrála u původního příspěvku.

Zdravím,
potřeboval bych pomoci s vygenerováním XML dat z webové služby. Služba je dostupná na adrese https://www.celnisprava.cz/cz/aplikace/Stranky/taric-cz.aspx. Konkrétně mi jde o část Import (https://app.celnisprava.cz/TARICWS/PublicService.asmx?op=Import). V xml tagu <sadData> se vkládá další XML popsané v ImportT3.xsd a to si nejsem úplně jistý jestli to je OK. V přiloženém souboru je pro ukázku i část Codes, která funguje OK.

Můžete mě nakoupnout jak tam dostat datum? Díky

Zdravím,
pomocí VBA zapisuji do buňky:
Bunka.Offset(0, 2).Value = Format$(Now, "dd.mm.yyyy")
... vše funguje, ale všiml jsem si, že pokud chci filtrovat data pomocí filtru na kartě Data, tak se správně datumy nezařazují pod roky, měsíce a dny, a že jsou tam jen tak "volně". Jde to nějak ošetřit? Díky.

Zdravím,
dá se zjistit kolik řádků je označených v proměnné "Oznacene"? Makro funguje pokud označím více jak jeden řádek, ale pokud mám jen kurzor v buňce tak skončí chybou. Díky.

Samozřejmě že ne kopírovat hodnoty z A do B, ten skript jsem zjednodušil a dal jako příklad. Ve skutečnosti načítá hodnoty z řádků, ověřuje přes webovou adresu (API) a stahuje XML ze kterých čerpá další data. Tahle mi fungovalo po jednom řádku.

Jen jsem nevěděl jak pracovat s označenou oblastí a tu pak postupně procházet. Takhle mi to stačí, zbytek si přizpůsobím podle sebe. Díky moc.

A sakra, jsem si nevšiml, že se nenahrála.

Dobrý den,
potřeboval bych pomoct s kódem VBA. Mám udělané makro, které zjistí číslo aktivního řádku, a provede úkon s hodnotou z aktivního řádku. Potřeboval bych aby tohle fungovalo automaticky u všech označených řádků. Některé řádky mohou být navíc odfiltrovány pomocí filtru. V příloze jednoduchá ukázka.
Díky všem.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje