Visual Basic - Error "9" subindice fuera del intervalo VBA

Life is soft - evento anual de software empresarial
   
Vista:

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

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 = 0
 
Dim Codigo() As String
Dim NombreProducto() As String
Do Until n = 0
Codigo(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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error "9" subindice fuera del intervalo VBA

Publicado por Marcelo (225 intervenciones) el 03/11/2015 07:31:11
Hola,
Me podrías dar un poco de contexto y el propósito de esta macro?
Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar