Macro para avisar con un mensaje dependiendo del resultado de una celda
Buenas tardes. Estoy manejando esta macro
.
Private Sub Workbook_Open()
'Por.DAM
u = 30
u = Range("E" & Rows.Count).End(xlUp).Row
For i = 2 To u
If Cells(i, "E") > 350 And Cells(i, "E") <= 365 Then
MsgBox "CUIDADO, EN LA FILA: " & i & ", FALTAN POCOS DÍAS PARA CUMPLIR EL AÑO," & _
"PARA LA PRÓXIMA CALIBRACIÓN", vbCritical, "ALERTA"
ElseIf Cells(i, "E") > 365 Then
MsgBox "LA FILA: " & i & ", ES MAYOR A UN AÑO", vbCritical, "ALERTA"
End If
Next
End Sub
pero en esta celda tengo una formula y el mensaje me sale que en todas las filas ya que asume a todas las celdas como mayor a 350 y menor a 365, como puedo hacer para que no tome a las formulas sino solo a los valores >350 y <365
muchas gracias
Respuesta de Dante Amor
1