Erroe en la ejecución
Yo tengo un combobox que al momento de seleccionar datos que este contiene se me activa un form especifico con este listbox. Cuándo selecciono por ejemplo Grandes Cliente me abre la hoja Grandes Cliente. En esa hoja tengo un botón que me ejecuta la macro nuevamente pero llego al form con el listbox y selecciono cual quiera de ellos me sale un error que me dice:
Error 1004 en la ejecución
Error en el método Sheets objeto global y el error esta en las lineas del llamado de las hojas dependiendo de la que seleccione en el listbox.
Si selecciono Grande Clientes sale el error en la linea siguiente:
Sheets("Grandes Clientes"). Select y si escojo otra sale el error en la misma linea de codigo pero de la seleccionada como decir si selecciona Medianas sale en Sheets("Mediana"). Select.
Lo raro es que eso pasa cuando la ejecuto por segunda vez
Private Sub ListBox1_Click()
If ListBox1.Text <> "" Then
Select Case ListBox1
Case "Grandes Clientes":
Unload Me
Sheets("Grandes Clientes").Select
'Application.Visible = True
Case "Medianas":
Unload Me
Sheets("Medianas").Select
'Application.Visible = True
Case "Pequeñas":
Unload Me
Sheets("Pequeñas").Select
'Application.Visible = True
Case "Microempresas":
Unload Me
Sheets("Micros").Select
'Application.Visible = True
End Select
End If
End Sub
Error 1004 en la ejecución
Error en el método Sheets objeto global y el error esta en las lineas del llamado de las hojas dependiendo de la que seleccione en el listbox.
Si selecciono Grande Clientes sale el error en la linea siguiente:
Sheets("Grandes Clientes"). Select y si escojo otra sale el error en la misma linea de codigo pero de la seleccionada como decir si selecciona Medianas sale en Sheets("Mediana"). Select.
Lo raro es que eso pasa cuando la ejecuto por segunda vez
Private Sub ListBox1_Click()
If ListBox1.Text <> "" Then
Select Case ListBox1
Case "Grandes Clientes":
Unload Me
Sheets("Grandes Clientes").Select
'Application.Visible = True
Case "Medianas":
Unload Me
Sheets("Medianas").Select
'Application.Visible = True
Case "Pequeñas":
Unload Me
Sheets("Pequeñas").Select
'Application.Visible = True
Case "Microempresas":
Unload Me
Sheets("Micros").Select
'Application.Visible = True
End Select
End If
End Sub
1 Respuesta
Respuesta de Orlando Collarte
1