Hola a todos,

Necesito si me pueden ayudar, vi varios temas similares en el foro pero no logro entenderlo del todo.

Tengo un reporte bajado de facebook que quiero copiar todos sus datos, y pegarlos en otro excel que compila varios reportes. El tema está en que algunos campos de la fecha quedan mm/dd/aa en vez de dd/mm/aa. Sé que hay que introducir el CDATE pero no se cómo.

Creo que también tiene que ver que la bajada es csv y el que recopila es xlsm.

Adjunto la bajada del reporte csv y copio aquí el código de la macro que tengo en el excel que compila reportes xlsm.

Sub Macro2()

'

' Macro2 Macro

'

'

Workbooks.Open Filename:="c:\Users\JAVI\Desktop\Test\MLA Branding\MLA Branding.csv"

Range("A2:AZ350").Select

Selection.Copy

Windows("Master.xlsm").Activate

Range("D11").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Workbooks("MLA Branding.csv").Activate

Range("AZ351").Select

Selection.ClearContents

ActiveWorkbook.Save

ActiveWorkbook.Close

Windows("Master.xlsm").Activate

End Sub

Espero me puedan ayudar.

Mil gracias desde ya.

MLA Branding.rar

Hola, a ver si te sirve, converti con texto a columnas

MLA999.rar

Hola Armando, primero gracias por tu respuesta.

Lo que busco es dejar la bajada intacta con el formato de origen, no tocarle nada.

Pero cuando corra la macro desde el xlsm (que recopila las distintas bajadas) me pegue estos datos como valores y la columna de fecha quede con un mismo formato dd/mm/aa. En distintos foros vi que se resolvería introduciendo en el código de vba el CDate, pero no lo entiendo del todo y no se como debería quedarme mi código.

Espero me puedas ayudar,

Muchas gracias!

Algo que quiero agregar ya que lo acabo de notar.

Cuando corro la macro me cambia el formato de fecha en el excel csv también.

Mando el csv virgen de bajada "aaa-virgen" y el excel csv luego de correr la macro "aaa.csv"

csv.rar

Texto a columnas puede aplicarse a una sola, la misma columna, lo puse en 2 columnas para que vieras antes y despues.

Codigo generado por la grabadora:

Sub Macro1()

    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _

        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _

        :=Array(1, 4), TrailingMinusNumbers:=True

End Sub[/CODE]