Cual es el problema en esta macro, me arroja un error de automatización y unos números
Al ejecutar una macro el excel se queda pegado(no responde) y al cerrarlo me aparece error de atumatizacion y una serie de números, quería saber si me puedes ayudar a encontrar el error
Este es el código,
Sub proceso()
cr = 11
cb = 10
'fila de donde inicia trabajando y que permite recorrer toda la hoja
fx = 2
'ciclo para recorrer toda la hoja
Do While Not IsEmpty(Cells(fx, 1))
'Cells(fx, 12).Select
'guardo el bp en la variable bp
bp = Cells(fx, 3)
'fo sirve para recorrer toda la hoja en busca de un bp
'ciclo para determinar dónde está el primer bp igual al que tengo
fo = 2
Do While Not IsEmpty(Cells(fo, 1))
If Cells(fo, 3) = bp Then
'f1 es la fila donde está por primera vez el bp dado
f1 = fo
Exit Do
End If
fo = fo + 1
Loop
'ciclo para determinar donde está el último bp igual al que tengo
fo = f1
Do While Not IsEmpty(Cells(fo, 1))
If Cells(fo, 3) <> bp Then
'f2 es donde está por última vez el bp dado
f2 = fo - 1
Exit Do
End If
fo = fo + 1
Loop
'el siguiente proceso define si hay un ok en el rango de filas desde f1 hasta f2
'c = 1
x = 0
If HayunVencido(bp, f1, f2, cb) And x = 0 Then
x = 1
fm = f1
Do While fm <= f2
Cells(fm, cr) = "Vencido"
fm = fm + 1
Loop
Else
If HayunOk(bp, f1, f2, cb) And x = 0 Then
'si hay un ok marca todas las columnas 11 de esas filas con un OK
fm = f1
x = 1
Do While fm <= f2
Cells(fm, cr) = "OK"
fm = fm + 1
'c = c + 1
Loop
Else
If HayunPendiente(bp, f1, f2, cb) And x = 0 Then
x = 1
fm = f1
Do While fm <= f2
Cells(fm, cr) = "Pendiente"
fm = fm + 1
Loop
Else
If HayunNoAplica(bp, f1, f2, cb) And x = 0 Then
fm = f1
x = 1
Do While fm <= f2
Cells(fm, cr) = "No Aplica"
fm = fm + 1
Loop
End If
End If
End If
End If
fx = fx + 1 + f2 - f1
Application.StatusBar = fx
Loop
Application.StatusBar = "Ready"
End Sub