Alterar Formato Da Data De Dd/mm/aa Para Mm/dd/aa

[brunowck]

Pessoal, escrevi um código em vba para trocar o formato da data de dd/mm/aa para mm/dd/aa, mas o código em vez de retornar a data já no formato desejado, está retornando um valor no formato de hora!

estou começando agora em vba e acho que estou usando algum parametro errado. Peço a ajuda de alguém porque meu trabalho está parado!!!!!

vou colocar abaixo o que eu escrevi

Sub troca()

Dim vardia

Dim varmes

Dim varano

Dim data As Date

Dim datanova As Date

Range("i5").Select

data = ActiveCell.Value ' celula onde se encontra data a ser modificada

vardia = Day(data)

varmes = Month(data)

varano = Year(data)

datanova = varmes / vardia / varano

Range("j5").Select

ActiveCell.FormulaR1C1 = datanova

End Sub

se alguém puder ajudar eu agradeço!

[RenatoMejias]

brunowck, eu reescrevi seu código para ficar mais simples, veja como ficou:

Sub troca()
     Dim datanova As String

    data = Range("I5").Value
    datanova = Month(data) & "/" & Day(data) & "/" & Year(data)
    Range("J5").NumberFormat = "mm/dd/yyyy"
    Range("J5").Value = datanova
End Sub

Tente com esse código.

[brunowck]

Valeu pela ajuda!

Funcionou como eu queria!!!!

abs,

Bruno