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