< návrat zpět

MS Excel


Téma: Odstranění řádku podle hodnoty v jiném listu rss

Zaslal/a 29.5.2014 8:36

Dobré ránko. Chtěl bych se zeptat. V listu 1 mám všechna data, v listu 2 je jen nějaký výběr. Potřeboval bych nějaké makro, které vybere a uloží do listu 3 ty řádky z listu 1, které nejsou obsaženy v listu 2. Určující parametr je skladovka a cena - tedy sloupec R a F v listu 1. Potřebuji, aby to makro vzalo skladovku z listu 2, projelo list1 a pokud narazí na stejnou skladovku, tak ať porovná cenu, pokud se to bude shodovat, tak aby tento řádek v listu 1 smazalo a výsledek uložilo do listu 3. Jinak řečeno, potřebuju z listu 1 ostranit ty řádky, co jsou v listu 2. Díky moc!!!

Příloha: zip19745_prace.zip (9kB, staženo 23x)
Zaslat odpověď >

Strana:  1 2   další »
#019751
avatar
skuste toto:
Sub Macro1()
Z = 1
For x = 2 To Sheets("List1").Cells(2, 1).End(xlDown).Row
aPossible = True
For y = 2 To Sheets("List2").Cells(2, 1).End(xlDown).Row
If Sheets("List1").Cells(x, 18) = Sheets("List2").Cells(y, 1) And Sheets("List1").Cells(x, 6) = Abs(Sheets("List2").Cells(y, 7)) Then aPossible = False: Exit For
Next
If aPossible Then Z = Z + 1: Sheets("List3").Rows(Z).Value = Sheets("List1").Rows(x).Value
Next
End Sub


len bacha na .End(xlDown).Row ... ked bude nejake prazne miesto v prvom stlpci tak to zle urci posledny riadokcitovat
#019752
avatar
Pro poslední řádek lze použít toto(příklad platí pro aktivní list)

LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Rowcitovat
#019756
avatar
Zdravíčko, šlo by prosím udělat něco jako předtím plus něco navíc?
Upravil jsem zdrojová data. Potřeboval bych tak jako předtím, aby makro vymazalo řádky z list1, které jsou obsaženy v list2 – kritérium skladovka a pak cena, zapsalo to do listu 4 a k tomu pod tato vytříděná data připsalo data z list3?
Příloha: zip19756_brezen.zip (60kB, staženo 23x)
citovat
#019759
avatar
A ještě takové pokračování.
Šlo by nějak zredukovat řádky? Kritérium je sloupec A skladovka. U položek se stejnou skladovkou ve sloupci A, ALE NEBUDE ŽÁDNÝ NÁZEV VE SLOUPCI C, tak aby se sečetly k dané skladovce kusy a cena? Ostatní řádky, u nichž není skladovka, tak aby zůstaly nezměněné.citovat
#019760
avatar
tu som dorobil aby velkost tabulky bralo z dola a nie zhora a + tu dalsiu poziadavku

vsimol som si ze v niektorych riadkou nemate uvedenu skladovku ...... tj. makro nebude pracovat spravne
Příloha: zip19760_brezen.zip (62kB, staženo 23x)
citovat
#019762
avatar
přesně tak, v některých řádcích, není skladovka, šlo by to nějak ošetřit, aby tyto řádky to automaticky přepsalo? třeba nejdříve přepsat tyto řádky a pak ve zbytku tu selektovat?citovat
#019763
avatar
ako ich ma prepisat?? ... nejak tomu nerozumiem

akoze ich nema brat do uvahy?citovat
#019764
avatar
řádky z list1, u kterých není vyplněná skladovka, ať rovnou přepíše do list4, ostatní data ať porovná s list2, a nakonec ať připíše do list4 data z list3.citovat
#019765
avatar
a nakonec, jestli by šlo udělat to zredukování, to znamená že list 4 by to třeba zredukovalo do list5, redukci řádků by to provedlo tak, že pokud bude stejná skladovka (ALE ZÁROVEŇ NEBUDE VYPLNĚN SLOUPEC C), tak aby to sečetlo sloupec D kusy a sloupec E cena pro danou skladovku.citovat
#019767
avatar
ok tu je to opravene:
Příloha: zip19767_brezen.zip (63kB, staženo 23x)
citovat

Strana:  1 2   další »

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09