............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

ESPACIO ENTRE CADENAS DE TEXTOS

Ver el tema anterior Ver el tema siguiente Ir abajo

ESPACIO ENTRE CADENAS DE TEXTOS

Mensaje por RONALD ROSAS el Miér Jul 17, 2013 7:44 pm

ESTIMADOS FOREROS SOY NUEVO ESTE LUGAR Y NECESITO QUE ME AYUDEN CON UNAS MACROS:
TENGO UNA MACRO CON EL SIGUIENTE CODIGO:

Private Sub WORKBOOK_OPEN()
'ENVÍA MAIL
'POR.DAM
Sheets("TASK STAT").Select

UFILA = Range("E" & Rows.Count).End(xlUp).Row

For I = 5 To UFILA

If Cells(I, 21) <= Cells(I, 20) Then
Set PARTE1 = CreateObject("OUTLOOK.APPLICATION")
Set PARTE2 = PARTE1.CREATEITEM(OLMAILITEM)
PARA = Cells(I, 18) & ";" & Cells(I, 19) & ";" & Cells(I, 20)
PARTE2.TO = PARA 'DESTINATARIOS
'PARTE2.CC = "" 'CON COPIA
PARTE2.Subject = "ESTADO DE SU ORDEN DE COMPRA " & Cells(I, 5) & ""
'"CUERPO DEL MENSAJE"
PARTE2.BODY = "ESTIMADO (A) " & Cells(I, 17) & _
": LA ORDEN DE COMPRA " & Cells(I, 5) & _
" CON FECHA DE EMISIÓN " & Cells(I, & _
" Y CON FECHA PACTADA " & Cells(I, 10) & _
" CON EL CÓDIGO " & Cells(I, 13) & _
" - " & Cells(I, 14) & _
" SE INICIÓ EL SEGUIMIENTO EL DÍA " & Cells(I, 35) & _
" Y HOY " & Cells(I, 24) & _
" SE ENCUENTRA EN EL SIGUIENTE ESTADO: " & Cells(I, 25) & _
", SI TIENE ALGUNA SUGERENCIA POR FAVOR RESPONDA POR MEDIO DEL PRESENTE."




'PARTE2.ATTACHMENTS.ADD RUTA & ARCHIVO
PARTE2.SEND 'EL CORREO SE ENVÍA EN AUTOMÁTICO
'PARTE2.DISPLAY 'EL CORREO SE MUESTRA
End If
Next


End Sub


EL RESULTADO DE ESTA MACRO ES:

ESTIMADO (A) Josue Santos, Zamalloa Arce: LA ORDEN DE COMPRA 1099401 CON FECHA DE EMISIÓN 28/06/2013 Y CON FECHA PACTADA 29/06/2013 CON EL CÓDIGO 77001689 - O RING NITRILO 3 x 76mm SE INICIÓ EL SEGUIMIENTO EL DÍA 28/06/2013 Y HOY 04/07/2013 11:59:01 a.m. SE ENCUENTRA EN EL SIGUIENTE ESTADO: 04/07 CESAR DICE QUE SE ATENDERA PARCIALMENTE PERO QUE LE DE UNA LLAMADA ALAS 3PM PARA CONFIRMAR LA TOTALIDAD (02/07 2:44PM CESAR PIDE QUE SE LO LLAME LUEGO PORQUE ESTA FUERA DE LA EMPRESA (28 CONFIRMARON EL ENVIO PARA EL 01/07 , SI TIENE ALGUNA SUGERENCIA POR FAVOR RESPONDA POR MEDIO DEL PRESENTE.

Y lo que necesito es que con esa macro aparezca el texto de la siguiente forma:

ESTIMADO (A) Josue Santos, Zamalloa Arce:

LA ORDEN DE COMPRA 1099401
CON FECHA DE EMISIÓN 28/06/2013
CON FECHA PACTADA 29/06/2013

CÓDIGO 77001689 - O RING NITRILO 3 x 76mm

SE INICIÓ EL SEGUIMIENTO EL DÍA 28/06/2013 Y HOY 04/07/2013 11:59:01 a.m. SE ENCUENTRA EN EL SIGUIENTE ESTADO:

04/07 CESAR DICE QUE SE ATENDERÁ PARCIALMENTE PERO QUE LE DE UNA LLAMADA ALAS 3PM PARA CONFIRMAR LA TOTALIDAD (02/07 2:44PM CESAR PIDE QUE SE LO LLAME LUEGO PORQUE ESTA FUERA DE LA EMPRESA (28 CONFIRMARON EL ENVÍO PARA EL 01/07 .

SI TIENE ALGUNA SUGERENCIA POR FAVOR RESPONDA POR MEDIO DEL PRESENTE.




RONALD ROSAS

Masculino Cantidad de envíos : 3
Edad : 26
Ciudad - Pais : lima-peru
Version de Excel : 2007
Fecha de inscripción : 17/07/2013

Volver arriba Ir abajo

Re: ESPACIO ENTRE CADENAS DE TEXTOS

Mensaje por renem el Mar Jul 30, 2013 10:57 pm

Hola, para poder probar es necesario que subas la hoja Excel. Por otra parte, si te ayuda, el salto de línea es Chr(13).

renem

Cantidad de envíos : 82
Ciudad - Pais : Santiago - Chile
Fecha de inscripción : 05/11/2008

Volver arriba Ir abajo

Re: ESPACIO ENTRE CADENAS DE TEXTOS

Mensaje por RONALD ROSAS el Miér Jul 31, 2013 10:35 am

Muchas gracias,, ya lo logre y si con el salto de linea:

Private Sub CommandButton1_Click()
'ENVÍA MAIL
'POR.DAM
Sheets("TASK STAT").Select

UFILA = Range("E" & Rows.Count).End(xlUp).Row

For l = 5 To UFILA

If Cells(l, 26) = Cells(l, 25) Then
Set PARTE1 = CreateObject("OUTLOOK.APPLICATION")
Set PARTE2 = PARTE1.CREATEITEM(OLMAILITEM)
PARA = Cells(l, 21) & ";" & Cells(l, 22) & ";" & Cells(l, 23)
PARTE2.To = PARA 'DESTINATARIOS
'PARTE2.CC = "" 'CON COPIA
PARTE2.Subject = "ESTADO DE SU ORDEN DE COMPRA " & Cells(l, 6) & ""
'"CUERPO DEL MENSAJE"
PARTE2.BODY = "Estimado (a): " & Cells(l, 20) & vbCrLf & _
"" & vbCrLf & _
" ORDEN DE COMPRA: " & Cells(l, 6) & vbCrLf & _
" PROVEEDOR: " & Cells(l, & vbCrLf & _
" FECHA DE EMISIÓN: " & Cells(l, 10) & vbCrLf & _
" FECHA PACTADA: " & Cells(l, 12) & vbCrLf & _
"" & vbCrLf & _
" CÓDIGO LÍNEA CANTIDAD DETALLE" & vbCrLf & _
"" & Cells(l, 15) & " " & Cells(l, 14) & " " & Cells(l, 18) & " " & Cells(l, 17) & vbCrLf & _
"" & vbCrLf & _
" FECHA DE INICIO DE SEGUIMIENTO: " & Cells(l, 39) & vbCrLf & _
"" & vbCrLf & _
" Hoy " & Cells(l, 28) & " ""Se encuentra en el siguiente estado: " & vbCrLf & _
"" & vbCrLf & _
"" & Cells(l, 29) & vbCrLf & _
"" & vbCrLf & _
" También puede consultar el estado de su orden de compra en la siguiente ruta: \\asnfpslim02\PAMOLSA-Seguimiento de Compras Locales\SEGUIMIENTO_DE_ORDENES_DE_COMPRAS_LOCALES" & vbCrLf & _
" " & vbCrLf & _
" Atte." & vbCrLf & _
" " & vbCrLf & _
" RO" & vbCrLf & _
" P" & vbCrLf & _
" Tel: Ext: 52756" & vbCrLf & _
" RPC: " & vbCrLf & _
" "







'PARTE2.ATTACHMENTS.ADD RUTA & ARCHIVO
PARTE2.SEND 'EL CORREO SE ENVÍA EN AUTOMÁTICO
'PARTE2.DISPLAY 'EL CORREO SE MUESTRA
End If
Next

End Sub


esta macro tiene como resultado los siguiente:

Estimado (a): Karen Anali, Valeriano Palomino
ORDEN DE COMPRA: 1097980
PROVEEDOR: SMART FACTORY SAC
FECHA DE EMISIÓN: 12/06/2013
FECHA PACTADA: 25/06/2013
CÓDIGO LÍNEA CANTIDAD DETALLE
77070174 1 2 CABLE CONECTOR DE 6 PINES P/TRANSDUCTOR DE PRESION (SALIDA NO AMPLIFICADA). MARCA GEFRAN. MODELO C08W. 8 METROS DE CABLE (25 PIES)
FECHA DE INICIO DE SEGUIMIENTO: 05/07/2013
Hoy 30/07/2013 05:06:43 p.m. "Se encuentra en el siguiente estado:
30/07 no responde nadie por favor su VB para anular esta OC (18/07 no responde nadie y Alejandra la recepcionista del prov. dice que no sabe nada de ese tema (16/07 no responde nadie (13-06-2013 recepción OC marco indica que es una importación, confirma entrega 26-07-2013
También puede consultar el estado de su orden de compra en la siguiente ruta: \\asnfpslim02\PAMOLSA-Seguimiento de Compras Locales\SEGUIMIENTO_DE_ORDENES_DE_COMPRAS_LOCALES

Atte.

RONALD ROSAS

Masculino Cantidad de envíos : 3
Edad : 26
Ciudad - Pais : lima-peru
Version de Excel : 2007
Fecha de inscripción : 17/07/2013

Volver arriba Ir abajo

Re: ESPACIO ENTRE CADENAS DE TEXTOS

Mensaje por Contenido patrocinado Hoy a las 11:27 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.