MS Excel

A zazipoval si ten súbor?citovat

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 Subcitovat

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.citovat

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.citovat

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.citovat