Formato de data após substituir

[Guest --Anderson --]

Boa noite pessoal,

Estou desenvolvendo uma macro para um relatório da empresa onde trabalho a partir de uma planilha do nosso ERP.

Ocorre que nesse relatório as datas são expostadas no formato "dd.mm.aaaa". Após executar a instrução para substituir "." por "/", a data aparece no formato "mm/dd/aaaa". Existe alguma forma de ela manter o formato "dd/mm/aaaa"?

[Renato Knupp]

Não sei se entendi direito mas se você definir o formato da célula que vai receber a data não resolve?

Plan1.Range("a1").NumberFormat = "dd/mm/yyyy"

[Guest --Anderson --]

Pior que não. Já tentei.

Taí o código

Range("E2:F2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.NumberFormat = "DD/MM/YYYY"

Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Planilha Antes:

02.01.2007 02.01.2007

12.12.2006 02.01.2007

05.12.2006 02.01.2007

06.12.2006 03.01.2007

06.12.2006 03.01.2007

20.12.2006 03.01.2007

08.12.2006 05.01.2007

Planilha Depois:

01/02/2007 01/02/2007

12/12/2006 01/02/2007

12/05/2006 01/02/2007

12/06/2006 01/03/2007

12/06/2006 01/03/2007

20/12/2006 01/03/2007

12/08/2006 01/05/2007

[Wender Dário]

Aqui tive o seguinte problema

a data estava no seguinte formato 01/12/2008 e eu necessitava assim 2008-08-01

então apliquei a seguinte solução:

date1 = Right(date1, 4) & "-" & Mid(date1, 4, 2) & "-" & Left(date1, 2)

você pode iverter e aplicar segunda sua necessidade...

[Guest Sh3rMy]

E ae deu certo amigo?

Estou tendo o mesmo problema

[Guest --Anderson --]

Não consegui resolver ainda. Já tentei de tudo.

[João.Neto]

Tenta fazer desta forma:

Sub setDataFormat()

Dim s As String

s = Format(ThisWorkbook.Worksheets(1).Range("D6"), "00-00-0000")

ThisWorkbook.Worksheets(1).Range("A1") = CDate(s)

End Sub