Příspěvky uživatele

Ahoj.
Potřebuji, aby se mi vytvářela záloha určitého sešitu a to pouze v časovém úseku mezi xx:xx a yy:yy. (třeba od 10:10 do 10:30) V jiném čase bude tedy makro zablokováno.

Nějak mi to ale nepracuje. Poradíte někdo?
Děkuji

Sub Záloha() 'Spustí makro pouze v čase od 10:10 do 10:30

If ((Time <= "10:10:00") And (Time >= "10:30:00")) Then
MsgBox "ŠPATNÝ ČAS, PROBÍHÁ EXPORT DAT "
Else

Call UložVčera(False)
End If
End Sub

Děkuji všem za zaslané připomínky a doporučení. I uvedená přirovnání jsou na úrovni.

Nicméně celý problém byl vyřešen hned první odpovědí a nebylo potřeba dál řešit.

I tak děkuji xlnc za jeho připomínky a ochotu ukázat jak se dají věci dělat správně.

Díky.

Neříkám, že není vzdělaný, ale ptá se mě pořád dokola na něco co je vidět hned na první pohled v první příloze, kterou jsem zde poslal.

Co je na tom nesrozumitelného?

V jednom sloupci je maximální kapacita v hodinách. V dalším sloupci je aktuální počet naplánovaných hodin, které jsou potřeba na vyhotovení zakázek.

Co je potřeba? To co jsem udělal. Zjisti procento aktuálního zatížení jednotlivých středisek a převést to na procento. To znamená Naplánované hodiny podělit Plánovanou kapacitou.
Pokud se však na dané období nic neplánuje (třeba protože jsou svátky), proto není naplánováno nic a proto je v buňce nula. A jak je jistě všem vzdělaným známo, nulou dělit nelze a proto se objevuje toto "#DĚLENÍ_NULOU!"

Co je na tom nesrozumitelného??!!

Tak když chceš informace tak tady jsou.

V odkazech zdrojová data ze kterých se tvoří denní plány pro výrobu cca 500 zaměstnanců.

V odkaze finální podoba plánu se kterým pracují mistři a vedení. Je tak velká, že jsem to musel uploudnout někam jinam, proto odkaz.

Vzhledem k tomu, že se i u nás plánuje celozávodní dovolená, tak se na to období neplánuje práce. A proto, když není naplánována práce, tak vyjde výsledek tak jak vyšel "#DĚLENÍ_NULOU!". Aby se vedení které není tak zdatné v tomto prostředí nevyptávalo co to znamená, tak chci aby tam bylo naplánováno na 0%. To je pak každému jasné, že se na to období nic nenaplánovalo.

Jak jsem tu již několikrát psal, jsem začátečník a samouk, proto je makro tvořeno především záznamem makra a následně zpětně upravováno podle toho co jsem se přiučil, popřípadě podle toho co jsem dohledal na netu.

Vše potřebné najdeš v příloze a v odkaze.

http://leteckaposta.cz/471517272 -finální podoba

http://leteckaposta.cz/291501425 - zdroj dat pro plány

http://leteckaposta.cz/655631677 -zatížení kapacit 1 týden

http://leteckaposta.cz/495612191 -zatížení kapacit 2 týden

http://leteckaposta.cz/551823797 -zatížení kapacit 3 týden

No potřebuji pro nadřízené vyhodnocení jak je zatížená výroba.
Vzhledem k tomu, jak se plány u vás mění, je potřeba plány sjíždět cca 2x denně. Součástí plánu je spousta dalších informaci jakož to vyhodnocení předešlého dne, aktuální skluz, kolik je z toho zakázek v urgentech atd.

Dříve to borec aktualizoval ručně a trvalo to cca hodinu. Nyní vše pod makrem a jede to cca 4 minuty.

Nevím co víc ti k tomu napsat.

Skvělé děkuji. Evidentně nejsi takový začátečník jak máš v nicku, kdežto já jsem

Ahoj, potřebuji nahradit text v buňkách kde vyšlo "#DĚLENÍ_NULOU!" a to "0%"

Když však použiji níže uvedený kód tak to nefunguje. Poradíte prosím kde mám chybu?

Děkuji

Sub Makro1()

'odkotvit příčky
Rows("4:4").Select
ActiveWindow.FreezePanes = False

'najdi "#DĚLENÍ_NULOU!" a nahraď "0%"

ActiveSheet.Columns("C:N").Replace _
What:="#DĚLENÍ_NULOU!", Replacement:="0%", _
SearchOrder:=xlByColumns, MatchCase:=True

'ukotvit příčky
Rows("4:4").Select
ActiveWindow.FreezePanes = True
End Sub

Makro pracuje dle požadavku. Našel jsem jednu chybu na které se však makro sekne.

Pokud jsou vyplněny všechny buňky ve sloupci B, pak makro spadne. Jinými slovy, pokud pod prvním řádkem nejsou žádná data, neví makro co má dělat.

děkuji

Tak pro ty co nevěří v příloze makro.
Přiložil bych i tabulku ale má 2,1 MB po zabalení

Podotýkám, že jsem začátečník a samouk a tak je to trochu komplikovanější.

Navíc angličtina je pro mě španělskou vesnicí, jsem otec čtyř dětí a nehovím tomu jako dnešní mládež, tak bych vás rád požádal, aby jste se zdrželi narážek, jak to mám dementně udělané a podobně.

Každý nějak začínal a podotýkám, že toto z 90% píši v práci, kde se musím starat ještě o dalších 40 lidí.

Každopádně děkuji za toto skvělé fórum a spoustu ochotných a ohleduplných lidí, kteří pokud mohou, tak pomohou.

Díky všem
Radek

Kluci už se ti netrapte, trochu jsem upravil makro Syda a heurek, už to jede.

Děkuji všem.

Již jsem psal osobně marjankaj, ale napíši to tedy ještě sem.

Mám makro cca o 35 000 řádcích, které cca 9x za den kontroluje plán.

Nyní ještě do něj potřebuji tuto úpravu kvůli vyhodnocení jak moc se daný vedoucí věnuje urgentním zakázkám.

Proto na to potřebuji makro a ne aby to člověka zatěžovalo.

Tak jsem vyzkoušel a nejede tak docela.
V příloze aktuální tabulka. Rutinu jsem hodil do sešitu a na tlačítko.

Jediné co udělá, tak že B1 Poznámky přepíše na dnešní datum.
Potřeboval bych, aby to dnešní datum dosadil do všech prázdných buněk ve sloupci B kde je ve sloupci A nějaká hodnota.

Ale i tak děkuji za ochotu.

Lol Syd už odpověděl aniž bych si všiml.
Moc děkuji a jdu vyzkoušet.

Tak jsem se s tím popral a pokud je ve sloupci A číslo tak se vedle dosadí datum a vybere buňku ActiveCell.Offset(1, -1).Range("A1").Select

A zde to skončí.
Nejsem však schopen zapsat tu opakovačku, aby to tak prošlo celou tabulku.
Sub Makro8() 'OD KDY JE URGENT

Dim Range As Range
Set Range = Columns("A:A")
i = i + 1
For Each i In Range
'For counter = 1 To Rng.Rows.Count
If ActiveCell.Value > 0 Then 'Pokud aktuální buňka ve sloupci "A" obsahuje číslo větší než, nula tak skoč do buňky vedle
ActiveCell.Offset(0, 1).Select
If ActiveCell.Value > 1 Then 'Pokud tato buňka obsahuje text tak se vrať do bunky vedle a o řádek níže ActiveCell.Offset(1, -1)
ActiveCell.Offset(1, -1).Range("A1").Select
Else
ActiveCell.FormulaR1C1 = Date 'Pokud buňka neobsahuje text, vlož NOW(), zkopíruj a vlož jako text
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next
i
End If
End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje