Duda MACROS Excel - Añadir más filas a la macro
Necesito añadir otra fila a la fórmula macro (la adjunto)
Private Sub Workbook_Open()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
For i = 1 To h1.Range("C" & Rows.Count).End(xlUp).Row
If UCase(h1.Cells(i, "J")) = "SOLICITAR EXAMEN" Then
MsgBox "COORDINAR EXAMENES PENDIENTE: " & h1.Cells(i, "F"), vbExclamation, "ALARMA"
End If
Next
End Sub
If UCase(h1.Cells(i, "J")) = "SOLICITAR EXAMEN" Then -> En esta oración quisiera poner la fila N y S, (la J la reconoce sin problemas) he intentado de todo, pero no sé cómo hacerlo, además quiero que detecte la palabra "VENCIDOS" .
No me quedó claro si debe cumplir las 3 condiciones o alguna de las 3...
Dejo 3 ejemplos para reemplazar la línea marcada:
'se controla si en las 3 celdas aparece el mismo mensaje If UCase(h1.Cells(i, "J")) = "SOLICITAR EXAMEN" And UCase(h1.Cells(i, "N")) = "SOLICITAR EXAMEN" And _ UCase(h1.Cells(i, "S")) = "SOLICITAR EXAMEN" Then 'se controla si en alguna de las 3 celdas aparece el mensaje If UCase(h1.Cells(i, "J")) = "SOLICITAR EXAMEN" Or UCase(h1.Cells(i, "N")) = "SOLICITAR EXAMEN" Or _ UCase(h1.Cells(i, "S")) = "SOLICITAR EXAMEN" Then 'se controla si en alguna de las 3 celdas aparece algún mensaje If UCase(h1.Cells(i, "J")) = "SOLICITAR EXAMEN" Or UCase(h1.Cells(i, "N")) = "SOLICITAR EXAMEN" Or _ UCase(h1. Cells(i, "S")) = "VENCIDO" Then
Si esto no resuelve tu consulta aclara qué texto esperas encontrar en cada col y si los mensajes devueltos dependerán de la col donde se encuentra tal o cual texto.
Esta consulta ya lleva más de un mes respondida donde te pasé 3 opciones para resolverla.
Ahora debes valorarla para darla por cerrada.
Sdos!
