< návrat zpět

MS Excel


Téma: zhoda v stlpci a nasledne odstranenie riadka . rss

Zaslal/a 8.6.2015 22:41

Ahojte, potreboval by som poradit, evidujem tovar do pracovneho harku "evid" pomocou tlacitka Prijem. Zosit obsahuje aj tlacitko Vydaj. Dal by sa odstranit riadok z harku evid ak stlacim tlacitko vydaj a v bunke E8 na harku zadat bude nazov tovaru ktory uz bol zaevidovany na harok evid?

Skusal som to popisat co najlebsie, dufam ze sa podarilo :)
V prilohe som to znazornil lebsie .
Dakuejm

Příloha: rar25382_prijem-a-vydaj.rar (20kB, staženo 21x)
Zaslat odpověď >

#025387
Hav-Ran
Toto je jedna z možností. Spustil som záznam makra, predviedol čo chcem ako výsledok a potom kód doladil aby fungoval. Určite to ide aj sofistikovanejšie, takto sú ale vido jednotlivé kroky a poslúži to na učenie VBA. 8
Příloha: zip25387_prijem-a-vydaj_hav.zip (24kB, staženo 20x)
citovat
#025392
elninoslov
Odkazujete tam na bunku L4, tá dáva vždy "", musíte odkazovať na I4. To je len detail.

Výborné riešenie cez AutoFilter, chcel som to ísť urobiť cez filtrovanie poľa. Toto je lepšie.

Ak bude dotyčný chcieť vymazať len riadky ktoré odpovedajú aj tovaru, aj firme, aj dátumu, aj množstvu tak to musí byť nejako takto. Inak sa mu vymažú aj riadky pre iné firmy, ale možno o to ide. Na to aby to filtrovalo aj dátum, som ale musel pridať schovaný stĺpec s číslom dňa, lebo filter mi dátum ako dátum nefiltruje tak ako si predstavujem. Akviete niekto tento filter dátumu vyriešiť inak, prosím písnite.

Kód na pridanie riadkov som skrátil. Bez With by to šlo dať na jeden riadok.
Příloha: rar25392_prijem-a-vydaj_hav.rar (20kB, staženo 20x)
citovat
#025436
avatar
Dobry den vsetko funguje dakujem pekne, mam ale problem ze na stlpci A mam funkciu counta(A3:A1000) ak stlacim vydaj a odcita posledneho zhodneho zakaznika to znamena ze stlpec A je prazdny funkcia counta(A3:A1000) sa zmeni na counta(A2:A2). Da sa to nejak vyriesit? Dakujemcitovat
#025437
avatar
Dobry den, problem sa mi podarilo vyriesit.

Selection.EntireRow.delete
som nahradil
Selection.EntireRow.ClearContentscitovat
#025454
elninoslov
ClearContents riadky nemaže. Maže iba obsah. Budete mať "deravú" tabuľku. Tam kde používate to COUNTA() dajte napr.
=IF(COUNTA(A3:A978)=0;ERF(;);COUNTA(A3:A978))
a vráti Vám to chybu #NEDOSTUPNÝ, a nie A2:A2. Alebo proste iba testujte 0. Neviem aké máte presne použitie toho COUNTA, čo robíte s výsledkom ďalej...citovat
#025458
elninoslov
Urobil som Vám možnosť si zvoliť, ktoré údaje sa pri splnení podmienky budú mazať. Máte tam aj použitie funkcie COUNTA s vrátenou chybou ak je 0, dá sa to použiť napr. pri dynamickom rozbaľovacom zozname (Vaše použitie COUNTA ako som písal nepoznám).
Příloha: rar25458_prijem-a-vydaj_hav2.rar (23kB, staženo 23x)
citovat

Uživatelské menu

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

Menu

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.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21