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:
Subrutina que se ejecuta al cambiar el Combo box (incluye línea anterior al útlimo):
Gracias y saludos desde México!
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
0