Modificar rango de valores en Macro
Tengo esta macro que copio abajo.
He descifrado que coge los valores de Enviado a partir de la fila 21, ¿no? Creo que es lo de i=21. Si cambio el 21 por un 12 (que es desde donde los quiero), no me funciona bien.
¿Debo cambiar algo más? Yo quiero que vayan del 12 al 30.
Saludos,
Private Sub Worksheet_Calculate()
'Por Dante Amor
Set h1 = Sheets("AVISO ORDENES") 'hoja con datos
Set h2 = Sheets("Enviados") 'hoja de control de filas enviadas
'
For i = 21 To h1.Range("P" & Rows.Count).End(xlUp).Row
para = ""
Select Case LCase(h1.Cells(i, "P").Value)
Case LCase("Enviar1")
para = "[email protected]" 'Destinatarios
asunto = "Aviso IBEX "
cuerpo = Cells(14, "AB").Value 'Cuerpo
Case LCase("Enviar2")
para = "[email protected]" 'Destinatarios
asunto = "Aviso IBEX "
cuerpo = Cells(15, "AB").Value 'Cuerpo
Case LCase("Enviar3")
para = "[email protected]" 'Destinatarios
asunto = "Aviso IBEX "
cuerpo = Cells(16, "AB").Value 'Cuerpo
Case LCase("Enviar4")
para = "[email protected]" 'Destinatarios
asunto = "Aviso IBEX "
cuerpo = Cells(17, "AB").Value 'Cuerpo
Case LCase("Enviar5")
para = "[email protected]" 'Destinatarios
asunto = "Aviso IBEX "
cuerpo = Cells(18, "AB").Value 'Cuerpo
Case LCase("Enviar6")
para = "[email protected]" 'Destinatarios
asunto = "Aviso IBEX "
cuerpo = Cells(23, "AB").Value 'Cuerpo
Case LCase("Enviar7")
para = "[email protected]" 'Destinatarios
asunto = "Aviso IBEX "
cuerpo = Cells(24, "AB").Value 'Cuerpo
Case LCase("Enviar8")
para = "[email protected]" 'Destinatarios
asunto = "Aviso IBEX "
cuerpo = Cells(25, "AB").Value 'Cuerpo
Case LCase("Enviar9")
para = "[email protected]" 'Destinatarios
asunto = "Aviso IBEX "
cuerpo = Cells(26, "AB").Value 'Cuerpo
Case LCase("Enviar10")
para = "[email protected]" 'Destinatarios
asunto = "Aviso IBEX "
cuerpo = Cells(27, "AB").Value 'Cuerpo
End Select
If para <> "" Then
Set b = h2.Columns("A").Find(i, lookat:=xlWhole)
If b Is Nothing Then
'la fila no se ha enviado, se envía el correo
fila = i
Set Dam = CreateObject("outlook.application").createitem(0)
Dam.To = para
Dam.Subject = asunto
Dam.Body = cuerpo
'dam. Send 'El correo se envía en automático
Dam. Display 'El correo se muestra
Dam. Send
'
'Se agrega la fila para que el correo no sea enviado
'
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Range("A" & u2).Value = fila
h2.Range("B" & u2).Value = "Enviado"
End If
End If
Next
End Sub