Pedro Arzac

Dante Amor respondió: Te paso la macro actualizada: Sub Enviar_Correos() 'Act.Por Dante Amor Dim i As Long, c As Long Dim Email As Object Dim archivo As String For i = 7 To Range("A" & Rows.Count).End(3).Row Set Email = CreateObject("Outlook.Application").CreateItem(0) '...

Dante Amor respondió: Siguiendo con tu mismo ejemplo para el artículo 223366 La tienda 194 le sobra 1 La tienda 202 le faltan 6 La tienda 203 le faltan 9 La tienda 205 le faltan 5 Entonces, cuál criterio o criterios se deben aplicar para distribuir la pieza sobrante de la...

Dante Amor respondió: Te anexo el código actualizado: Sub Enviar_Correo_a_Proveedores() 'Por Dante Amor Dim c As Range, f As Range Dim sh As Worksheet, s2 As Worksheet, s3 As Worksheet Dim ky As Variant ' With Application .EnableEvents = False .ScreenUpdating = False...

Dante Amor respondió: Responde en el siguiente orden: 1. Pon una imagen con ejemplos para ver cómo tienes los datos en la hoja. 2. Una imagen de cómo quieres los datos en el correo. 3. ¿De dónde se obtiene el correo para cada proveedor? 4. Qué va en el asunto del correo.