Apertar F2 + ENTER para atualizar a célula com data

Question

Olá Pessoal, bom dia.

Preciso da ajuda de vocês em um controle que estou criando.

Através da interface do USERFORM preciso alimentar as células do excel..até ai tudo bem, está funcionando bem.. o problema é que quando digito uma data no TEXTBOX e este vai para a célula, existe uma outra coluna para indicar um status e para isto tem uma fórmula digitada e este "status" nao reconhece adequadamente a data. Se digito a data diretamente na célula funciona perfeitamente o cálculo desta fórmula, mas se entro com a data pelo textbox nao funciona. Mas quando eu entro com F2 + ENTER o status é recalculado de forma correta. Já tente inserir no código do TEXTBOX código para inserir F2 + ENTER e formatar (dd/mm/yyyy) porém ñ funciona mesmo assim. Exemplo: na célula E5 é inserida a data do textbox,  porém na célula F5, a fórmula digitada para saber se o status esta "em dia" ou "atrasado" sempre reconhece "atrasado" independente se a data deveria informar um status de "em dia". O que posso fazer??? Obrigada e já agradeco a ajuda de vcs.

Private Sub cmd_Confirmar_Salida_Click()

Dim Arr(10) As String

Arr(0) = A_Salida_AxT.txt_SR1.Value
Arr(1) = A_Salida_AxT.txt_SR2.Value
Arr(2) = A_Salida_AxT.txt_SR3.Value
Arr(3) = A_Salida_AxT.txt_SR4.Value
Arr(4) = A_Salida_AxT.txt_SR5.Value
Arr(5) = A_Salida_AxT.txt_SR6.Value
Arr(6) = A_Salida_AxT.txt_SR7.Value
Arr(7) = A_Salida_AxT.txt_SR8.Value
Arr(8) = A_Salida_AxT.txt_SR9.Value
Arr(9) = A_Salida_AxT.txt_SR10.Value

If Arr(0) = "" Then
Arr(0) = 0
Else
End If
If Arr(1) = "" Then
Arr(1) = 0
Else
End If
If Arr(2) = "" Then
Arr(2) = 0
Else
End If
If Arr(3) = "" Then
Arr(3) = 0
Else
End If
If Arr(4) = "" Then
Arr(4) = 0
Else
End If
If Arr(5) = "" Then
Arr(5) = 0
Else
End If
If Arr(6) = "" Then
Arr(6) = 0
Else
End If
If Arr(7) = "" Then
Arr(7) = 0
Else
End If
If Arr(8) = "" Then
Arr(8) = 0
Else
End If
If Arr(9) = "" Then
Arr(9) = 0
Else
End If


Sheets("REGISTRO").Select

Z = 5
Do While Z <= 10000

    If Cells(Z, 2).Value = Arr(0) And Cells(Z, 5).Value = "" Then
       Cells(Z, 5).Value = A_Salida_AxT.txt_Fecha.Value
    ElseIf Cells(Z, 2).Value = Arr(1) And Cells(Z, 5).Value = "" Then
        Cells(Z, 5).Value = A_Salida_AxT.txt_Fecha.Value
    ElseIf Cells(Z, 2).Value = Arr(2) And Cells(Z, 5).Value = "" Then
        Cells(Z, 5).Value = A_Salida_AxT.txt_Fecha.Value
    ElseIf Cells(Z, 2).Value = Arr(3) And Cells(Z, 5).Value = "" Then
        Cells(Z, 5).Value = A_Salida_AxT.txt_Fecha.Value
    ElseIf Cells(Z, 2).Value = Arr(4) And Cells(Z, 5).Value = "" Then
        Cells(Z, 5).Value = A_Salida_AxT.txt_Fecha.Value
    ElseIf Cells(Z, 2).Value = Arr(5) And Cells(Z, 5).Value = "" Then
        Cells(Z, 5).Value = A_Salida_AxT.txt_Fecha.Value
    ElseIf Cells(Z, 2).Value = Arr(7) And Cells(Z, 5).Value = "" Then
        Cells(Z, 5).Value = A_Salida_AxT.txt_Fecha.Value
    ElseIf Cells(Z, 2).Value = Arr(7) And Cells(Z, 5).Value = "" Then
        Cells(Z, 5).Value = A_Salida_AxT.txt_Fecha.Value
    ElseIf Cells(Z, 2).Value = Arr(8) And Cells(Z, 5).Value = "" Then
        Cells(Z, 5).Value = A_Salida_AxT.txt_Fecha.Value
    ElseIf Cells(Z, 2).Value = Arr(9) And Cells(Z, 5).Value = "" Then
        Cells(Z, 5).Value = A_Salida_AxT.txt_Fecha.Value
    Else
    Z = Z + 1
    End If
    Loop
    A_Salida_AxT.Hide
End Sub

Answer 1

Olá Feroli!

Quando postar um código no forum utilize a opção de "inserir bloco de código" (Icone com "<>") para organizar melhor a informação do seu post.

Quanto a sua duvida, tente adequar as linhas que inserem a data na planilha conforme o exemplo abaixo:

Cells(Z, 5).Value = clng(cdate(A_Salida_AxT.txt_Fecha.text))

---

Rafael Kamimura

Answer 2

Olá Rafael!!

Obrigadaaaa!!!!Funcionou perfeitamente!!! Porém retirei o comando clng para funcionar.

Cells(Z, 5).Value = cdate(A_Salida_AxT.txt_Fecha.text)

Pode deixar que a próxima vez que eu postar algo usarei o ícone <>.