Ajuda para datas em textbox

Question

Tenho o seguinte código em um UserForm para editar ou inserir data na planilha:

TextnovoBoxferias = Format(CDate(ListBox1.Column(98)), "dd/mm/yyyy")

Para inserir a data está ok. Ela retorna a mesma data que foi preenchida.

Agora, preciso de uma complementação ou adaptação para no caso de deixar a textBox sem preencher e ela não me retornar em 30/12/1899, porque está acontecento isso, quando a text não é preenchida.

Abraços,

Celso

Answer 1

Utilize o debug para saber se está ou não passando not este lógico. Coloque um opnto de parada (F9) na linha depois do teste de "nulo" e verifique se está passando por ele (use F8 para passo-a-passo). Estou com a impressão que o problema da lógica não está aí.

Answer 2

Oh meu caro LuizVS, gostaria muito que desse certo mas ainda não funcionou. A data que é preenchida está retornando ok, mas quando seleciona um nome que ainda não foi inserido a data, ou seja, onde a célula está vazia, aí retorna com a data 30/12/1899.

Answer 3

Experimente:

If Not IsNull(ListBox1.Column(98)) Then

...

End If

Answer 4

Eu tentei essas condições:

If IsDate(ListBox1.Column(98)) Then

    TextnovoBoxferias = Format(CDate(ListBox1.Column(98)), "dd/mm/yyyy")

End If

 ou

If ListBox1.Column(98) <> "" Then

    TextnovoBoxferias = Format(CDate(ListBox1.Column(98)), "dd/mm/yyyy")

End If

Mas não resolveu. Aí eu tentei essa:

If = ListBox1.Column(98)="" then else textnovoBoxferias = Format(CDate(ListBox1.Column(98)), "dd/mm/yyyy")

Mas essa dá erro de compilação.

Olha, não endendo bem de VBA, apenas gostaria de resolver essa questão para o meu projeto. Se puder me enviar um código correto, desde já eu agradeço.

Answer 5

Insira um teste lógico de condição para o caso de vazio e desvie do erro.