Jump to content

Eliminar primer dato del ComboBox


JoaoM

Recommended Posts

Posted

Feliz Navidad para toda la comunidad

Despues que finalmente iba a llenar este libro con datos, se me presento un dilema (para mi).

Cuando me proponia a Eliminar todo dato existente en la hoja2 ("Datos") para llenarla definitivamente, procedi a:

Procedimiento: Marco el OptionBotton Eliminar, selecciono el 1º dato de la lista en el ComboBox, apreto el boton con el caption Eliminar y mi surpresa, me dice; Elija una opcion de la lista desplegable.

Si selecciono el 2º de la lista Si funciona bien pero al selecconar el 1º NO.

He dado vueltas al evento Private Sub Eliminar_Click() (creo ser por aqui) cambiando algunas cositas pero no he sido capaz de corrigir el fallo.

Los DEMAS eventos TODOS, funcionan a perfeccion.

podria recibir vuestra ayuda a la resolucion del fallo? GRACIAS

El codigo

Private Sub Eliminar_Click()  'procedimiento Eliminar (linea) producto SIN salir de la hoja1
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.EnableCancelKey = xlDisabled

If ComboBox1.ListIndex > 0 Then
'Mensage de Información
mensage = MsgBox(" CUIDADO ¿vá a ELIMINAR el contacto " & ComboBox1.List(ComboBox1.ListIndex) & vbCrLf & vbCrLf & _
"Imposible de recuperar después que presione el botón ELIMINAR, responda," & vbCrLf & vbCrLf & _
" ELIMINAR ¿SI o NO?", vbCritical + vbYesNo + vbDefaultButton2, " ELIMINAR PRODUCTO")
If mensage = vbNo Then
Call ButonLimpia_Click 'Si respondes NO limpia los objetos del tablero
Exit Sub 'y sale
'si dices SI, sigue el proceso y limpia tablero
Else
If mensage = vbYes Then
Application.ScreenUpdating = False 'instrucción que determina no verse los brincos o actualizaciones de pantalla _
que se realicen dentro de la aplicación.
Application.EnableCancelKey = xlDisabled 'Evitar que usuario presione control + pausa, interrumpiendo la macro mientras la hoja está desprotegida
Application.EnableEvents = False
If ComboBox1.ListIndex < 0 Then
Exit Sub
Else
y = ComboBox1.ListIndex + 2
Sheets("Datos").Range("A" & y).EntireRow.Delete
ComboBox1.Clear 'Limpia el ComboBox para recibir nuevos datos
'El ComboBox1 recibe los nuevos datos editados
For x = 2 To Sheets("Datos").Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem Sheets("Datos").Range("A" & x)
Next x
End If
Application.EnableCancelKey = xlInterrupt 'Vuelve a activar las KEYs que evitan que usuario presione control + pausa
'' ActiveSheet.Protect "By Jot@" 'Protege nuevamente la hoja para no ingresar datos
End If 'este
End If
Call ButonLimpia_Click 'Hace limpiesa a los objetos del tablero
Application.ScreenUpdating = True 'instrucción que determina volver a la normalidad la ejecucion de codigo que tenga que ver con pantalla y hojas
Application.EnableEvents = True
Else
'Si no hay nada selecionado para eliminar, manda mensage
MsgBox "Elija una opcion de la lista desplegable", vbExclamation + vbOKOnly, "Atención"
End If
End Sub[/CODE]

Adjunto archivo

Control Inventario_construir.part1.rar

Control Inventario_construir.part2.rar

Posted

Sustituye:

If ComboBox1.ListIndex > 0 Then[/CODE]

por

[CODE]If Not ComboBox1.ListIndex < 0 Then[/CODE]

El indice de un [i][b]Listbox/Combobox[/b][/i] empieza desde cero.

Posted

Estaba casi seguro que era esa linea, pues me dedique largo rato en hacerle cambios y cambiarla de puesto sin resultado, le cambiaba yo el signo > por < el 0 por 1 y por2, fuy tambien mas abajo y nada logre. SE VE QUE DE COODIGO YOOOO, NANAI NANAI.

Lo que es mi ocupacion, leer, libros tecnicos, dedicarme a corrigir detalles, pensar de donde puede venir la falla, aplicar lo tecnico y la pratica aprendida y leida; pues me ocupo en mecánica pesada (maquinaria caterpillar) y eso ocupa casi el tiempo por completo, ademas con mis 65, mi mente esta un poco desfrenada ya.

Macro, tu que siempre las inventas, ¿no tendras por tus arcas algun diseño, algop pensado para crear un freno para el almanaque? pues este condenado almanaque no me para de correr jejejejejjejej.

Gracias Macro Antonio y si algo puedes hacer de la anterior pregunta, avisame rapido

Como curiosidad te pido una aclaratoria sobre lo siguiente

En el evento Editar, no tiene esa linea pero si esta If ComboBox1.ListIndex < 0 Then ANTES DEL MENSAGE de advertencia y si funciona a perfeccion

¿cual la razon para tal cambio? pues tanto para Eliminar como para Editar, se tiene que usa rel MISMO ComboBox para seleccionar el 1º dato

Posted

Cuando el índice de un control Listbox/Combobox es = -1, significa que no hay ningún elemento seleccionado, por tanto no sabes que elemento se quiere editar o eliminar, de hecho lo mas habitual debería ser:


If ComboBox1.ListIndex = -1 Then

MsgBox "Debe Vd. seleccionar un elemento del cuadro combinado"
Exit Sub

End If


[/CODE]

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy