Ayuda Urgente !!!

hola, DOORS !

... un archivo... funciona... en mi pc. Pero... en la intranet [...]
... un form con 3 opciones adquisicion, retiro o traslado
si yo selecciono adquisicion, me muestra la hoja que corresponde a adquisicion
pero si le doy devolver al form y selecciono por ejemplo traslado me da el siguiente error:
ERROR EN EL METODO "WORKSHEETS" DE OBJETO GLOBAL [...]
El archivo se abre desde la intranet
SI ALGUIEN ME PUEDE AYUDAR!!!!! [...]

[parece que FP ha estado 'ausente' estas ultimas horas y te ha dejado 'colgado'] :(
segun la respuesta que ofreces a su pregunta de tu consulta anterior [me parece que]...
podriamos intentar un 'acercamiento' con la siguiente alternativa:
lo 'malo'... es que tendrias que hacerlo en toda pc que vaya a abrir tu archivo desde el IE :-((

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

si estas tratando de 'correr' las macros desde el explorador de internet...
[hasta donde se] las macros no se han perdido...
[simplemente] NO son 'operables' [al menos de manera 'transparente'] fuera del entorno de la aplicacion...
la unica forma [que conozco] es 'obligar' al IE a que use una instancia de la aplicacion [excel]
1) abre MiPC [o el explorador de windows]
2) ve a herramientas -> opciones de carpeta...
3) ve al apartado de -> tipos de archivo
4) [de la lista desplegable] -> selecciona la extension .XLS [hoja de calculo de microsoft excel]
5) pulsa al boton de -> opciones avanzadas
6) DESMARCA la opcion de -> explorar en la misma ventana
7) acepta [todos] los cambios y... ¡ listo !!!
[ahora...] el internet explorer 'usara' una [nueva] instancia de la aplicacion [excel]

__ el codigo expuesto __

Private Sub CommandButton1_Click()
If OptionButton1 Then
Worksheets("Adquisición").Select
ElseIf OptionButton2 Then
Worksheets("Traslado").Select
ElseIf OptionButton3 Then
Worksheets("Retiro").Select
Else
MsgBox "Debe Seleccionar alguna opción..."
Exit Sub
End If
Unload Me
Call Mensaje_temporal
End Sub

Hola Hector!!!, Gracias por tu pronta respuesta, efectivamente lo probe en mi
compu y si funciona bien : ), el problema es que tendría que hacer lo mismo
en 1800 máquinas mas : (, no hay algun otro metodo de poder hacer esto en
codigo vba ?,

Gracias por tu siempre valiosa colaboración

"Héctor Miguel" wrote:

hola, DOORS !

> ... un archivo... funciona... en mi pc. Pero... en la intranet [...]
> ... un form con 3 opciones adquisicion, retiro o traslado
> si yo selecciono adquisicion, me muestra la hoja que corresponde a adquisicion
> pero si le doy devolver al form y selecciono por ejemplo traslado me da el siguiente error:
> ERROR EN EL METODO "WORKSHEETS" DE OBJETO GLOBAL [...]
> El archivo se abre desde la intranet
> SI ALGUIEN ME PUEDE AYUDAR!!!!! [...]

[parece que FP ha estado 'ausente' estas ultimas horas y te ha dejado 'colgado'] :(
segun la respuesta que ofreces a su pregunta de tu consulta anterior [me parece que]...
podriamos intentar un 'acercamiento' con la siguiente alternativa:
lo 'malo'... es que tendrias que hacerlo en toda pc que vaya a abrir tu archivo desde el IE :-((

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

si estas tratando de 'correr' las macros desde el explorador de internet...
[hasta donde se] las macros no se han perdido...
[simplemente] NO son 'operables' [al menos de manera 'transparente'] fuera del entorno de la aplicacion...
la unica forma [que conozco] es 'obligar' al IE a que use una instancia de la aplicacion [excel]
1) abre MiPC [o el explorador de windows]
2) ve a herramientas -> opciones de carpeta...
3) ve al apartado de -> tipos de archivo
4) [de la lista desplegable] -> selecciona la extension .XLS [hoja de calculo de microsoft excel]
5) pulsa al boton de -> opciones avanzadas
6) DESMARCA la opcion de -> explorar en la misma ventana
7) acepta [todos] los cambios y... ¡ listo !!!
[ahora...] el internet explorer 'usara' una [nueva] instancia de la aplicacion [excel]

__ el codigo expuesto __
> Private Sub CommandButton1_Click()
> If OptionButton1 Then
> Worksheets("Adquisición").Select
> ElseIf OptionButton2 Then
> Worksheets("Traslado").Select
> ElseIf OptionButton3 Then
> Worksheets("Retiro").Select
> Else
> MsgBox "Debe Seleccionar alguna opción..."
> Exit Sub
> End If
> Unload Me
> Call Mensaje_temporal
> End Sub

hola, DOORS !

... funciona bien : ), el problema es que tendria que hacer lo mismo en 1800 maquinas mas : (
no hay algun otro metodo de poder hacer esto en codigo vba ?

[si las macros funcionan al abrir el libro desde el IE]... -?-
prueba con las siguientes lineas -> en el modulo de codigo del libro [ThisWorkbook]

Private Sub Workbook_Open()
With Application
.DisplayAlerts = False
.IgnoreRemoteRequests = True
.DisplayAlerts = True
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.IgnoreRemoteRequests = False
End Sub

comentas ?
saludos,
hector.

Hola Hector!!!, no me funciona, da el mismo error : (

"Héctor Miguel" wrote:

hola, DOORS !

> ... funciona bien : ), el problema es que tendria que hacer lo mismo en 1800 maquinas mas : (
> no hay algun otro metodo de poder hacer esto en codigo vba ?

[si las macros funcionan al abrir el libro desde el IE]... -?-
prueba con las siguientes lineas -> en el modulo de codigo del libro [ThisWorkbook]

Private Sub Workbook_Open()
With Application
.DisplayAlerts = False
.IgnoreRemoteRequests = True
.DisplayAlerts = True
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.IgnoreRemoteRequests = False
End Sub

comentas ?
saludos,
hector.

hola, DOORS !

... no me funciona, da el mismo error : (

como te decia...

[si las macros funcionan al abrir el libro desde el IE]... -?-

[si a fin de cuentas las macros no son 'operables']...
-> por que no pruebas cambiando el formulario
-> por hipervinculos que hagan los 'saltos' a la hoja correspondiente -?-

puedes usar [desde] menu / insertar / hipervinculo [que presenta un dialogo bastante amigable]
o usar la funcion de hoja de calculo: =hipervinculo(...)
[creo que te sera de mas utilidad esta segunda alternativa... incluso:
encuentra la forma que mejor acomode a tus necesidades en la [mas que excel...ente] pagina de David McRitchie
-> Coding a link address and friendly name using HYPERLINK Worksheet function
http://www.mvps.org/dmcritchie/exce...#hyperlink

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.