erro de em tempo de execução "13"

Question

Boa tarde , tudo bem?
preciso de uma ajuda de vocês, estou apreendendo um pouco de VBA e estou com uma dificuldade numa expressão quando eu coloco a data retirada e depois colocoa data devolução, ele mostra a qtde de diárias e me mostra no campo "tipo" a mensagem "VIAGEM" quando for < que 14 dias e se for > mostra " COLABORADOR NOVO"
ele faz e visualiza normal a quantidade das diárias e a mensagem "VIAGEM" ou "Colaborador Novo", mas quando salvo o registro ele mostra erro de depuração na linha "<14".

Private Sub txtdiarias_Change()
Dim tipo As String
tipo = txtdiarias.Value
 If tipo < 14 Then
    txttipo = "VIAGEM"


    End If

    If tipo > 15 Then
    txttipo = "COLABORADOR NOVO"
    End If


End Sub 

onde estou errando?



Abs,

Kpastre

Answer 1

Tente assim.

Se te ajudou, por gentileza, marque como resposta e util.

Private Sub txtdiarias_Change()
Dim tipo As Integer
tipo = txtdiarias.Value
 If tipo < 14 Then
    txttipo = "VIAGEM"


    End If

    If tipo > 15 Then
    txttipo = "COLABORADOR NOVO"
    End If


End Sub

---

MARIANO1776

Answer 2

Boa tarde Mariano1776! Muito obrigado, resolveu