< návrat zpět

MS Excel

Téma: Třídící makro s vynecháním prázdných řádků rss

Zaslal/a parkovec 8.1.2022 15:58

Dobrý den,
potřeboval bych pomoci s třídícím makrem. V sešitě se tímto makrem řadí 20 řádků dle datumu v sloupci A, do kterých postupně budu přidávat data. Makro se spouští změnou v sloupci D. Řadí to ale vždy až na konec a uprostřed to nechá prázdné buňky. Chtěl bych aby to řadilo vždy plné buňky za sebe a prázdné buňky budou na konci.
Věděl by někdo jak na to?

Zaslat odpověď >
parkovec(8.1.2022 17:00)#051849
avatar
Ještě ten sešit 1
Příloha: rar51849_tabulka.rar (17kB, staženo 20x)
citovat
€Ł мσşqμΐτσ(10.1.2022 12:43)#051853
€Ł мσşqμΐτσ
dobrý den,
může být?
Příloha: zip51853_tabulka.zip (19kB, staženo 13x)
citovat
parkovec(10.1.2022 19:43)#051855
avatar
To vynechání prázdných řádků je super :)
Ale přestalo to řadit podle datumu. Když přidám další položku, zařadí ji to na konec datumů v bílých polích, ale neseřadí podle datumu. A po výběru "A" z rozevíracího seznamu v sloupci D to řádku přehodí na začátek zeleného pole opět bez zařazení podle datumu.
Prostě se to musí rozdělit do dvou částí podle barvy a v každé barevné skupině to pak musí být seřazené podle datumu. To právě dělalo to makro. Nešlo by tedy to vynechání prázdných polí nějak udělat do něj?citovat
€Ł мσşqμΐτσ(11.1.2022 9:28)#051858
€Ł мσşqμΐτσ
Omlouvám se za špatně pochopené zadaní. 6
tak snad teď to bude lepší.

podle barvy jsem to nedal, protože se to váže na datum.(podle mě to stačí, ale můžu se mýlit 5 )
Příloha: zip51858_tabulka.zip (20kB, staženo 14x)
citovat
parkovec(11.1.2022 21:19)#051868
avatar
Ono hlavně to moje vysvětlení bylo celkem kostrbaté...
Ale teď je to přesně jak jsem si představoval 1
Moc děkuji!
Abych nezakládal další vlákno, poprosím ještě o pomoc s další věcí.
Pomocí funkce LARGE jsem seřadil do sloupce všechny hodnoty. Funkcí SVYHLEDAT k nim přiřadil příslušnou zkratku. Ale pokud jsou některé hodnoty stejné, přiřadí to zkratku jen tu první a u ostatních stejných hodnot se opakuje.
Dá se nějak udělat, aby to u stejných hodnot vypsalo všechny příslušné zkratky, které tuto hodnotu mají?
Příloha: rar51868_tabulka.rar (20kB, staženo 14x)
citovat
marjankaj(11.1.2022 22:12)#051869
avatar

parkovec napsal/a:

Dá se nějak udělat, aby to u stejných hodnot vypsalo všechny příslušné zkratky, které tuto hodnotu mají?

takto?
Sub Makro3()
Range("B1:C19").Copy
Range("M1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("nový").Sort.SortFields.Clear
Range(Range("M1").CurrentRegion.Address).Sort Key1:=Range("M1"), Order1:=xlDescending
End Sub
citovat
parkovec(11.1.2022 22:22)#051870
avatar
To je ono 1
Také moc děkuji!
Ještě bych poprosil jak v tom makru zadat, aby po seřazení nezůstaly buňky aktivní, prostě aby je to odznačilo?
To je poslední věc a pak už dám pokoj :)citovat
€Ł мσşqμΐτσ(12.1.2022 16:57)#051872
€Ł мσşqμΐτσ
třeba

Range("A1").Select

vložit do "Makro3" jako poslední řádek, nad "End Sub"citovat
parkovec(12.1.2022 19:58)#051873
avatar
Tak tímto mám hotovo přesně podle mých představ 1
Oběma vám moc děkuji!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