< návrat zpět

MS Excel


Téma: VBA - sloučení řádku s duplicitou rss

Zaslal/a 4.2.2016 15:59

Dobrý den,
potřebuji poradit s řešením následujícího problému přes VBA. Do přílohy jsem vložil tabulku, které se to týká.
Popis tabulky:
jedná se o tabulku se zápisem DIC, čísla dokladu, ..,..,potom finančn. částek rozdělených do 3ch skupin 10,15,21%.

Čeho potřebuji docílit je následující:
Potřebuji makrem prohledat tabulku a to dva sloupce DIC a čísl. dokladu. Tyto dva sloupce obsahují duplicity. Já potřebuji prohledat čísla dokladů a u těch co mají stejné číslo dokladu zkontrolovat zda mají stejné dič. Pokud ano potřebuji sloučit řádky dohromady (a to na konec tabulky) + původní řádky vymazat. Tam kde je stejné číslo dokladu ale rozdílné Dič ponechat v původním stavu.

Děkuji za každou radu.

Opraveno: číslo účtu na číslo dokladu

Příloha: jpg29872_clipboard01_excel.jpg (172kB, staženo 25x)
29872_clipboard01_excel.jpg
Zaslat odpověď >

#029878
Hav-Ran
Toto sa mi zdá by mala zčasti zvládnuť kontingenčná tabuľka, len škoda že si nepriložil súbor ako to vyzerá a ako to má vyzerať. Vymysli falošné dáta a hotovo, len štruktúru ponechaj.
A ešte - píšeš že potrebuješ prehľadať čísla účtu - v tabuľke nič nevidno, žiadne číslo účtu.
Nikto nebude sám z hlavy vytvárať súbor, keď netuší čo je kde.citovat
#029901
elninoslov
Skúste či je to to, čo ste chcel. Nezdá sa mi, že chcete zlučovať rôzne dátumy, a nepovedali ste ani koľko to má stĺpcov, akého formátu, či sa budú sčítavať (tak som to urobil) atď. Je to minimum informácii, navyše bez prílohy...

EDIT: 5.2.2015 09:08
Oprava prílohy
Na tom čo som si vytvoril to funguje tak ako si myslím, že aj má. Ak to Vy máte ako Tabuľku a nie tabuľku, alebo máte pred tým (asi áno) iné dáta atď, atď, tak to fungovať nebude.
Príloha je bezpodmienečne nutná.
Příloha: zip29901_zosit2b.zip (72kB, staženo 23x)
citovat
#029916
avatar
Dobrý den,
děkuji za váš návrh. Data se nijak nesčítají. Výskyt dokladu by ěl být max. 3x za sebou.
V okamžiku jak jsem nahrál ostrá data a následovala situace:

cz12345 / 1235
cz12345 / 1235
cz12345 / 1235
cz12345 / 1236
cz12345 / 1236
cz12345 / 1236
cz12345 / 1236
výsledek by pouze cz12345 / 1236

ale měl by byt cz12345 / 1235 a cz12345 / 1236
ale výskyt cz12345 / 1235 v tabulce zanikl (možná proto že měli stejné DIC?

V příloze přikládám soubor s dat a tabulkou, které se to týká.
Příloha: 7z29916_duplikate_test.7z (17kB, staženo 21x)
citovat
#029921
elninoslov
Len mi nepovedzte aj teraz, že to nefunguje.
A podľa čoho sa vyberá hodnota v stĺpci 12 ? Raz je tam z ANA = N, druhý krát ale z ANA = A.
Příloha: zip29921_zlucenie-duplikatov.zip (28kB, staženo 27x)
citovat
#030076
avatar
dobrý den, omlouvám se za zpoždění. Ano nyní to funguje, jen se vyskytl nějaký problém při vymazání slučovaných řádků. Háže mě to na debug řádku
If Not Vym Is Nothing Then
-> Vym.EntireRow.Delete 'Vymaž riadky
End If

Jinak to slučuje jak má. Ale odstranění funguje ve vzorovém ale v ostré verzi nikoli.citovat
#030127
avatar
Vrátil jsem se zět k tomu co jste psal dříve a je to v tom že v tabulce jsou i řádky které se neslučují. A zůstávají v tabulce nadále.

swomp napsal/a:

dobrý den, omlouvám se za zpoždění. Ano nyní to funguje, jen se vyskytl nějaký problém při vymazání slučovaných řádků. Háže mě to na debug řádku
If Not Vym Is Nothing Then
-> Vym.EntireRow.Delete 'Vymaž riadky
End If

Jinak to slučuje jak má. Ale odstranění funguje ve vzorovém ale v ostré verzi nikoli.
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje