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

Preguntas similare

Leer las respuestas

#6 German
04/01/2005 - 20:23 | Informe spam
Ante todo Gracias por contestarme.
Ahora te cuento, esto la verdad que no se como esta
desarrollado, ya que el que lo hizo no esta mas y necesito
que este andando urgente.
Si no te molesta te pego un pedazo mas de codigo si tenes
tiempo para darme una manito te lo agradezco

Private Sub Boton1_Click()

If Mes.Value = ActiveWorkbook.ActiveSheet.Range("AC1") Or
Mes.Value = ActiveWorkbook.ActiveSheet.Range("AC2") Then
tiempoinicial = Time
Workbooks.Open "c:\estadistica\planillas\datos.xls"
'Arma los títulos
Workbooks("datos").Worksheets("Principal").Range
("AC3").Value = 2004
Workbooks("datos").Sheets("Principal").Range("AC4") =
mesanterior(Mes.Value) & " 2003 - " & Mes.Value & " 2004"
Workbooks("datos").Save

datoslamatanza

'Ejecución procedimiento catorcemeses
catorcemeses
evol

'***************************************************
'Cambia los meses
Workbooks("principal").Sheets("principal").Range
("AC1") = Mes.Value
Workbooks("principal").Sheets("principal").Range
("AC2") = messiguiente(Mes.Value)

Workbooks("principal").Sheets("Principal").Activate
Range("A1").Activate
Workbooks("Principal").Save

ordena
tiempofinal = Time

MsgBox ("Proceso Terminado. Tiempo transcurrido: " &
Left(Str(tiempofinal - tiempoinicial), 5) & " Minutos.")

'HABILITA PARA GRAFICAR
Optionlamatanza.Enabled = True
Optiongenerales.Enabled = True
Optionevol.Enabled = True
CommandButton1.Enabled = True
CommandButton3.Enabled = True

Else
MsgBox ("El Mes Debe Ser: " &
ActiveWorkbook.ActiveSheet.Range("AC1") & " o " &
ActiveWorkbook.ActiveSheet.Range("AC2"))
End If

End Sub


Mostrar la cita
por lo cual no me
Mostrar la cita
embargo, por lo q puedo
Mostrar la cita
problema esta (casi
Mostrar la cita
matriz:
Mostrar la cita
corresponde a ningun miembro
Mostrar la cita
Mes.Value devuelve
Mostrar la cita
de mencionar.
Mostrar la cita
diagnostico
Mostrar la cita
#7 KL
04/01/2005 - 20:27 | Informe spam
German,

?Ya has visto mis dos ultimos postings en este hilo? En primer lugar tienes
q rectificar esto:

Workbooks("datos")

deberia ser

Workbooks("datos.xls")

Si sigue dando error miraremos si hay mas problemas en el codigo, ?te
parece?

Saludos,
KL

"German" wrote in message
news:00a401c4f292$e50c92d0$
Ante todo Gracias por contestarme.
Ahora te cuento, esto la verdad que no se como esta
desarrollado, ya que el que lo hizo no esta mas y necesito
que este andando urgente.
Si no te molesta te pego un pedazo mas de codigo si tenes
tiempo para darme una manito te lo agradezco

Private Sub Boton1_Click()

If Mes.Value = ActiveWorkbook.ActiveSheet.Range("AC1") Or
Mes.Value = ActiveWorkbook.ActiveSheet.Range("AC2") Then
tiempoinicial = Time
Workbooks.Open "c:\estadistica\planillas\datos.xls"
'Arma los títulos
Workbooks("datos").Worksheets("Principal").Range
("AC3").Value = 2004
Workbooks("datos").Sheets("Principal").Range("AC4") mesanterior(Mes.Value) & " 2003 - " & Mes.Value & " 2004"
Workbooks("datos").Save

datoslamatanza

'Ejecución procedimiento catorcemeses
catorcemeses
evol

'***************************************************
'Cambia los meses
Workbooks("principal").Sheets("principal").Range
("AC1") = Mes.Value
Workbooks("principal").Sheets("principal").Range
("AC2") = messiguiente(Mes.Value)

Workbooks("principal").Sheets("Principal").Activate
Range("A1").Activate
Workbooks("Principal").Save

ordena
tiempofinal = Time

MsgBox ("Proceso Terminado. Tiempo transcurrido: " &
Left(Str(tiempofinal - tiempoinicial), 5) & " Minutos.")

'HABILITA PARA GRAFICAR
Optionlamatanza.Enabled = True
Optiongenerales.Enabled = True
Optionevol.Enabled = True
CommandButton1.Enabled = True
CommandButton3.Enabled = True

Else
MsgBox ("El Mes Debe Ser: " &
ActiveWorkbook.ActiveSheet.Range("AC1") & " o " &
ActiveWorkbook.ActiveSheet.Range("AC2"))
End If

End Sub


Mostrar la cita
por lo cual no me
Mostrar la cita
embargo, por lo q puedo
Mostrar la cita
problema esta (casi
Mostrar la cita
matriz:
Mostrar la cita
corresponde a ningun miembro
Mostrar la cita
Mes.Value devuelve
Mostrar la cita
de mencionar.
Mostrar la cita
diagnostico
Mostrar la cita
#8 German
04/01/2005 - 21:38 | Informe spam
Si, asi es, el problema era que para acceder al WorkBooks
lo podes hacer con el indice o con el nombre, pero el
nombre debe ser con extension y todo.
Justo que habia encontrado el error leo tu respuesta.
Te agradexo tu ayuda.

Saludos

Mostrar la cita
esta bien - ya q no
Mostrar la cita
Ads by Google
Search Busqueda sugerida