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

  • Pergunta

  • 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


    sexta-feira, 27 de fevereiro de 2015 17:15

Respostas

  • 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

    • Marcado como Resposta Feroli_A sexta-feira, 27 de fevereiro de 2015 17:52
    sexta-feira, 27 de fevereiro de 2015 17:27

Todas as Respostas

  • 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

    • Marcado como Resposta Feroli_A sexta-feira, 27 de fevereiro de 2015 17:52
    sexta-feira, 27 de fevereiro de 2015 17:27
  • 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 <>.

    sexta-feira, 27 de fevereiro de 2015 17:46