< návrat zpět

MS Excel


Téma: přehled rss

Zaslal/a 26.7.2010 13:54

Zdravím,

mám další pro mne zatím nevyřešitelné. Poradí mi někdo prosím?

Mám tabulku kde mám různé stroje, které mají vyrobit různé zakázky a mají je vyrobit předem určený den. Určený den je zapsán do sloupce "O". Potřeboval bych pomocí makra, nebo pomocí čehokoliv, aby se mi automaticky vytvořil přehled co mám dneska(=dnes() ) vyrobit na každém stroji. Šlo by to nějakým způsobem. Hraju si s tím tři dny a nějak mi to pořad nejde.

Díki moc

Zaslat odpověď >

#001988
avatar
příloha
Příloha: rar1988_priority-moje.rar (11kB, staženo 20x)
citovat
#001990
Jeza.m
Ahoj,

postavil bych to trochu jinak a pak nejsou zapotřebí žádná makra.

V přiloženém souboru ve sloupci B si filtruješ stroj a ve sloupci S pak přes 1 fitruješ plán na aktuální den.

M@
Příloha: zip1990_priority-moje.zip (14kB, staženo 20x)
citovat
#001995
avatar
Díki za nápad. Takto jsem to taky zkoušel, ale pak jsem přišel na to že tak to nemužu udělat, protože pak nebudu moct zakomponovat jiné věci tak jak bych si přál.

Nejlepší by bylo nějaké makro které by mi daný list zkopíroval do nového sešitu a tam by mi odflirtoval zakazky na daný den a taky podle stroje. A aby formát tabulky byl podobný jako originál.citovat
#001997
Jeza.m
Pokus č.2

Tlačítko Filtruj -> list Filtr

M@
Příloha: zip1997_priority-moje.zip (24kB, staženo 20x)
citovat
#002002
avatar
Dobrá práce 4 díki. Můžeš mi prosím popsat ty různé kody a jakou mají funkci? Učím se a tak by mě to zajímalo.

Jinak já to taky zkoušel po svém a zatím se zdá že to bude taky fungovat. Ale to tvoje se zdá být lepší 2citovat
#002004
Jeza.m
Public Sub aktual()
'1) zakázat zobrazování změn (pro urychlení)
Application.ScreenUpdating = False
'2) zkopírovat buňky aktivního listu
Cells.Copy
'3) přepnout se na list Filtr
Sheets("Filtr").Activate
'4) vložit
Cells.PasteSpecial xlPasteAll
'5) spustit smyčku začínající 3. řádkem a končící posledním použitým řádkem
For rd = 3 To ActiveSheet.UsedRange.Rows.Count
'6) Podmínka když (buňka na řádku rd v 15. sloupci <> aktuální datum a buňka na řádku rd v 2. sloupci není prázdaná) nebo (buňka na řádku rd v 15. sloupci je prázdná a buňka na řádku rd v 1. sloupci je prázdaná) tak...
If (Cells(rd, 15) <> Date And Cells(rd, 2) <> "") Or (Cells(rd, 15) = "" And Cells(rd, 1) = "") Then
'...smaž řádek rd
Rows(rd).Delete
'...pokud je řádků víc než na kterém jsi tak znovu zkontroluj řádek rd (rd=rd-1)
If ActiveSheet.UsedRange.Rows.Count > rd Then rd = rd - 1
'konec podmínky
End If
'další kolo smyčky
Next
'7) povolit zobrazování změn
Application.ScreenUpdating = True
End Sub
citovat
#002007
avatar
Všechno chápu jen nevím kde je ten řádek rd, nebo k čemu to slouží?citovat
#002008
Jeza.m
rd je číselná proměnná představující číslo řádku se kterým zrovna pracuji. Může být pojmenovaná jakkoliv, třeba radek (for radek = 3 ...)
M@citovat
#002012
avatar
Fakt díki moc za vysvětlení. Už jsem zas o hodně chytřejší 2 Ješte si tam přidám ješte nějaké makro a je to.

Jen bych potřeboval ješte poradit. V 14.sloupci(A/B) mám pokaždé zapsáno buď A nebo B. Potřeboval bych aby se mi to automaticky řadilo tak že na prvních řádcích bude A a pak na dalších řádcích B u každého stroje.(vysvětlivka - A znamená hlavní priorita, B druhá priorita).

Půjde to?

Automatický flirt mi na to nejde použít.citovat
#002013
Jeza.m
Zkus mezi to next a screenupdating přidat následující kód:
Dim pos1 As Single
pos1 = 3
For rd = 3 To ActiveSheet.UsedRange.Rows.Count

If Cells(rd, 2) = "" Then
If rd - pos1 >= 1 Then Range("A" & pos1, "V" & rd - 1).Sort Key1:=Range("N" & pos1), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
pos1 = rd + 1
End If
Next
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