Pregunta sobre error 9

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

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", o algun Error, etc. obtendras el mensaje 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

que es mes.value?
donde esta asignado?
donde lo declaras?

saludos


Heich
-
cadena= _
"" : _
for a=0 to 9: cadena=replace(cadena,a,""): _
next a: ?cadena
-
Daria todo lo que se por saber la mitad de lo que ignoro.
-
NOTA: este mensaje se proporciona TAL CUAL.Sin ningun derecho o garantia
Guia de Netiquette:
http://www.geocities.com/heich_prog...uette.html

Siempre que tengo una duda, le pregunto primero a San Google
http://groups.google.com/groups?hl=...blic.es.vb
-

In news:04cb01c4f285$368c6800$,
German typed:
: 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

Bingo!

Este seguramente es tu problema (asumiendo q lo demas esta bien - ya q no
tenemos prueba de lo contrario):

Workbooks("datos")

deberia ser:

Workbooks("datos.xls")

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

German,

Para evitar este tipo de error yo transformaria tu codigo en algo como lo de
abajo (ojo - no lo he probado)

Saludos,
KL

'-Inicio Codigo-
Sub test()
Dim rutaMiLibro As String
Dim nombreMiLibro As String

tiempoinicial = Time
rutaMiLibro = "c:\estadistica\planillas\datos.xls"
nombreMiLibro = Dir(miLibro)

'Prueba si existe el libro.
If nombreMiLibro <> "" Then
Workbooks.Open rutaMiLibro
With Workbooks(nombreMiLibro)
With .Sheets("Principal")
'Arma los t?tulos
.Range("AC3") = "Mes de " & Mes.Value & " de 2004."
.Range("AC4") = mesanterior(Mes.Value) & " 2003 - " &
Mes.Value & " 2004"
End With
.Save
End If
End Sub
'-Fin Codigo-

"KL" wrote in message
news:%

Bingo!

Este seguramente es tu problema (asumiendo q lo demas esta bien - ya q no
tenemos prueba de lo contrario):

Workbooks("datos")

deberia ser:

Workbooks("datos.xls")

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