Error "9" subindice fuera del intervalo VBA
Publicado por klacosta (1 intervención) el 25/10/2015 00:37:15
Hola Buenas tardes, tengo un error en VBA, y la verdad no se como solucionarlo ya que soy nueva en este lenguaje de programación.
Cuando corro la macro me surge el error '9' subindice fuera del intervalo, este es el codigo
El error aparece en la linea
Codigo (n) = InputBox("Introduzca el codigo del producto")
Espero sea suficiente información y puedan ayudarme, gracias
Cuando corro la macro me surge el error '9' subindice fuera del intervalo, este es el codigo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim n As Integer
Range("D7").Activate
n = ActiveCell.Value - 1
Dim contador As Integer
contador = 0Dim Codigo() As String
Dim NombreProducto() As String
Do Until n = 0Codigo(n) = InputBox("Introduzca el codigo del producto")
Cells(7 + contador, 7).Active
ActiveCell.FormulaR1C1 = Codigo(n)
NombreProducto(n) = InputBox("Introduzca el nombre del producto")
Cells(7 + contador, 8).Active
ActiveCell.FormulaR1C1 = Codigo(n)
n = n - 1
contador = contador + 1
Loop
El error aparece en la linea
Codigo (n) = InputBox("Introduzca el codigo del producto")
Espero sea suficiente información y puedan ayudarme, gracias
Valora esta pregunta
0
