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.
------------------------------------------------------------------------------------------------
