Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Permitir registro com critério
Permitir registro com critério
Bom dia a todos...
Preciso checar uma célula que obedeça as seguintes condições:
Os Curso A, Curso B, Curso C e Curso D possui tempo de duração de 1h15m, por tanto, não podem ser permitidos o registro com tempo superior a esse tempo;
Os Curso E, Curso F, Curso G e Curso H possui tempo de duração de 1 hora, por tanto, não podem ser permitidos o registro com tempo superior a esse tempo.
No exemplo da planilha anexada, eu preciso que, quando selecionado algum dos Cursos A, B, C ou D, não seja permitido o registro do ponto com tempo superior a 1h15m, analogamente, ao selecionar um dos Cursos E, F, G e H, não pode ser permitido o registro com tempo superior a 1h.
Não entendo praticamente nada de programação... Conto com a ajuda de vocês
Preciso checar uma célula que obedeça as seguintes condições:
Os Curso A, Curso B, Curso C e Curso D possui tempo de duração de 1h15m, por tanto, não podem ser permitidos o registro com tempo superior a esse tempo;
Os Curso E, Curso F, Curso G e Curso H possui tempo de duração de 1 hora, por tanto, não podem ser permitidos o registro com tempo superior a esse tempo.
No exemplo da planilha anexada, eu preciso que, quando selecionado algum dos Cursos A, B, C ou D, não seja permitido o registro do ponto com tempo superior a 1h15m, analogamente, ao selecionar um dos Cursos E, F, G e H, não pode ser permitido o registro com tempo superior a 1h.
Não entendo praticamente nada de programação... Conto com a ajuda de vocês
- Anexos
-
- Forum.rar
- (18.53 KiB) Baixado 286 vezes
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Permitir registro com critério
Não sei se entendi a demanda corretamente
assim experimente:
assim experimente:
Código: Selecionar todos
Sub Teste()
Dim uLinha As Integer
Dim hMax As Date, hInfo As Date
uLinha = Sheets("BD").Range("A1").End(xlDown).Row + 1
hMax = Application.WorksheetFunction.VLookup(Plan1.Range("Curso"), Plan1.Range("Tabela2"), 2)
hInfo = Plan1.Range("HoraTrabalhada").Value
If hInfo <= hMax Then
BD.Cells(uLinha, "A") = Application.WorksheetFunction.Max(BD.Range("A:A")) + 1
BD.Cells(uLinha, "B") = Plan1.Range("Entrada").Value
BD.Cells(uLinha, "C") = Plan1.Range("Saida").Value
BD.Cells(uLinha, "D") = Plan1.Range("Curso").Value
MsgBox "Registro efetuado com sucesso"
Else
MsgBox "Periodo informado excede a duração do curso " & Plan1.Range("Curso").Value & " Que é de: " & hMax
End If
End Sub
Re: Permitir registro com critério
Boa Noite Reinaldo. Primeiramente, gostaria de agradecer pela boa vontade em ajudar, muito obrigado. O código não faz exatamente o que desejo. Veja bem: O código funciona em partes. Pelos testes, os cursos E, F, G e H o registro com duração de 1h, não estão sendo permitidos, mas deveriam...
Os Curso A, Curso B, Curso C e Curso D possui tempo de duração de 1h15m, o código funciona em parte. Esses cursos podem registrar tempo de até 1h15m, só não pode ser superior a esse tempo.
Analogamente os Curso E, Curso F, Curso G e Curso H possui tempo de duração de 1 hora, sendo permitido registro de até 1h, só não pode ser superior a 1h.
Em resumo:
Cursos A, B, C, e D: Podem registrar pontos de até 1h15m, não a cima;
Cursos E, F, G, e H: Podem registrar pontos de até 1h, não a cima.
Mais uma vez, agradeço.
Os Curso A, Curso B, Curso C e Curso D possui tempo de duração de 1h15m, o código funciona em parte. Esses cursos podem registrar tempo de até 1h15m, só não pode ser superior a esse tempo.
Analogamente os Curso E, Curso F, Curso G e Curso H possui tempo de duração de 1 hora, sendo permitido registro de até 1h, só não pode ser superior a 1h.
Em resumo:
Cursos A, B, C, e D: Podem registrar pontos de até 1h15m, não a cima;
Cursos E, F, G, e H: Podem registrar pontos de até 1h, não a cima.
Mais uma vez, agradeço.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Permitir registro com critério
[quote}..Cursos A, B, C, e D: Podem registrar pontos de até 1h15m, não a cima;
Cursos E, F, G, e H: Podem registrar pontos de até 1h, não a cima{/quote]
Aparentemente está ok
Cursos E, F, G, e H: Podem registrar pontos de até 1h, não a cima{/quote]
Aparentemente está ok