0

'Este es el trozo de código que me da problemas, desde que lo he añadido no me deja abrir el formulario por error 424.

    For i = 0 To i = 7
        If ActiveCell.Value = d Then
            ActiveCell.Offset(1, 0).Select
            For j = 0 To j = 12
                If ActiveCell.Value = CB_Operari.Value Then
                    ActiveCell.Offset(0, 2).Select
                    ActiveCell.Value = TXTNomFeina.Value
                    Exit For
                End If
                ActiveCell.Offset(1, 0).Select
            Next j
        End If
        ActiveCell.Offset(0, 1).Select
    Next i
4
  • ¿Cuál es el mensaje de error? el 27 jul. 2022 a las 13:37
  • debajo del ActiveCell.Value = TXTNomFeina.Value creo que primero debe ir End If y luego Exit For el 27 jul. 2022 a las 15:15
  • un bucle for con variable se escribiría For i= to 7, no como lo tienes escrito tú
    – Esei
    el 27 jul. 2022 a las 20:13
  • El depurador debe indicar la linea del error, esto si das clic en depurar cuando sale el mensaje, ¿en cual linea te da el error?, por otro lado, los ciclos For no estan bien definidos, si quieres que el primer ciclo inicie en cero y termine en 7, entonces deberías definirlo asi: For i = 0 To 7, en el caso del segundo, debería ser asi: For j = 0 To 12, asi como esta, cada ciclo se ejecutara solo una vez. el 29 jul. 2022 a las 2:19

1 respuesta 1

0

lo primero que estoy observando es que los bucles For yo lo iniciaria de la siguiente manera: for i= 0 to 7 for j= o to 12 En el caso del Exti For esta bien ubicado por que es una de las formas de salir de un bucle, en esta pagina hay un par de ejemplos https://excelyvba.com/el-bucle-for-next/ Epero que sirva de algo Saludos MC

Tu Respuesta

Al pulsar en “Publica tu respuesta”, muestras tu consentimiento a nuestros términos de servicio, política de privacidad y política de cookies

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.