< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#051849
avatar
Ještě ten sešit 1
Příloha: rar51849_tabulka.rar (17kB, staženo 17x)
citovat
#051853
€Ł мσşqμΐτσ
dobrý den,
může být?
Příloha: zip51853_tabulka.zip (19kB, staženo 12x)
citovat
#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
#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 11x)
citovat
#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 13x)
citovat
#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
#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
#051872
€Ł мσşqμΐτσ
třeba

Range("A1").Select

vložit do "Makro3" jako poslední řádek, nad "End Sub"citovat
#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

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