< návrat zpět

MS Excel


Téma: Harmonogram_kontrola směn rss

Zaslal/a 26.1.2014 9:25

Omlouvám se, jak přidám přílohu, hlásí chybu "Uložení se nezdařilo. Pravděpodobně jste nezadal(a) text nebo znaky z kontrolního obrázku".
Žádný ale nevidím 7 7

Zaslat odpověď >

Strana:  1 2   další »
#017489
avatar
A zazipoval si ten súbor?citovat
#017490
avatar
Díky, nasadil jsem jiné brýle 1 , přečetl řádně podmínky pro vkládání příloh a jde to
Příloha: 7z17490_rozpis_dotaz_01.7z (23kB, staženo 29x)
citovat
#017494
avatar
Patří zároveň k tomuto tématu.
http://wall.cz/index.php?m=topic&id=17486
Příště není potřeba zakládat nové téma, stačí dát odpovědět.

Není tam osetreno kdyby nekdo zadal 5smenu na zacatku (místo za 4 tak pred 1)
Stačí upravit název listu kam se budou kopírovat prohřešky.

Umístit do modulu listu mesice.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim smena As Byte, pocetsmen As Byte
Dim listprohresku As Object, radekprohresku As Integer

'***** test zda je ranni po nocni
If Cells(Target.Row, 1) = "R" And Target.Value = "x" And Target.Offset(1, -1).Value = "x" Then
MsgBox "Nelze zadat ranní smenu po nocní !!! ", vbCritical
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
'***** test zda 5 smen za sebou
If Target.Value = "x" Then
For smena = 1 To 4
If Cells(Target.Row, Target.Column - smena) = "x" Then
pocetsmen = pocetsmen + 1
End If
Next smena

If pocetsmen = 4 Then
If MsgBox("Pátá smena za sebou!! " & vbNewLine & vbNewLine & "Chcete ponechat?", vbInformation + vbYesNo) = vbNo Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Else
Set listprohresku = Sheets("jmenolistu")
radekprohresku = listprohresku.Cells(Rows.Count, "A").End(xlUp).Row + 1
listprohresku.Cells(radekprohresku, 1) = Cells(Target.Row, "B")
listprohresku.Cells(radekprohresku, 2) = Cells(4, Target.Column) & "." & Format(Cells(3, "B"), "mm") & "." & Cells(4, "B")
End If
End If
End If
End Sub
citovat
#017501
avatar
Mockrát děkuji, jak se dostanu k PC odzkouším.citovat
#017516
avatar
Dobrý večer.
Přiznávám že ve VBA dost tápu, občas se mi podaří upravit hotový kód pro vlastní potřebu, tady se mi ale celé odpoledne nedaří.
Kontrola max. počtu směn při zadání i jedné směny X v „leden!$C$5:$D$30“ (prvé dva dny v tabulce směn) naskočí hláška VBA, v ostatních dnech v pořádku. Dá se ošetřit i ta varianta s doplněním 5 směny na začátku? Při pokusech jsem přišel i nato, že se vlastně pro řádnou funkci musí kontrolovat při obsazení směn na začátku měsíce, měsíc předcházející. Harmonogram na celý rok obsahuje listy na každý měsíc.
Kontrolu ranní směny po noční jsem bohužel nedokázal vůbec rozchodit. Ještě pro upřesnění označením „X“ se jedná o směnu 12 hod. „R“ je směna 8 hod. po noční směně nemůže následovat X ani R.
Ještě jednou děkuji za pomoc.
Příloha: jpg17516_hlaskavba.jpg (197kB, staženo 20x)
17516_hlaskavba.jpg
citovat
#017527
avatar
Mě to žádnou chybu nehlásí.
Posílám upravenou přílohu i pro kontrolu 5 smeny pred, za i uprostřed. Kontrola ranní směny funguje jak má.

Nicméně na to koukni teď.
Příloha: zip17527_rozpis_smen_dotaz_01.zip (32kB, staženo 24x)
citovat
#017563
avatar
Dobrý večer,
Omlouvám se, kontrola ranní po noční je v pořádku, kopii listu, kterou jsem poslal, jako přílohu k dotazu jsem odesílal z práce, kód jsem zkoušel doma a na listu leden jsem neměl vyplněné R, N ve sloupci A. V zápalu boje jsem si toho nevšiml.
Kontrola max. počtu směn; nejde vložit směnu „X“ do C5:C30, naskočí hláška VBA. Ještě jsem si uvědomil, že při kontrole max. počtu směn je třeba zahrnout i kombinaci ranní noční. Např. nelze jít 4x ranní a 5 noční.
Děkuji za pomoc i čas, který mému dotaz věnujete.
Příloha: jpg17563_hlaskavba1a.jpg (169kB, staženo 26x)
17563_hlaskavba1a.jpg
citovat
#017600
avatar
Není tam zatím kombinace ranní noční pro kontrolu.
Musím to pořádně promyslet.

Bude se kontrolovat přechod měsíců pro počet směn?
Příloha: zip17600_rozpis_smen_dotaz_01.zip (33kB, staženo 19x)
citovat
#017606
avatar
Bojuju, bojuju, bohužel jsem vloženou přílohu nedokázal rozchodit, nejde vložit žádný znak.
Kontrolu max. počtu směn provádět i pro přechod měsíce.

Celý sešit s harmonogramem je pro nepřetržitý provoz, kde první čtyři směny se střídají po 12 hod (X) ranní, noční + dvě směny záskokářů kteří kromě st. čt. ranní, jdou pouze na 7:30 hod (R) dále pak vykrývají případné dovolené nemoci ….. .
Sešit obsahuje listy s různými přehledy náhradního volna, počty dní dovolené, výpočet stravenek, sestavení rozpisu na týden podle skutečného obsazení směn apod. (většina pomocí vzorců). Sešit je na jeden rok a jednotlivé měsíce mají každý svůj list leden – prosinec. Kontrolu max. počtu směn provádět i pro přechod měsíce. Je uložený na společném disku kde k němu mají všichni přístup, zabezpečení je podle oprávnění při přihlášení (čtení, zápis).
Mockrát děkuji.
Příloha: jpg17606_rozpisvba.jpg (195kB, staženo 27x)
17606_rozpisvba.jpg
citovat
#017607
Opičák
Jenom jsem se mrknul proč by to jako nemělo chodit a je tam myslím chyba na řádku 33 makra (toho co se z důvodu chyby zastaví). Je tam omylem EXIT FOR, oprav na EXIT DO.citovat

Strana:  1 2   další »

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