Control horas (una alerta no funciona)

[santoyo70]

En un trabajo anterior que me ayudo el foro, Control horas de vuelo pilotos, el cual es un gran trabajo, habia un control de horas de 45 en 15 dias y de 75 en un mes, he llenado estas hojas y no me sale mensaje o alerta o condicional de esta parte aunque en el codigo esta la parte de control 45 horas en 15 dias, este no ha operado, que hace falta?, adjunto el archivo . Mil gracias de antemano

CONTROL HORAS HELICOPTERO.rar

[Antoni]

En esta parte del código, la línea señalada debe modificarse.

Original:

      'MES ACTUAL

      For y = 3 To 33

         If Not .Cells(12, y) = "" Then '<----- Dice ------------

            If Cells(x, y) = "" Then

               días = 0

               Total = 0

            Else

               días = días + 1

               Total = Total + Cells(x, y)

               If Total > 45 Then Cells(x, y).Interior.Color = vbYellow

            End If

         End If

      Next

[/CODE]

Modificar:

[CODE] 'MES ACTUAL
For y = 3 To 33
If Not Cells(12, y) = "" Then '<------ Debe decir ----------------
If Cells(x, y) = "" Then
días = 0
Total = 0
Else
días = días + 1
Total = Total + Cells(x, y)
If Total > 45 Then Cells(x, y).Interior.Color = vbYellow
End If
End If
Next
[/CODE]

.

[santoyo70]

Gracias bien salio el fondo amarillo, la meta a lograr es asi, en la forma actual cuenta los dias seguidos y saca la alerta siempre y cuando todos los 15 dias vuele seguido, esta bien , pero como logro que no sean seguidos sino que en un lapso de 15 dias seguidos no se pase de 45 horas, es decir puede tener 4 dias de 9 horas otro sin nada luego otro con 4 horas y dos sin nada y asi, o sea no continuo el vuelo pero que el 15 dias alerte si llega a 40 o 45 , el numero se cuadra, ideal que saque un mensaje de alerta perfecto seria y otro que en el mes el total no pase o alerte si esta en 90 o 80. soy principiante en trabajar visual basic en excel, autodidacta.