Notifications
Clear all

Preenchimento de escala sequêncial

4 Posts
2 Usuários
0 Reactions
669 Visualizações
(@wquintela)
Posts: 0
New Member
Topic starter
 

Bom tarde!
Pessoal, tenho uma planilha com 02 quadros de escala e preciso preencher uma determinada quantidade de dias (valor variável, 50, 90,153...) alternando sequencialmente os horários da escala A e B até o limite de dias estipulado, alguém poderia me dar uma dica?
Escala A
nº de dias = 6
06:00 12:00
06:00 12:00
06:00 11:00
06:00 12:00
06:00 11:50
06:00 12:00

Escala B
nº de dias = 4
12:00 18:00
12:00 16:30
12:00 18:00
12:00 18:00

Exemplo: preencher a escala por uma quantidade de 15 dias.
Resultado:
1º dia 06:00 12:00
2º dia 06:00 12:00
3º dia 06:00 11:00
4º dia 06:00 12:00
5º dia 06:00 11:50
6º dia 06:00 12:00
7º dia 12:00 18:00
8º dia 12:00 16:30
9º dia 12:00 18:00
10º dia 12:00 18:00
11º dia 06:00 12:00
12º dia 06:00 12:00
13º dia 06:00 11:00
14º dia 06:00 12:00
15º dia 06:00 11:50

 
Postado : 09/11/2016 3:05 pm
(@brunoxro)
Posts: 0
New Member
 

Boa tarde wquintela,

De um olhada no arquivo em anexo.
O código está no módulo 1, se tiver dúvidas é só perguntar.

att,

 
Postado : 09/11/2016 4:24 pm
(@wquintela)
Posts: 0
New Member
Topic starter
 

[Caro brunoxro, boa noite!
Obrigado pela sua rápida resposta, a planilha que vc enviou é quase como eu estava precisando, porém está gerando a escala dessa forma:
06:00 12:00
06:00 12:00
06:00 11:00
06:00 12:00
06:00 11:50
06:00 12:00
06:00 12:00
06:00 12:00
06:00 11:00
06:00 12:00
06:00 12:00
06:00 12:00
06:00 11:00
06:00 12:00
06:00 11:50

A minha ideia era que o código lance as escala de modo alternado, assim como segue na imagem:

 
Postado : 09/11/2016 5:43 pm
(@wquintela)
Posts: 0
New Member
Topic starter
 

Acho que matei a charada, foi só substituir no contador do turno 2: Cells(k + 1, 9).Value = Cells(l + 1, 2), por: Cells(k + 1, 9).Value = Cells(l + 1, 4).
Valeu, obrigado!

 
Postado : 09/11/2016 6:37 pm