[Resolvido]Escala de Serviço

Boas
Mais uma vez venho pedir ajuda a todos vós, mestres do access.
quero fazer uma escala de serviço para 10 funcionarios, sistema rotativo (todos trabalham com todos)turnos de oito horas com dois funcionarios e no maximo 40 horas por semana
a-manel
b-zé
c-tiago
d-pedro
e-maria
f-....
g-....
h-....
i-....
j-....
o esquema da escala é este mas pode ser outro qualquer:
Ver imagem grande

alguem me pode ajudar?

Boa tarde, dteixa
Crie tabela com funcionários e outra com turnos. Crie código para preencher os turnos a partir das combinaçõe, 2 a 2, dos funcionários.
Tenha em consideração que existem férias, doença, licenças e outras ausências. Pense nos casos que tenha que alterar com o decorrer da execução dos turnos

Boas
Alexandre, falas bem e bonito, lol, mas o problema é esse,
entendes-te direitinho o esquema mas não sei nem por onde começar, já fiz as tabelas mas na hora de calcular os turnos nada acontece,
ele deve calcular os turnos aleatoriamente mas tendo em atenção os períodos proibidos dos funcionários ( ferias, doença, outros) definidos por mim.
agradeço qualquer ajuda, penso que este tema ira ajudar mais gente.

Bom dia,
1º Disponibiliza as tabelas
2º A escala é aleatória? ou pode ser organizada?

Boas
a escala pode ser de qualquer maneira e feitio desde que respeite o seguinte,
-8 horas por dia
-em média 40horas por semana (podem ser menos, e é media anual)
-no mínimo 2 dias de folga por semana
-dois operadores por turno
-tenha atenção as ausências.

aki vai a BD

Boa tarde,
Cole o código num módulo e execute o procedimento
Option Compare Database
Option Explicit
'código criado por Alexandre Neves
'em 2012-12-15
'para dteixa
'do fórum MaximoAccess

Sub CriaTurnos()
Dim RstOperadores As DAO.Recordset, RstTurnos As DAO.Recordset
Dim dtData As Date, Inicio As Date, Fim As Date, Turno As Byte

Set RstOperadores = CurrentDb.OpenRecordset("SELECT * FROM Operadores;")
Set RstTurnos = CurrentDb.OpenRecordset("SELECT * FROM Turnos;")
Inicio = #1/1/2013#
Fim = #12/31/2013#

For dtData = Inicio To Fim
For Turno = 1 To 3
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica1:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
RstOperadores.MoveNext
GoTo Verifica1
End If
RstTurnos.AddNew
RstTurnos(1) = dtData: RstTurnos(Turno + 1) = RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica2:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
RstOperadores.MoveNext
GoTo Verifica2
End If

RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstTurnos.Update
RstOperadores.MoveNext
Next
Next
End Sub

Function Trabalha(Operador As String, dtData As Date) As Boolean
If DCount("*", "Ausencias", "Operador='" & Operador & "' and #" & Format(dtData, "m-d-yyyy") & "# BETWEEN Inicio and Fim") = 0 Then
Trabalha = True
Else
Trabalha = False
End If
End Function

Bravo Alexandre, muito bom mesmo.
porem...
há três coisas que eu pretendia se for possível,

- os três turnos saírem na mesma linha do dia,
- as parelhas estão a sair sempre as mesmas ao longo do ano e a ideia era mudar a cada semana ou a cada mês, (todos a trabalhar com todos),
- nos dias de feriado os campos da tabela (formulário ou relatório) mudarem de cor.

se puderes só mais este pequeno contributo fico muito agradecido.
mais uma vez muitos parabéns.

Para registar na mesma linha
Option Compare Database
Option Explicit
'código criado por Alexandre Neves
'em 2012-12-15
'para dteixa
'do fórum MaximoAccess

Sub CriaTurnos()
Dim RstOperadores As DAO.Recordset, RstTurnos As DAO.Recordset
Dim dtData As Date, Inicio As Date, Fim As Date, Turno As Byte

Set RstOperadores = CurrentDb.OpenRecordset("SELECT * FROM Operadores;")
Set RstTurnos = CurrentDb.OpenRecordset("SELECT * FROM Turnos;")
Inicio = #1/1/2013#
Fim = #12/31/2013#

For dtData = Inicio To Fim
RstTurnos.AddNew
RstTurnos(1) = dtData
For Turno = 1 To 3
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica1:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
RstOperadores.MoveNext
GoTo Verifica1
End If
RstTurnos(Turno + 1) = RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica2:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
RstOperadores.MoveNext
GoTo Verifica2
End If
RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
Next
RstTurnos.Update
Next
End Sub

Function Trabalha(Operador As String, dtData As Date) As Boolean
If DCount("*", "Ausencias", "Operador='" & Operador & "' and #" & Format(dtData, "m-d-yyyy") & "# BETWEEN Inicio and Fim") = 0 Then Trabalha = True
End Function

Para a rotação dos operadores a cada semana, terás de dizer como deve ser efectuada
Para a marcação da cor no campo da tabela, julgo não ser possível. A coloração deve ser feita no relatório ou formulário

Obrigado Alexandre, está a ficar ótimo,
A rotação dos operadores pode ser de qualquer maneira, sem logica nenhuma, pode ser a cada 5 dias ou a seguir a uma semana ou 15 dias ou um mês.
A ideia é que ao longo do ano todos os operadores tenham trabalhado com todos os restantes.

Para terminar só mais uma coisa, se der,
é possível num campo novo a seguir aos turnos mostrar a letra de quem esta "ausente" por cada dia?

Teixa

Tem uma tabela de feriados.
Mas continua a marcar nos feriados.

Boas Assis
è mesmo para marcar nos feriados, porque este serviço é feito 24horas por dia 365 dias por ano.
a tabela feriados vai servir para assinalar no relatorio que esse dia é feriado, uma vez que são pagos a parte.

DTeixa

Veja o meu exemplo, só que para mim interessava que não marcasse os feriados:
Só o Mestre Alexandre pode ajudar...

Assis,
o teu exemplo não funciona,
o FrmCalender fica em branco e bloqueia o access
fora isso está muito bom
parabens

Teixa

Qual a sua versão access?

Aqui no meu versão 2007 funciona perfeito.

Abro o formulário "Rotina"

Escolho a data inicio e fim e ... perfeito

tenho access 2007
meti a por as datas diretas nos campos inicio e fim a assim já dá
esta muito bom

Teixa
Consegue abrir o frmcalendar direto ?

não,
fica em branco e bloqueia o access
tenho de recorrer ao gestor de tarefas para conseguir encerrar

Boa tarde, dteixa
Crie campo Descanso(texto)
Option Compare Database
Option Explicit
'código criado por Alexandre Neves
'em 2012-12-15
'para dteixa
'do fórum MaximoAccess

Sub CriaTurnos()
Dim RstOperadores As DAO.Recordset, RstTurnos As DAO.Recordset
Dim dtData As Date, Inicio As Date, Fim As Date, Turno As Byte

Set RstOperadores = CurrentDb.OpenRecordset("SELECT * FROM Operadores;")
Set RstTurnos = CurrentDb.OpenRecordset("SELECT * FROM Turnos;")
Inicio = #1/1/2013#
Fim = #12/31/2013#

For dtData = Inicio To Fim
RstTurnos.AddNew
RstTurnos(1) = dtData
For Turno = 1 To 3
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica1:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
RstOperadores.MoveNext
GoTo Verifica1
End If
RstTurnos(Turno + 1) = RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica2:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
RstOperadores.MoveNext
GoTo Verifica2
End If
RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
Next
RstTurnos.Update
Next

RstTurnos.MoveFirst
Do While Not RstTurnos.EOF
RstOperadores.MoveFirst
RstTurnos.Edit
Do While Not RstOperadores.EOF
If InStr(1, RstTurnos(2) & RstTurnos(3) & RstTurnos(4), RstOperadores("Letra")) = 0 Then
RstTurnos("Descanso") = RstTurnos("Descanso") & RstOperadores("Letra") & ","
End If
RstOperadores.MoveNext
Loop
RstTurnos("Descanso") = Mid(RstTurnos("Descanso"), 1, Len(RstTurnos("Descanso")) - 1)
RstTurnos.Update
RstTurnos.MoveNext
Loop
Set RstTurnos = Nothing: Set RstOperadores = Nothing
End Sub

Function Trabalha(Operador As String, dtData As Date) As Boolean
If DCount("*", "Ausencias", "Operador='" & Operador & "' and #" & Format(dtData, "m-d-yyyy") & "# BETWEEN Inicio and Fim") = 0 Then Trabalha = True
End Function

Relativamente à rotação, eu sei o que quis dizer. Não estou a ver como implementar em termos lógicos. Para tal, descreva a lógica para transformar em código

Boas Alexandre,
muito obrigado, estas a ser um amigão com a ajuda,

este acrescento (descanso) tambem esta bom e pode ficar mas eu pretendia era que mostra-se quem esta ausente vindo da tabela AUSENCIAS.

em relação a alternancia dos turnos, é possivel alguma coisa?

Não percebi. Pretende que os operadores que já constem na tabela de ausências não sejam considerados durante esses períodos?
Em relação à alternância dos turnos, é melhor indicar como faz manualmente para se transformar em código (tem de haver lógica)

Sim é isso mesmo, operadores na tabela de ausencias não devem entrar nos turnos, e ao mesmo tempo que calcula o turnos mostrar tambem num coluna a semelhança do "Descanso" quem esta "Ausente"

em relação a rotatividade imagina,
o Operador "A" trabalha 10 turnos com o "B", depois trabalha com o "C" mais 10 turnos, a seguir com o "D" mais 10.
quando digo 10turnos podem ser outro nº de turnos qualquer, o que importa que

o "A" trabalhe com o "B, C, D, F, G, H, J, K e L"
o "B" trabalhe com o "A, C, D, F, G, H, J, K e L"
o "C" trabalhe com o "A, B, D, F, G, H, J, K e L"
Etc.

Grato por tudo

Não diga "não importa", diga concisamente como devem ser feitos os turnos.
Faça-os à mão no primeiro ciclo até que se repita o processo

Alexandre ve a foto que está no primeiro post deste topico la tem como funciona a escala atual

Qual foi a lógica da construção?
Sem lógica não é possível programar

entendo,
porem ate aqui não havia logica nenhuma, por isso é que quero implementar este sistema, mas vamos imaginar que a rotatividade se faz a cada mês.


outra coisa que vi agora a funcionar mal no teu código, é que se meter o ultima operador "L" de ferias da erro e para a macro.

If Not Trabalha(RstOperadores("Nome"), dtData) Then

Onde tem
RstOperadores.MoveNext
coloque
if RstOperadores.eof then RstOperadores.Movefirst else RstOperadores.MoveNext

Alexandre
Estou a acompanhar este tópico.

Como por a não marcar nos feriados que estão na tabela feriados.

Obrigado

Olá Assis,
Não escalar os operadores nos feriados?

Ola Alexandre

Sim

Não testei a formatação da data, mas deve funcionar
Function Trabalha(Operador As String, dtData As Date) As Boolean
If DCount("*", "Ausencias", "Operador='" & Operador & "' and #" & Format(dtData, "m-d-yyyy") & "# BETWEEN Inicio and Fim") = 0 _
and DCount("*", "Feriados", "Feriados=#" & Format(dtData, "mm-dd-yyyy") & "#") = 0 Then
Trabalha = True
End If
End Function

Fica tudo amarelo

Function Trabalha(Operador As String, dtData As Date) As Boolean
If DCount("*", "Ausencias", "Operador='" & Operador & "' and #" & Format(dtData, "m-d-yyyy") & "# BETWEEN Inicio and Fim") = 0 _
and DCount("*", "Feriados", "Feriados=#" & Format(dtData, "mm-dd-yyyy") & "#") = 0 Then
Trabalha = True
End If
End Function

Deve ser assim
Option Compare Database
Option Explicit
'código criado por Alexandre Neves
'em 2012-12-15
'para dteixa
'do fórum MaximoAccess

Sub CriaTurnos()
Dim RstOperadores As DAO.Recordset, RstTurnos As DAO.Recordset
Dim dtData As Date, Inicio As Date, Fim As Date, Turno As Byte

Set RstOperadores = CurrentDb.OpenRecordset("SELECT * FROM Operadores;")
Set RstTurnos = CurrentDb.OpenRecordset("SELECT * FROM Turnos;")
Inicio = #1/1/2013#
Fim = #12/31/2013#

For dtData = Inicio To Fim
If DCount("*", "Feriados", "Feriados=#" & Format(dtData, "mm-dd-yyyy") & "#") = 0 Then
RstTurnos.AddNew
RstTurnos(1) = dtData
For Turno = 1 To 3
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica1:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica1
End If
RstTurnos(Turno + 1) = RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica2:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica2
End If
RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
Next
RstTurnos.Update
End If
Next

RstTurnos.MoveFirst
Do While Not RstTurnos.EOF
RstOperadores.MoveFirst
RstTurnos.Edit
Do While Not RstOperadores.EOF
If InStr(1, RstTurnos(2) & RstTurnos(3) & RstTurnos(4), RstOperadores("Letra")) = 0 Then
RstTurnos("Descanso") = RstTurnos("Descanso") & RstOperadores("Letra") & ","
End If
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
Loop
RstTurnos("Descanso") = Mid(RstTurnos("Descanso"), 1, Len(RstTurnos("Descanso")) - 1)
RstTurnos.Update
RstTurnos.MoveNext
Loop
Set RstTurnos = Nothing: Set RstOperadores = Nothing
End Sub

Function Trabalha(Operador As String, dtData As Date) As Boolean
If DCount("*", "Ausencias", "Operador='" & Operador & "' and #" & Format(dtData, "m-d-yyyy") & "# BETWEEN Inicio and Fim") = 0 Then Trabalha = True
End Function

Obrigado Alexandre
Só tive de mudar aqui o nome do campo da data do feriado.

If DCount("*", "Feriados", "DataFeriado=#" & Format(dtData, "mm-dd-yyyy") & "#") = 0 Then

Bom Natal

Boas
obrigado a ambos, mas continua a não funcionar

Alexandre
continua a não dar certo quando o ultimo operador está de ferias, o código para no 1º dia de ferias desse operador

Assis
agora em casa ao abrir o teu exemplo diz (tabela ou consulta ANOS em falta)
podes postar aqui de novo o teu ex.

Teixa Bom dia

O exemplo está na mensagem nª 12 e não dá erro, pois já fiz experiencia no PC de um amigo.

Se alguem que fez o download aqui do forum, agradeço que me informe se bloqueia o PC, como diz o amigo Teixa na mensagem Nº 13 , e 17.

Versão 2007

Obrigado

Boa tarde Alexandre

Estou a tentar também não marcar os sabados e domingos, juntamente com os feriados.

Acrescentei o que está a vermelho, não dá erro, não marca os feriados, mas marca os sabados e domingos. Aonde estou a errar ?

If DCount("*", "Feriados", "DataFeriado=#" & Format(dtData, "mm-dd-yyyy") & "#") = 0 _
And (Weekday(dtData) = 1) = "#" & Format(dtData, "mm-dd-yyyy") & "#" = 0 Then

Obrigado

Boa tarde

Alexandre

Cheguei lá

For dtData = Inicio To Fim
If DCount("*", "Feriados", "DataFeriado=#" & Format(dtData, "mm-dd-yyyy") & "#") = 0 _
And Weekday(dtData) <> 1 And Weekday(dtData) <> 7 Then

Não marca Sabados domingos e feriados.
Mas também tem a opção de marcar todos os dias.

Obrigado pelas lições

Boas
em casa estou com o access 2010 e também não funciona dá um erro
o erro ´este aqui:
Ver imagem grande

DTeixa
Teste
Faça agora o Download

Boas Assis
isso que fizeste já eu tinha feito de apagar a linha do CAnos
porem ao abrir o frmcalendar dá um novo erro e assinala no código esta linha:

With Frm
.Painting = False

lngWidth = .Width * sngHorzFactor
lngHeaderHeight = .Section(Access.acHeader).Height * sngVertFactor
lngDetailHeight = .Section(Access.acDetail).Height * sngVertFactor
lngFooterHeight = .Section(Access.acFooter).Height * sngVertFactor

O erro é esse aqui:
Ver imagem grande

Não tenho o 2010

Bom, pelo que pude aqui observar falta-me o calendar ActiveX.
Alguém sabe como posso obtê-lo e como instalar este controle?

Boa noite Alexandre

A rotina por si criada seleciona 2 operadores por dia.
Como fazer para selecionar 3 ou mais.

Obrigado

Boa noite, Assis
Sub CriaTurnos()
Dim RstOperadores As DAO.Recordset, RstTurnos As DAO.Recordset
Dim dtData As Date, Inicio As Date, Fim As Date, Turno As Byte

Set RstOperadores = CurrentDb.OpenRecordset("SELECT * FROM Operadores;")
Set RstTurnos = CurrentDb.OpenRecordset("SELECT * FROM Turnos;")
Inicio = #1/1/2013#
Fim = #12/31/2013#

For dtData = Inicio To Fim
If DCount("*", "Feriados", "Feriados=#" & Format(dtData, "mm-dd-yyyy") & "#") = 0 Then
RstTurnos.AddNew
RstTurnos(1) = dtData
For Turno = 1 To 3
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica1:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica1
End If
RstTurnos(Turno + 1) = RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica2:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica2
End If
RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica3:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica3
End If
RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
Next
RstTurnos.Update
End If
Next

RstTurnos.MoveFirst
Do While Not RstTurnos.EOF
RstOperadores.MoveFirst
RstTurnos.Edit
Do While Not RstOperadores.EOF
If InStr(1, RstTurnos(2) & RstTurnos(3) & RstTurnos(4), RstOperadores("Letra")) = 0 Then
RstTurnos("Descanso") = RstTurnos("Descanso") & RstOperadores("Letra") & ","
End If
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
Loop
RstTurnos("Descanso") = Mid(RstTurnos("Descanso"), 1, Len(RstTurnos("Descanso")) - 1)
RstTurnos.Update
RstTurnos.MoveNext
Loop
Set RstTurnos = Nothing: Set RstOperadores = Nothing
End Sub

Para registar Ausencia, criar campo 'Ausencia' na tabela turnos
Sub CriaTurnos()
Dim RstOperadores As DAO.Recordset, RstTurnos As DAO.Recordset
Dim dtData As Date, Inicio As Date, Fim As Date, Turno As Byte

Set RstOperadores = CurrentDb.OpenRecordset("SELECT * FROM Operadores;")
Set RstTurnos = CurrentDb.OpenRecordset("SELECT * FROM Turnos;")
Inicio = #1/1/2013#
Fim = #12/31/2013#

''''
CurrentDb.Execute "DELETE * FROM Turnos"
''''
For dtData = Inicio To Fim
If DCount("*", "Feriados", "Feriados=#" & Format(dtData, "mm-dd-yyyy") & "#") = 0 Then
RstTurnos.AddNew
RstTurnos(1) = dtData
For Turno = 1 To 3
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica1:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
RstTurnos("Ausencia") = RstTurnos("Ausencia") & RstOperadores("Letra") & ","
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica1
End If
RstTurnos(Turno + 1) = RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica2:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
RstTurnos("Ausencia") = RstTurnos("Ausencia") & RstOperadores("Letra") & ","
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica2
End If
RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
RstOperadores.MoveNext
If RstOperadores.EOF Then RstOperadores.MoveFirst
Verifica3:
If Not Trabalha(RstOperadores("Nome"), dtData) Then
RstTurnos("Ausencia") = RstTurnos("Ausencia") & RstOperadores("Letra") & ","
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
GoTo Verifica3
End If
RstTurnos(Turno + 1) = RstTurnos(Turno + 1) & "," & RstOperadores("Letra")
'MsgBox Mid(RstTurnos("Ausencia"), 1, Len(RstTurnos("Ausencia")) - 1)
If Len(RstTurnos("Ausencia")) > 0 And Right(RstTurnos("Ausencia"), 1) = "," Then RstTurnos("Ausencia") = Mid(RstTurnos("Ausencia"), 1, Len(RstTurnos("Ausencia")) - 1)
RstOperadores.MoveNext
Next
RstTurnos.Update
End If
Next

RstTurnos.MoveFirst
Do While Not RstTurnos.EOF
RstOperadores.MoveFirst
RstTurnos.Edit
Do While Not RstOperadores.EOF
If InStr(1, RstTurnos(2) & RstTurnos(3) & RstTurnos(4) & RstTurnos("Ausencia"), RstOperadores("Letra")) = 0 Then
RstTurnos("Descanso") = RstTurnos("Descanso") & RstOperadores("Letra") & ","
End If
If RstOperadores.EOF Then RstOperadores.MoveFirst Else RstOperadores.MoveNext
Loop
RstTurnos("Descanso") = Mid(RstTurnos("Descanso"), 1, Len(RstTurnos("Descanso")) - 1)
RstTurnos.Update
RstTurnos.MoveNext
Loop
Set RstTurnos = Nothing: Set RstOperadores = Nothing
MsgBox Date
End Sub

Boas Alexandre
já testei aqui o teu codigo funcina direitinho, no entanto mantem os dois problemas já descritos por mim anteriormente MAIS UM NOVO QUE SURGIU AGORA

1º Quando um operador esta de ferias "ausente", a escala não roda nos turnos, (os mesmos operadores trabalham sempre no mesmo turno, enquando durar a ausencia)

2º quando há 2 operadores ou mais, ao mesmo tempo de ferias mantem o problema de cima e só mete um na coluna "ausencias"

3º se o ultimo operador da lista estiver "ausente" o codigo para no 1º dia da ausencia

4º falta a alternacia ou a rotatividade entre operadores nos turnos

Desculpa a maçada mas é importante
muito obrigado

Ve o problema dos pontos 1 e 2 nesta imagem
o operador B está de ferias de 01/02/2013 até 20/02/2013
o operador C está de ferias de 15/02/2013 até 19/02/2013
Ver imagem grande

Bom dia,
1º Este problema surge porque
a) os operadores disponíveis dão turnos certos (6 disponíveis=2+2+2)
2º não tive oportunidade de confirmar, mas a deficiência do teste dos dados advirá dos dados disponíveis não serem significativos
3º idem
4º Já sabes qual a lógica da rotatividade?

Faça um fluxograma do programa.

Bom dia Alexandre

Com 3 operadores por turno e 1 operador ausente a partir do di 20 até dia 31.

Pôe o primeiro dia de ausencia no descanso e os outros nos dias corretos

Obrigado

Bom dia Alexandre

Com 4 operadores por turno e 1 operador ausente a partir do dia 20 até dia 31.

Pôe no primeiro dia de ausencia duas letras AA de 4 em 4 dias

Obrigado