Actividad pública reciente
Voto positivo a la respuesta
Macro para envíar correos masivos con adjuntos diferentes
Te anexo mi aplicación para enviar varios correos, a diferentes destinatarios, con diferentes archivos, con diferentes asuntos, con diferentes cuerpos de mensaje. '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For...
Ha valorado "Excelente" la respuesta
Formato a celdas dentro de Rango
Tienes el nombre de la macro como "celda" También estás utilizando el objeto "celda" pero no lo estableciste. Entonces, si lo quieres con un objeto, podría ser así: Sub PoneColor1() Set Celda = ActiveCell With Celda If .Value = "" Then...
Voto positivo a la respuesta
Macro para enviar correos mediante Outlook con datos adjuntos
H ol a: Es un detalle de la versión. Prueba con esta: '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").createitem(0)...
Ha valorado "Excelente" la respuesta
Registro de celdas utilizando VBA
H ol a: Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor Set Rng = Range("B4:B444") If Not Intersect(Target, Rng) Is Nothing Then Application.ScreenUpdating = False ActiveSheet.Unprotect...