Permitir registro com critério

[playboy]

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

[Reinaldo]

Não sei se entendi a demanda corretamente
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

[playboy]

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.

[playboy]

Boa noite pessoal, ajuda ai...

[Reinaldo]

[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

Cópia_Forum.zip

(20.08 KiB) Baixado 277 vezes