Visual Basic para Aplicaciones - Error &H8000FFFF(-2147418113)

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Jorge

Error &H8000FFFF(-2147418113)

Publicado por Jorge (2 intervenciones) el 27/02/2015 21:50:00
Hola a todos!. Estoy escribiendo una aplicación para Excel VBA 2013 y estoy utilizando UserForms con Multipages para mi app.

Resulta que en una pestaña tengo un listbox que para ser activado requiere que un combobox cambie su estado original.
He aislado el problema y resulta que al cambiar la propiedad locked del listbox a Falso el sistema provoca esta falla masiva.

He leido en foros y hay gente que reporta problemas cuando existen multipages y cambios en las propiedades de algunos objetos.

Intenté pasar la instrucción que provoca la falla a una función fuera del userform, pero aún así sigue existiendo la falla.

Escribo el código aquí abajo.

Instrucción que provoca fallo en Excel:

1
Cotizaciones_y_obras.ListBox3.Locked = False

Subrutina que se ejecuta al cambiar el Combo box (incluye línea anterior al útlimo):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Estatus_Combo_box_Change()
    Dim indice_cotizacion As Integer
    Dim indice_obra As Integer
    flag_avance_indice_cotizacion = F
    flag_avance_indice_obra = F
 
    indice_cotizacion = Sheets("Contadores_Folios").Range("B2").Value
    indice_obra = Sheets("Contadores_Folios").Range("C2").Value
 
 
    If Estatus_Combo_box.Text = "Esperando Aprobacion" And Sheets("Banderas Sistema").Range("A2").Value <> "E" Then
        flag_avance_indice_cotizacion = T
        Folio_Cotizacion.Text = "CO" + CStr(indice_cotizacion + 1)
        Folio_Obra.Text = ""
            Else:
        If Estatus_Combo_box.Text = "Directo a Obra" And Sheets("Banderas Sistema").Range("A2").Value <> "E" Then
            flag_avance_indice_obra = T
            Folio_Obra.Text = "OB" + CStr(indice_obra + 1)
            Folio_Cotizacion.Text = ""
        End If
    End If
 
    Call bloquear_lista_se
 
  Cotizaciones_y_obras.ListBox3.Locked = False
 
End Sub

Gracias y saludos desde México!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder