"Concatenar" y dar formato a fecha

[gustavomeeuwes]

Hola de nuevo !!!

Tengo en una macro:

' Estoy trabajando en la Hoja1
Range("A1").FormulaR1C1 = "Fecha: " & Sheets("Hoja2").Range("A1")

donde Sheets("Hoja2").Range("A1"), es una fecha con formato d-mmm-yyyy, o sea NumberFormat = "[$-C0A]d-mmm-yyyy;@". Supongamos qe el valor de esa celda es: 20-oct-2010

Como resultado en la celda A1 de la Hoja1 obtengo:
Fecha: 20/10/2010

Pregunta:
Hay alguna forma de "forzar" que la fecha la ponga en el formato que tengo en toda la planilla, d-mmm-yyyy
Es decir, que en la celda A1 de la Hoja1 obtenga:
Fecha: 20-oct-2010

Gracias
Saludos
Gustavo

 

[Marcelo Branco]

Gustavo,

Prueba esta

Range("A1").FormulaR1C1 = "Fecha: " & Sheets("Hoja2").Range("A1").Text

M.

 

[gustavomeeuwes]

Hola Marcelo:
Al agregarle .Text no me hace ningún cambio.
Saludos
Gustavo

 

[Marcelo Branco]

Gustavo,

Hoja2 A1
<TABLE style="WIDTH: 62pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=83><COLGROUP><COL style="WIDTH: 62pt; mso-width-source: userset; mso-width-alt: 3035" width=83><TBODY><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 62pt; HEIGHT: 15pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl63 height=20 width=83 align=right>20/out/2010</TD></TR></TBODY></TABLE>

Después de la macro
Hoja1 A1
<TABLE style="WIDTH: 106pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=141><COLGROUP><COL style="WIDTH: 106pt; mso-width-source: userset; mso-width-alt: 5156" width=141><TBODY><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 106pt; HEIGHT: 15pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 height=20 width=141>Fecha: 20/out/2010</TD></TR></TBODY></TABLE>

No és esto que necessitas?

M.

 

[gustavomeeuwes]

Hola Marcelo;
En mi planilla lo pone como:
Fecha: 20/10/2010
y debería ser:
Fecha: 20-out-2010

Gracias por la paciencia.
Saludos
Gustavo

 

[Marcelo Branco]

Gustavo,

Lo mismo con
Hoja2 A1
<TABLE style="WIDTH: 62pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=83><COLGROUP><COL style="WIDTH: 62pt; mso-width-source: userset; mso-width-alt: 3035" width=83><TBODY><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 62pt; HEIGHT: 15pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 height=20 width=83 align=right>20-out-2010</TD></TR></TBODY></TABLE>

Después de la macro
Hoja1 A1
<TABLE style="WIDTH: 106pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=141><COLGROUP><COL style="WIDTH: 106pt; mso-width-source: userset; mso-width-alt: 5156" width=141><TBODY><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 106pt; HEIGHT: 15pt; BORDER-TOP: windowtext 0.5pt solid; BORDER-RIGHT: windowtext 0.5pt solid" class=xl65 height=20 width=141>Fecha: 20-out-2010</TD></TR></TBODY></TABLE>

Que formato tiene Hoja1 A1?

M.

 

[gustavomeeuwes]

Excelente Marcelo.
Tenía problemas con el formato de la celda. Lo puse en General y funciona OK.
Muchísimas gracias
Saludos
Gustavo

 

[Marcelo Branco]

Tenía problemas con el formato de la celda. Lo puse en General y funciona OK.

Complicada esa cosa de formatos en Excel...

Sospeché que podría ser algo relacionado con el formato de la celda A1 en Hoja1...

Saludos

M.

 

[gustavomeeuwes]

Nuevamente gracias por la ayuda desinteresada y compartir los conocimientos con gente como yo, que estamos dando nuestros primeros pasos con las macros.
Un cordial saludo
Gustavo

 

[Greg Truby]

otra posibilidad:

with sheet1.range("a1")
    .formular1c1="=sheet2!r1c1"
    .numberformat = """Fecha :"" d-mmm-yyyy"
end with

Asi, siempre se queda como una fecha y no texto y si la fecha en la segunda cambia, también cambia en la primera.