Silva, pelo que vi em seu exemplo, para transformar as Datas que estão em formato diferente para o formato Data Valida, bastaria utilizar a rotina abaixo :
Sub Formata_Dt_Texto_em_Date()
Dim sRange
Dim sLin, I As Long
Dim sAdr As String
sLin = Range("A65536").End(xlUp).Row ' Ultima linha preenchida
Set sRange = Sheets("Plan1").Range("A2:" & "A" & sLin)
For Each sLin In sRange
sAdr = sLin.Address(False, False)
Range(sAdr).Value = CDate(sLin)
Next
End Sub
Agora quanto a questão das Datas invertidas, isto só poderá ser alterada da forma que o Reinaldo disse :
"Para "eliminar" o problema é necessario saber como é feita a importação dos dados, , pois esse problema de "formatação" deve ser corrigido nessa importação."
Uma vez que no exemplo não temos somente um MES especifico, fica um pouco dificil construir uma rotina para dizer que :
06/01/2012 seria 01/06/2012, pois a celula anterior temos 31/05/2012, mas se tivermos somente um Mes na aba até daria fazendo a verificação do Mes.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 10/06/2012 11:28 am