Anónimo
¿Cómo puedo ignorar las celdas con fechas que están vacías?
He utilizado una macro que se colgó en la respuesta a una pregunta que hicieros sobre cómo avisar cuando la fecha estaba próxima.
Private Sub Workbook_Open1()
Dim N As Integer
Dim Texto As String
On Error GoTo Siguiente
For N = 4 To 100
If Cells(N, 8) - Now < 90 Then Texto = Texto & Cells(N, 4) & Chr(13)
Siguiente: Next N
If Texto <> "" Then
Texto = "revisar máquinas: " & Chr(13) & Texto
End If
End Sub
Me gustaría saber que puedo hacer para que en el aviso ignore las celdas que no tienen máquinas y estàn vacías.
Además he añadido otra celda con otra fecha de la misma máquina y quisiera que fueran dos avisos de cosas diferentes.
1 respuesta
Supongo que las fechas están en las celdas que está recorriendo el ciclo, y que la máquina está en la columna 4. Si es así modifica el código como sigue:
Private Sub Workbook_Open1() Dim N As Integer Dim Texto As String On Error GoTo Siguiente For N = 4 To 100 If Cells(n,8) <> "" And Cells(n,4) <> "" Then If Cells(N, 8) - Now < 90 Then Texto = Texto & Cells(N, 4) & Chr(13) End If Siguiente: Next N If Texto <> "" Then Texto = "revisar máquinas: " & Chr(13) & Texto End If End Sub
Las máquinas están en la fila 4 columna 4 y las máquinas en la fila 4 columna 8. Lo hago tal y como me ha indicado pero no sale la ventana del aviso.
Muchas gracias.
Ya ha salido. ¡Muchas gracias!
Excelente!