Se ha producido el error '424' en tiempo de ejecución

Cerrado
mblascog
Message postés
1
Date d'inscription
viernes, 20 de diciembre de 2013
Estatus
Miembro
Última intervención
viernes, 20 de diciembre de 2013
- 20 dic 2013 a las 11:26
Hola,
Estoy haciendo una plantilla de Factura con Recargo de Equivalencia.
He puesto un checkbox y quiero que al ser verdadero calcule el recargo y lo visualice en una celda y cuando sea falso, la deje a 0.
A dicho checkbox le he puesto el nombre RecEq
El código es el siguiente:

Sub Factura_RecEq_Haga_clic_en()
    If RecEq.Value = True Then
        Cells(34, i).Value = Cells(31, i) * 0.052
    Else
        Cells(31, i).Value = 0
    End If
End Sub