Jump to content
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

Gracias Max2005 pero me sale este error:

perdon Cesar Duran

pero no se como colocar tu sugerencia

pues estoy haciendolo el codigo dentro de

Private Sub UserForm_Initialize()

post-202070-1458770146_thumb.png

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

Sii!! Es exactamente como quería el resultado.

solo por curiosidad lo del Sub ABC ()

Es otra opción?? pues me quede con la primera que esta al Inicializar y funciona

Share this post


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

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



  • Posts

    • Tu mismo, pero tu código es inmanejable. Así es como lo haría yo. La hoja Paises puedes ocultarla. Nacionalizar.xlsm
    • Hola A todos Espero estén muy bien. Recurro una vez mas a uds con lo siguiente: Para calculo de día semana del mes, buscando encontré lo siguiente: =NUM.DE.SEMANA(B2;2)-NUM.DE.SEMANA(FIN.MES(B2;-1)+1;2)+1 Siendo B2, la celda que contiene la fecha. Ahora mi tema es que quiero obtener el resultado dado por esta función en vba. Adjunto un pequeño ejemplo.   Saludos Cordiales Pedro ejemplo.xlsm
    • Que sorpresa!!! Gracias por el detalle ,..Excelente,. otro código otro estilo, igual creas un área auxiliar,  pero si es una hoja..... Worksheets("aux") no veo donde la creas ni donde la eliminas simplemente no existe en los libros se ejecuta tan rápido que el libro origen prácticamente provee los datos como sin abrirlo. Resize un código interesante. Gracias por tu apoyo
    • Hola de nuevo @viejo acorde a lo que preguntaste Te dejo una alternativa de solución. Nos comentas. Nacionalizar1.1.xlsm
    • Mauricio_ODN te agradezco la colaboración de verdad, la idea que pones en si, sí funciona, pero eso me obligaría a utilizar hojas y celdas y no es lo que quiero, es solo que lo que yo necesito hacer es que el proceso se realice dentro del textbox o a nivel de código y no en la lectura dentro de la hoja, es decir; sin utilizar celdas ni hojas, si no que se haga dentro del textbox el proceso de "reconocimiento" del texto como tal, no se si me doy a explicar. ¿Podrias ayudarme una vez mas con eso, mi estimado experto?. Gracias de antemano  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy