Error 9 en tiempo de ejecucion

ejecutalo paso a paso y encontraras la linea que produce el error.


"Javier Avila" escribió en el mensaje
news:
Mostrar la cita

Hola a todos, tengo el siguiente codigo:

Dim TC As String
Dim SI As String

Private Sub Workbook_Open()
Dim Ruta As String, Hoja As String, Fecha As String, TC As String, SI As
String
Ruta = "\\isa\Cuentas Corporativas\Control\cajas diarias\"
Hoja = "CC"
Fecha = Format(Date, "_mmm-dd-yyyy")
With Me.Worksheets(CC)
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,
Password:="oki", UserInterfaceOnly:=True
TC = InputBox("Porfavor, ingrese la TC de hoy", "Tasa de Cambio")
SI = InputBox("Porfavor, ingrese su saldo incial", "Saldo Inicial")
.Range("B4") = TC
.Range("K41") = SI
.Range("b3") = Now()
End With
Me.Sheets.Copy
'Me.Sheets(Array("hoja1", "hoja2")).Copy
ActiveWorkbook.SaveAs Filename:=Ruta & Hoja & Fecha,
FileFormat:=xlWorkbookNormal
Me.Close False
End Sub

y me sale un error 9 en tiempo de ejecucion? alguna sugerencia????????

Hola chicos,

Lo primero que salta ala vista es que la variable CC en la instruccion
"Me.Worksheets(CC)" no esta definida. Si la idea era usar la variable Hoja,
entonces una de dos:

Me.Worksheets(Hoja)

o bien

Me.Worksheets("CC")

Para prevenir este tipo de errores te recomiendo que uses la instruccion
"Option Explicit" al principio de cada modulo lo cual te resaltara todas las
cadenas de texto que no sean comandos/funciones/operadores VBA y no esten
definidas como variables a la hora de compilar el codigo. Para que se te
ponga Option Explicit automaticamente, desde el Editor VBA puedes ir al menu
Herramientas>Opciones... y en la primera pestana marcar la opcion "Exigir
declaracion de variables" o algo parecido.

Saludos,
KL


"santiago fernandez lopez" wrote in message
news:
Mostrar la cita

ejecutalo paso a paso y encontraras la linea que produce el error.


"Javier Avila" escribió en el mensaje
news:
Mostrar la cita

Hola a todos, tengo el siguiente codigo:

Dim TC As String
Dim SI As String

Private Sub Workbook_Open()
Dim Ruta As String, Hoja As String, Fecha As String, TC As String, SI As
String
Ruta = "\\isa\Cuentas Corporativas\Control\cajas diarias\"
Hoja = "CC"
Fecha = Format(Date, "_mmm-dd-yyyy")
With Me.Worksheets(CC)
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,
Password:="oki", UserInterfaceOnly:=True
TC = InputBox("Porfavor, ingrese la TC de hoy", "Tasa de Cambio")
SI = InputBox("Porfavor, ingrese su saldo incial", "Saldo Inicial")
.Range("B4") = TC
.Range("K41") = SI
.Range("b3") = Now()
End With
Me.Sheets.Copy
'Me.Sheets(Array("hoja1", "hoja2")).Copy
ActiveWorkbook.SaveAs Filename:=Ruta & Hoja & Fecha,
FileFormat:=xlWorkbookNormal
Me.Close False
End Sub

y me sale un error 9 en tiempo de ejecucion? alguna sugerencia????????

BIEN!!!!!

era eso, la verdad no se nada sobre VBA, solo algunas cosas demasiado obvias
(para mi) asi que les agradezco la ayuda, no me iba a dar cuenta.

Javier.


"KL" escribió en el mensaje
news:
Mostrar la cita

Hola chicos,

Lo primero que salta ala vista es que la variable CC en la instruccion
"Me.Worksheets(CC)" no esta definida. Si la idea era usar la variable
Hoja, entonces una de dos:

Me.Worksheets(Hoja)

o bien

Me.Worksheets("CC")

Para prevenir este tipo de errores te recomiendo que uses la instruccion
"Option Explicit" al principio de cada modulo lo cual te resaltara todas
las cadenas de texto que no sean comandos/funciones/operadores VBA y no
esten definidas como variables a la hora de compilar el codigo. Para que
se te ponga Option Explicit automaticamente, desde el Editor VBA puedes ir
al menu Herramientas>Opciones... y en la primera pestana marcar la opcion
"Exigir declaracion de variables" o algo parecido.

Saludos,
KL


"santiago fernandez lopez" wrote in message
news:
Mostrar la cita

ejecutalo paso a paso y encontraras la linea que produce el error.


"Javier Avila" escribió en el mensaje
news:
Mostrar la cita

Hola a todos, tengo el siguiente codigo:

Dim TC As String
Dim SI As String

Private Sub Workbook_Open()
Dim Ruta As String, Hoja As String, Fecha As String, TC As String, SI
As String
Ruta = "\\isa\Cuentas Corporativas\Control\cajas diarias\"
Hoja = "CC"
Fecha = Format(Date, "_mmm-dd-yyyy")
With Me.Worksheets(CC)
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,
Password:="oki", UserInterfaceOnly:=True
TC = InputBox("Porfavor, ingrese la TC de hoy", "Tasa de Cambio")
SI = InputBox("Porfavor, ingrese su saldo incial", "Saldo Inicial")
.Range("B4") = TC
.Range("K41") = SI
.Range("b3") = Now()
End With
Me.Sheets.Copy
'Me.Sheets(Array("hoja1", "hoja2")).Copy
ActiveWorkbook.SaveAs Filename:=Ruta & Hoja & Fecha,
FileFormat:=xlWorkbookNormal
Me.Close False
End Sub

y me sale un error 9 en tiempo de ejecucion? alguna sugerencia????????

hola, chicos !

solo algun comentario 'marginal' en relacion con el uso de la instruccion 'Option Explicit'...

1) efectivamente, previene/avisa/evita/... el uso de variables que no hayan sido previamente declaradas Y asignadas
si se encuentra alguna, ni siquiera te deja 'salir' del archivo [hasta que lo corrijas u obligues a omitir la depuracion]

2) si se llegaran a correr 'suficientes' compilaciones/depuraciones de codigo [en dise#o y/o en ejecucion]
podria alcanzare una de las causas [posibles entre otras] del 'crecimiento' en tama#o de archivos
[ademas de la posibilidad de alcanzar -tambien- un 'cierto grado de corrupcion' en ese archivo] :-(

3) es una 'sana' opcion [para mi gusto, 'solamente'] durante el periodo de pruebas de los codigos y una vez 'probados'...
[la sugerencia general es] copiar todos los objetos [hojas/modulos/etc.] a un libro nuevo [ya 'depurado]

saludos,
hector.