příloha
Příloha: 
1988_priority-moje.rar (11kB, staženo 20x)
citovat1988_priority-moje.rar (11kB, staženo 20x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: přehled
MS Excel
Téma: přehled 
Zaslal/a Niffki 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
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@
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: 1990_priority-moje.zip (14kB, staženo 20x)
citovat1990_priority-moje.zip (14kB, staženo 20x)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
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
Pokus č.2
Tlačítko Filtruj -> list Filtr
M@
Tlačítko Filtruj -> list Filtr
M@
Příloha: 1997_priority-moje.zip (24kB, staženo 20x)
citovat1997_priority-moje.zip (24kB, staženo 20x)Dobrá práce 
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ší
citovat
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ší
citovatPublic 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 Subcitovat
'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 Subcitovat
Všechno chápu jen nevím kde je ten řádek rd, nebo k čemu to slouží?citovat
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
M@citovat
Fakt díki moc za vysvětlení. Už jsem zas o hodně chytřejší 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
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
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
Nextcitovat
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
Nextcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články