none
Data Invertida VBA - Americana x Brasileira RRS feed

  • Pergunta

  • Boa Noite Pessoal !

    Sei que o Assunto é recorrente e que existem vários tópicos sobre isso por aí, porém, gastei meu dia inteiro hoje procurando solução para isso mas não encontrei. Tentei adaptar alguns comandos mas sem sucesso. Não sou craque do VBA, estou entrando nesse mundo agora, desculpe a ignorância.
    Pois Bem, em uma base de Dados resolvi utilizar Inputbox para facilitar novos cadastros, na inserção de textos, sem problemas, porém na inserção de datas, como sabem, na célula de destino as datas aparecem de forma diferentes.

    Podem me ajudar em resolver isso do zero ? minha planilha pode parecer muito simples para vocês, mas para mim é um avanço !

     Abaixo Segue como está meu comando, vou colar já que não fui autorizado a postar imagem:

    Muito Obrigado pela ajuda.

    -----------------------------------------------------------------------------

        

    Sub dados_atualizar()

    Application.ScreenUpdating = False

    Sheets("DADOS COLABORADOR").Select
    MsgBox ("Caro Usuário, Para melhor visualização das informações e padronização de digitalização, sugerimos a inserção de dados com o CAPS LOCK ativado.")

    linha = Range("A1000").End(xlUp).Row + 1

    Cells(linha, 1) = InputBox("Digite o Nome do Funcionário:")
    Cells(linha, 2) = InputBox("Digite a Função do Funcionário:")
    Cells(linha, 3) = InputBox("Digite a Matricula BASF do Funcionário:")
    Cells(linha, 4) = InputBox("Digite o Número do RG do Funcionário, separado por ponto e traço:")
    Cells(linha, 5) = InputBox("Digite o Número do CPF do Funcionário, somente números, sem pontos e hífen:")
    Cells(linha, 6) = InputBox("Digite o Número do Telefone do Funcionário:")
    Cells(linha, 7) = InputBox("Digite a data de admissão do Funcionário:")
    Cells(linha, 8) = InputBox("Digite o Número matrícula Engeko do Funcionário:")
    Cells(linha, 9) = InputBox("Digite a data do Exame Audio/Clínico:")
    Cells(linha, 11) = InputBox("Digite a data do Exame RX Lombo Sacro:")

    Continua com outras colunas para inserção de datas.

    ------------------------------------------------------------------------------------------------

    quinta-feira, 5 de dezembro de 2019 04:41

Todas as Respostas

  • Bom Dia!

    Eu tive o mesmo problema, contornei o problema assim:

    Me.dataregistro = Format(Date, "dd/mm/yyyy")


    Obrigado! Jhonny César de Paula

    quinta-feira, 5 de dezembro de 2019 14:57
  • Olá Jhonny !

    Poderia me ensinar a como inserir isso no meu módulo ?

    Estou apanhando tanto que estou pensando em até retirar esse Inputbox.

    Obrigado.

    quinta-feira, 5 de dezembro de 2019 15:38