Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Sign in to follow this  
Visor

Concatenar celda con texto y celda con fecha

Recommended Posts

Estimados amigos otra vez me estanque, con vuestro apoyo concatene el contenido de tres celdas con texto.

Ahora quiero concatenar una celda que contiene texto (Ciudad) y otra que tiene fecha

I2 de la Hoja Remitente

Riobamba

E (ultima fila) de la Hoja BD_OFICIOSE

8/08/2015

he puesto lo siguiente:

 Sheets("FORMATOF").Select
Range("A1").Value = Worksheets("Remitente").Range("I2").Value & ", " & Worksheets("BD_OFICIOSE").Range("E" & Fila, "dd/mm/aaaa").Value[/CODE]

Para que me salga así en A1 de la hoja FORMATOF :

Riobamba, 8 de agosto del 2015

Pero solo consigo error

¿Como puedo logras lo requerido?

Gracias por su colaboracion

Share this post


Link to post
Share on other sites

Hola Visor,

Prueba con esta solución

Sheets("FORMATOF").Select
Range("A1").Value = Worksheets("Remitente").Range("I2").Value & ", " & Worksheets("BD_OFICIOSE").Format(Range("E" & Fila, "[$-C0A]dd-mmm-yy;@"))[/CODE]

Comentas

Mucha Suerte

Saludos !!!

Share this post


Link to post
Share on other sites

O probar con esta:

Option Explicit
Sub a()
Dim fechalarga As String, fecha_b As String

fechalarga = CStr(FormatDateTime(Now, vbLongDate))
fecha_b = Right(fechalarga, Len(fechalarga) - (Application.Find(",", fechalarga) - 1))

With Worksheets("hoja1")
[B1] = [A1] & fecha_b
End With
End Sub
[/CODE]

Share this post


Link to post
Share on other sites

Asi lo intente:

Private Sub UserForm_Initialize()
Dim fchlarga As String, fecha_b As String
fchlarga = CStr(FormatDateTime(Now, vbLongDate))
fecha_b = Right(fchlarga, Len(fchlarga) - (Application.Find(",", fchlarga) - 1))
With Worksheets("FORMATOF "): [A1] = Worksheets("Remitente").[I2] & Worksheets("BD_OFICIOSE").fecha_b: End With
End sub[/CODE]

pero me sale:

post-202070-145877014601_thumb.png

Share this post


Link to post
Share on other sites

Hola Visor,

Una solución más, pero si no te da resultado, estoy de acuerdo con el comentario de Marco Antonio

Sube de una vez el archivo y explica lo que deseas conseguir.

Sub Macro1()

Dim cf As String
Sheets("FORMATOF").Select
cf = Sheets("DB_OFICIOSE").Range("E" & Fila & "").Value
cf = Format(cf, "[$-C0A]dd-mmm-yy;@")
Range("A1").Value = Sheets("Remitente").Range("I2").Value & ", " & cf

End Sub[/CODE]

Saludos !!!

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png