Notifications
Clear all

Como transformar informações de uma célula em uma data?

5 Posts
2 Usuários
0 Reactions
1,051 Visualizações
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Amigos, tenho uma planilha de dados e uma dessas colunas de dados é preenchida com datas.
Só que essas datas estão inseridas em formato de texto ('13/10/2013, com o apóstrofo na frente da data).
Estão assim, pois existe uma outra função que utiliza o Match que não aceita o formato de data.

Bom, preciso transformar essa célula (que é um texto) em uma data.
Mais ou menos assim:

variável = Sheets("Dados").Range("A5").Value 'Supondo que o valor da célula seja '10/10/2013 (com o apóstrofo na frente, indicando que aquilo é um texto)
Preciso que essa variável fique no formato de Data!

Já tentei fazer assim:
variável = Format(Sheets("Dados").Range("A5").Value, "dd/mm/yyyy")

Mais a informação continua como texto.
Alguém faz ideia de como faço isso?

"O impossível, é só uma questão de tempo"

 
Postado : 13/10/2013 11:04 am
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Então amigos, pensando um bocado aqui, cheguei na seguinte resposta:

prox_contatox = Sheets("Previsao_compra").Range("F" & linha).Value
dia = Left(prox_contatox, 2)
mes = Right(Left(prox_contatox, 5), 2)
ano = Right(prox_contatox, 4)
prox_contato = DateSerial(ano, mes, dia)

Mais sei lá...
Não gostei muito não...
Não existe uma fórmula que resolva tudo?

"O impossível, é só uma questão de tempo"

 
Postado : 13/10/2013 11:17 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Wolney

com fórmula, dá para fazer assim:

Supondo que a data em formato texto esteja na célula A1, insira uma coluna ao lado e copie e cole está fórmula:

=EXT.TEXTO(A1;PROCURAR("'";A1;1)+1;500)*1

Formate a coluna para data, porque senão vai aparecer um número como este 41560.(é como o Excel armazena datas)

Se você quiser agora, dá para selecionar a nova coluna copiar/Colar Valores e apagar a coluna antiga que contém datas como texto.

Dê retorno.

Abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/10/2013 11:45 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Wolney, só para procurar me posicionar melhor :

Quando diz :
"tenho uma planilha de dados e uma dessas colunas de dados é preenchida com datas."
Só que essas datas estão inseridas em formato de texto ('13/10/2013, com o apóstrofo na frente da data).

De onde veem estes Dados, se provenientes de um textbox, podemos formatar antes de lançar na planilha.

Eu não entendi :
"Estão assim, pois existe uma outra função que utiliza o Match que não aceita o formato de data"
Que função ??

Mas, uma vez que já tem as datas neste formato, você pode estar utilizando a Função "DATA.VALOR" ou "Date.Value" dependendo da linguagem do excel, adicionando uma nova coluna e utilizando as seguintes formulas :
=DATA.VALOR(A5), ou ainda :
=TEXTO(A5;"dd/mm/aa")*1

Ou por VBA o codigo abaixo, que formata alterando na propria celula :

Sub ConverteTextoData()

    Dim LDate As Date
    Dim sDataTexto
    
    sDataTexto = Range("A5")
    
    LDate = DateValue(sDataTexto)
    
    Range("A5").Value = LDate

End Sub

Veja que estamos nos referenciando somente ao Range("A5") conforme mencionou, mas é só adaptar para os demais ranges.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/10/2013 12:36 pm
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Entendi os dois exemplos dos amigos!
Vou testar os dois e ver qual se aplicar melhor!

Muito obrigado pelas dicas de sempre!

"O impossível, é só uma questão de tempo"

 
Postado : 15/10/2013 7:27 am