Forums Últimos mensajes - Powered by IBM
 

Pregunta sobre error 9

04/01/2005 - 18:45 por German | Informe spam
Hola a todos, necesitaria ayuda con lo siguiente.
Tengo esta parte del codigo en excel (visual for
application)

tiempoinicial = Time

Workbooks.Open "c:\estadistica\planillas\datos.xls"

'Arma los títulos
Workbooks("datos").Sheets("Principal").Range("AC3") = "Mes
de " & Mes.Value & " de 2004."
Workbooks("datos").Sheets("Principal").Range("AC4") =
mesanterior(Mes.Value) & " 2003 - " & Mes.Value & " 2004"

Workbooks("datos").Save

Cuando hace click en un boton se ejecuta el codigo que
copie anteriormente. Cuando llega a la seccion donde tiene
que armar los titulos me dice lo siguiente:
Se ha producido el error 9 subindice fuera del intervalo.

La celda donde quiere armar los titulos esta vacia.

Alguien me podria decir como solucionar esto?
Gracias
 

Leer las respuestas

#1 KL
04/01/2005 - 19:36 | Informe spam
German,

Falta mucha informacion en el trozo de codigo q expones, por lo cual no me
ariesgaria a afirmar algo con total seguridad. Sin embargo, por lo q puedo
ver en el codigo y juzgando por el mensaje de error, el problema esta (casi
seguro) en el fragmento siguiente:

mesanterior(Mes.Value)

y concretamente en Mes.Value o en como esta declarada la matriz:
mesanterior()

Probablemente Mes.Value devuelve un valor q no corresponde a ningun miembro
de la matriz, p.ej si la matriz es mesanterior(1 To 12) y Mes.Value devuelve
"" o 0 o 13 o "Enero", etc. obtendras el error q acabas de mencionar.

Si expones el codigo completo sera mas facil hacer el diagnostico
definitivo.

Saludos,
KL

"German" wrote in message
news:04cb01c4f285$368c6800$
Hola a todos, necesitaria ayuda con lo siguiente.
Tengo esta parte del codigo en excel (visual for
application)

tiempoinicial = Time

Workbooks.Open "c:\estadistica\planillas\datos.xls"

'Arma los títulos
Workbooks("datos").Sheets("Principal").Range("AC3") = "Mes
de " & Mes.Value & " de 2004."
Workbooks("datos").Sheets("Principal").Range("AC4") mesanterior(Mes.Value) & " 2003 - " & Mes.Value & " 2004"

Workbooks("datos").Save

Cuando hace click en un boton se ejecuta el codigo que
copie anteriormente. Cuando llega a la seccion donde tiene
que armar los titulos me dice lo siguiente:
Se ha producido el error 9 subindice fuera del intervalo.

La celda donde quiere armar los titulos esta vacia.

Alguien me podria decir como solucionar esto?
Gracias

Preguntas similares