Příspěvky uživatele
< návrat zpět
No pokud nebudu brát sloučené řádky v potaz, tak je makro smaže.
Každopádně něco sem zkusil, výsledek v příloze. Netuším jak bude ovšem probíhat další zpracování. Jednotlivá data jsou "rozházená" do několika sloupců.
Slučuji několik PDF a následně je převádím na excel.
Takže dokážeš ovlivnit strukturu dat?
Protože od řádku 195 po 236 je sloupec A tvořen sloučenými buňkami, jiné řádky takto postiženy nejsou.
Pokud se buňka rozdělí, ve sloupci A má poté hodnotu např. "38 Kunštát" což neprojde testem na "číslo".
V tom zadání Ti nějak haprujou sloupce, tak sem vzorec zapsal mimo tabulku.
...ještě detail : Kam a jak prosím nejlépe zařadit tu podmínku, že zpracováváme jen položky ze zdroje co mají sl."O" prázdný
Ta podmínka je již v kódu obsažena, přesně na řádku, který zmiňuješ o post níže
If IsEmpty(rng.Offset(, 3).Value) = False Or IsEmpty(rng.Offset(, 14).Value) = True Then
Toto Dim rng As Range, rngID As Range, rngDZ As Range, rngFind As Range
Dim ID As String
je deklarace proměnných.
viz https://wall.cz/excel-navod/deklarace-promennych-a-prehled-datovych-typu-vba
Zkouším to "napasovat" na jiný sešit, stejná struktura a nic mi nenalézá.
To Ti nikdo na dálku neřekne. Nevím už, ze kterého souboru sem vycházel, ale kód sem psal na 3x, dvakrát sem vzteky soubor smazal a chtěl se to ...
Příčnou jsou "nelogické" požadavky (což je možná i důvodem, proč se do toho nikomu nechce), chceš porovnávat variabilní symboly a v spouštěcím souboru z toho uděláš nějaké ID. Další věcí je, že hodnoty ID byly zapsány s nadbytečnými mezerami což bylo příčinou nefunkčnosti.
A další zádrhele se jistě najdou např. minusové položky s VS
Tak podle mě, tam žádná chyba není. Když sem počet zkontroloval ručně dostanu se ke stejnému výsledku jako vzorec, tedy
první produkt 17 sloupec E 16 sloupec AA 1 =17
druhý produkt 30 sloupec G 16 sloupec CC 14 =30
součin.skalární
V příloze hrubý nástřel.
Jelikož je zadání takový jaký je, víc s tím dělat nebudu.
Ještě mám další variantu, kde do nového sešitu kompletně zkopíruje vybraná oblast včetně formátování a odstraní se propojení mezi sešity, které tímto způsobem vzniká.
Například takto:
A řešení je v nastavení zabezpečení zatrhnout:
Soubor sem si stáhl, a hlásí mi toto:
Opravdu nepotřebuješ x maker.
Sub Makro1()
Dim Cil As Range
Set Cil = List1.Range("Q14")
Select Case List1.Range("B1").Value
Case 1
Cil.Value = "Ano"
Case 2
Cil.Value = "Ne"
Case 3
Cil.Value = "Nevím"
Case 4
Cil.Value = "Asi ne"
Case 5
Cil.Value = "Asi ano"
Case Else
Cil.Value = "Vymýšlím hovadiny"
End Select
Set Cil = Nothing
End Sub
Jasně rozumíme, v tom případě požádej původního autora kódu o doplnění. 
Nijak, buď zkusíš ve svém storu vyhledat aplikaci s požadovanou funkcionalitou, nebo si ji necháš od někoho napsat.
Pokud vlastníš android, můžeš zkusit kontaktovat uživatele Pavla z https://pc.poradna.net/questions/3031013-napad-na-aplikaci
Ke konci vlákna tam prezentoval podobnou apku, možná by ji upravil podle Tvých potřeb.
Nejjednodušší řešení je ukotvit první řádek a tlačítko umístit tam.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články