Jump to content

Mails duplicados


Recommended Posts

Buenos días de nuevo hoy.

Estoy teniendo problemas con una macro y no logro resolver.

En la macro he creado un módulo que muestra un formulario sí la fecha de la columna "Fecha" es igual al día actual y después envía un mail al destinatario.

El problema es que al hacer dicha comprobación me duplica los mails.

 

Un saludo para todos.

Adjunto macro:

MMailAviso.xlsm

Link to comment
Share on other sites

Hola Antoni;

Primero gracias por responder. 

En cuanto a la pregunta, prefiero que me pregunte si quiero enviar y te explico porqué. 

Me gustaría revisarlos primero ya que por error podría enviar a algún cliente  que en ese momento no me gustaría enviar.

Es posible (?).

Te lo agradezco. 

Link to comment
Share on other sites

Hola Antoni;

-La macro ahora genial, te lo agradezco.

Había intentado como comentaste quitar el For pero no me iba.

For f = 2 To Final

Me puedes explicar brevemente este procedimiento. Ya he visto en alguna ocasión algo parecido y no lo comprendo bien.

Sub EnviarMail(Fila As Long): On Error Resume Next

 

EnviarMail Fila 

Un abrazo y muchísimas  gracias por todo.

Bo día.

Link to comment
Share on other sites

¿Qué es lo que no entiendes? 

 

EnviarMail, es un procedimiento que espera un parámetro:  La fila de donde sacaremos los datos, lo puedes llamar también así Call EnviarEmail(Fila) o incluso así Call EnviarEmail(Fila:=Fila), en este caso el parámetro del procedimiento y la variable que le pasamos coincide, pero no tiene por que ser así.

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Desconozco si por falta de aportación de datos, no me pueden ayudar  o es que no se puede desarrollar esta macro. Gracias.
    • Antoni muchas gracias, eso lo que esperaba. Consegui también estas lineas codigo. Sub Rellenar() Dim uf, fila As Integer uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row fila = 2 While fila <= uf If Sheets("Consolidar").Cells(fila, 2) = Empty Then    Sheets("Consolidar").Cells(fila, 2) = "DIGITAL" End If fila = fila + 1 Wend End Sub
    • Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"  
    • Buenas tardes chicos, Ya lo he hecho funcionar, tarda un poco al pulsar el botón Ejecutar Comparación que supongo que será por lo poco "depurada" que está la macro pero es hasta donde llego a base de leer y copiar y pegar  he observado que ocupa mas de 2Mb y no es normal, supongo que arrastra algún error que lo hace ir ampliando conforme se usa. Os dejo el archivo por si alguien lo necesita, se que es un poco raro pero quien sabe? a lo mejor le va bien a alguien. Un saludo. DiferenciasEntreColumnas.7z
    • Buenos dias expertos, requiero una ayuda, lo que pasa es que tengo una hoja que importa datos de diferentes libros externos y funciona perfecto, pero lo que pasa es que en la columna B aveces faltan datos ya que debe ser la misma palabra "DIGITAL", lo que requiero es una macro que me copie o me rellene la palabra antes mencionado hasta la altura de los registros importados. Por favor me pueden apoyar con dicha macro estare agradecido de todo ustedes se que en esta comunidad hay muchos expertos. Adjunto el archivo. Consolidado.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy