Error de automatización

29/07/2005 - 18:38 por José A. Castrejón | Informe spam
Buenos dias grupo, estoy teniendo un problema con una aplicavción que estoy
haciendo.
El error surge de forma aleatoria, hay ocasiones que sucede, otras no, hay
ocasiones en que al abrir la aplicacion y presionar un boton surge el error
otras veces no. varia mucho el error es
-2147417848(80010108) en tiempo de ejecucion. Error de automatización
en otras ocasiones surge un error que dice Fallo en el metodo Select
y me marca la linea de codigo siguiente :

PRIMER BOTON

Application.ScreenUpdating = False
Sheets("CONTROL").Visible = True
Sheets("ACUMULADOS").Visible = True
Sheets("DIARIO").Visible = True
Sheets("CONTROL").Select
If Sheets("CONTROL").Cells(17, 2) = 0 Then
MsgBox Prompt:="No hay mesas ABIERTAS !", _
Buttons:=vbCritical, _
Title:="Sin Mesas"
Sheets("INICIO").Select
Sheets("CONTROL").Visible = xlSheetVeryHidden
Sheets("ACUMULADOS").Visible = xlSheetVeryHidden
Sheets("DIARIO").Visible = xlSheetVeryHidden
Else
Unload MenuInicial
Load CierraMesas ERROR AQUI
CierraMesas.Show


Y cuando no presenta el error sigue aqui

Private Sub UserForm_Initialize()

Sheets("CONTROL").Visible = True
Sheets("INICIO").Select
Application.ScreenUpdating = True
Dim celda As Range, Fila As Integer

With Worksheets("CONTROL")
' If .[A22].AutoFilter Then .[A22].AutoFilter
.Range(.[A22], .[a65536].End(xlUp)).AutoFilter Field:=3,
Criteria1:="Ocupada"

For Each celda In .Range(.[A22],
.[a65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
ListBox1.AddItem
ListBox1.List(Fila, 0) = celda.Offset(, 0)
ListBox1.List(Fila, 1) = celda.Offset(, 1)
ListBox1.List(Fila, 2) = celda.Offset(, 2)
ListBox1.List(Fila, 3) = celda.Offset(, 3)
ListBox1.List(Fila, 4) = Format(celda.Offset(, 4), "hh:mm")
Fila = Fila + 1
Next
' .[A22].AutoFilter
End With
End Sub

La parte de Autofilter ahora la tengo detenida pues aqui de repente me
enviava un error, deje puestos los filtros en la hoja "CONTROL".
Realmente ya busque por todos lados, pero no se que sucede.
Tambien desinstale excel y sus complementos, y lo volvi a instalar, cuando
sucede este error (El primero), y quiero salir de excel, detengo la
aplicacion pero excel no me cierra y se queda congelado. Esto no me pasa con
otros archivos que contienen tambien macros
Gracias por su ayuda
 

Leer las respuestas

#1 Héctor Miguel
29/07/2005 - 20:00 | Informe spam
hola, José !

... problema con una aplicavcion... error... de forma aleatoria, hay ocasiones que sucede, otras no
... el error es -2147417848 (80010108) en tiempo de ejecucion. Error de automatizacion
... otras ocasiones surge un error que dice Fallo en el metodo Select y me marca la linea de codigo siguiente [...]
Else
Unload MenuInicial
Load CierraMesas ERROR AQUI
CierraMesas.Show
[...]
... ya busque por todos lados, pero no se que sucede... desinstale excel y sus complementos, y lo volvi a instalar [...]



[hasta donde se]... 'basicamente'... los errores '800xxxx' o '-2147xxxx'... significan que...
-> ocurrio una llamada a un 'proveedor/servidor/objeto/...' que NO estaba 'disponible/visible/...' [al menos en 'ese' momento]
-> [probablemente] cuando usas la instruccion 'Load CierraMesas'... el formulario 'a cargar' YA estaba 'visible' -?-
en ocasiones es preferible usar 'simplemente' la instruccion '.Show' [que se 'encarga' -tambien- de 'cargarlo' -en memoria-]
sobre todo... si 'acostumbras' usar instrucciones para formularios del tipo 'Hide' en lugar de 'Unload' -?-
-> encontraras informacion 'inicial' en: http://support.microsoft.com/defaul...-us;186063

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

Preguntas similares