hola nuevamente, sigo con los problemas de macros al pasar en el trabajo de office 2003 al office365, a la hora de enviar una selección de celdas de una tabla dinámica a distintos destinatarios de correos todos los días. La tabla dinámica de la que hay que ir copiando los datos diariamente es con este formato: AÑO 15 MES 11 DIA Datos Total 27 UR1_LSM/OCR A SECCION 5153 UR1_OCR/LSM A UNIDAD 1331 UR.1 SCP PAQUETERÍA 13 UR2_LSM/OCR A SECCION 6324 UR2_OCR/LSM A UNIDAD 1604 UR.2 SCP PAQUETERÍA 12 UR3_LSM/OCR A SECCION 4081 UR3_OCR/LSM A UNIDAD 1310 UR.3 SCP PAQUETERÍA 11 UR4_LSM/OCR A SECCION 10028 UR4_OCR/LSM A UNIDAD 2741 UR.4 SCP PAQUETERÍA 16 y hay que ir enviándole un correo a UR1, UR2, UR3, UR4 con los datos que se encuentran respectivamente en el rango de celdas ("B5:C7"), ("B8:C10"), ("B11:C13"), ... He preparado la siguiente macro pero no me carga el rango de celdas que selecciona unas veces, otras si los vuelca en el cuerpo del mensaje pero equivocados o en el ultimo correo me carga todos los rangos juntos,........., en fin que no hace lo que quiero: Sub LASPALMAS() ' ' UR1 ' ActiveSheet.Range("b5:c7").Select With CreateObject("outlook.application").CreateItem(0) .To = "ur1.laspalmas@correos.com; " .Subject = "Estadística IRV/FSM/SCP día " & Range("A5") & "/" & Range("B2") & "/" & Range("B1") .Display Selection.Copy: DoEvents Application.SendKeys "^v" End With ' UR2 ' ActiveSheet.Range("b8:c10").Select With CreateObject("outlook.application").CreateItem(0) .To = "ur2.laspalmas@correos.com; " .Subject = "Estadística IRV/FSM/SCP día " & Range("A5") & "/" & Range("B2") & "/" & Range("B1") .Display Selection.Copy: DoEvents Application.SendKeys "^v" End With ...... end sub muchas gracias por todo

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

encadenar seleccion de rango y envio de correos

Autor del tema vicenbmw
Fecha de inicio 1 Dic 2015

vicenbmw

New member

1 Dic 2015

hola nuevamente, sigo con los problemas de macros al pasar en el trabajo de office 2003 al office365, a la hora de enviar una selección de celdas de una tabla dinámica a distintos destinatarios de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Resuelto

Borrar seleccion en ComboBox

Respuestas: 2

15 Mar 2026

klex

Pregunta

Macro/boton para seleccion random

Respuestas: 1

20 May 2024

Deleted member 10123

Pregunta

Una Macro para que muestre datos segun la seleccion que haga..

Respuestas: 7

23 Abr 2024

tierra_pampa

Resuelto

Autorellenar 1 o 2 textbox condicionado a una seleccion de un ComboBox

Respuestas: 5

14 Feb 2024

FGV

Pregunta

Presupuestos. Seleccion entre multiples hojas.

Respuestas: 1

23 Jul 2020

Macro Antonio

Pregunta

Seleccion Multiple de Archivos,Conteo, Copiado y Pegado

Respuestas: 0

10 Ene 2020

fdcz13

Pregunta

seleccion aleatoria de celdas

Respuestas: 4

12 Ene 2020

jhon6666

Pregunta

crear un nomre o una lista desplegable con la seleccion de un dato de lista desplegable

Respuestas: 1

30 Nov 2019

jasin

Pregunta

Seleccion en listbox

Respuestas: 0

15 Jul 2019

masdelomismo

Pregunta

CAMBIAR COLOR DE SELECCION DE ITEMS EN LISTBOX

Respuestas: 4

24 Jun 2019

Macro Antonio

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba