[SOLUCIONADO] Duda utilizando on error GoTo linea

[camagudelore]

Buenas tardes, compañeros tengo una duda, respecto al uso del Goo

En primer lugar necesito utilizarlo dentro de un ciclo For, y en el primer error este cumple su fincion, pero cuadno sale un segundo error no me funciona.

ejemplificando mi algoritmo cree este mini codigo que me solucionaria el mio especificamente.

Sub hola()

Dim i As Integer
i = 1
For j = 1 To 10
Application.DisplayAlerts = False
On Error GoTo 1
i = i * j * 10
Cells(j, 1) = i
1:
Next j
End Sub

Este algoritmo arroja un error cuando crece mucho la variable i, porque se declaro como un integer.

Pd. el GoTo resume Next tampoco me funcionó. la salida de esa corrida deberia ser una lista 10, 200, 600 y como sale error en el resto deberia solo imprimir esos datos, no deberia sacar mas valores.

Agradezco una prontea respuesta.

[pkj]

No te entiendo.
El primer error lo da cuando la cuenta es 10, 200, 6000.
Si lo que quieres es salir al primer error ¿por que no lo mandas fuera del bucle cuando sucede??
Si te quedas dentro solo conseguiras mas errores.

PD:
Pero para gustos los colores...
Si te hace ilusion hacer todo el ciclo o simplemente por si a alguien le interesa, este modo hace todo el bucle sin mostrar errores.

Código vb:

Private Sub Command1_Click()
 Dim j As Integer
 Dim i As Integer
 i = 1
 On Error GoTo 1
 For j = 1 To 10
   Application.DisplayAlerts = False
   i = i * j * 10
   Cells(j, 1) = i
   GoTo 2
1:
   Resume 2
2:
 Next j
End Sub
 

Incluso podemos sacar el error del bucle para que alguno lo tenga mas claro:

Código vb:

Private Sub Command1_Click()
  Dim j As Integer
  Dim i As Integer
  i = 1
  On Error GoTo 1
  For j = 1 To 10
   Application.DisplayAlerts = False
    i = i * j * 10
   Cells(j, 1) = i
2:
  Next j
  GoTo FinSub
1:
  Resume 2
FinSub:
End Sub
 

Saludos

[camagudelore]

Pkj, muchas gracias por su ayuda, realmente lo necesitaba era por que necesitaba abrir varios libros de excel que tienen un serial, pero no están continuos, por eso necesitaba que siguiera iterando así encontrará errores.