Problema con Combo-box
Tengo una utina que carga los valores de unas celdas de Excel a un Combobox, el problema que tengo es el siguiente :
El combo box se carga con los valores de las celdas de excel sin ningún problema, el drama esta en que si yo elimino un valor de las celdas mientras tengo el formulario en ejecución no se me actualiza el combobox, osea, el combo box me sige mostrando el valor que ya ha sido eliminado...
¿Como puedo "refrescar" o "actualizar el combobox ? Lo he intentado hacer, pero si actualizado la lista me agrega nuevamente los itmemes ya agregados...
Private Sub UserForm_Activate()
' Carga la lista
Dim ItemGuardado As Variant
Sheets("BD").Select
Range("A6").Select
Do While ActiveCell.Value <> ""
ItemGuardado = ActiveCell.Value
codigo.AddItem (ItemGuardado)
Selection.Offset(1, 0).Select
Loop
' Cuenta los Registros Actuales
Dim Contador As Integer
Sheets("BD").Select
Range("a6").Select
Do While ActiveCell.Value <> ""
Contador = Contador + 1
Selection.Offset(1, 0).Select
Loop
Cuenta.Value = Contador
End Sub
El combo box se carga con los valores de las celdas de excel sin ningún problema, el drama esta en que si yo elimino un valor de las celdas mientras tengo el formulario en ejecución no se me actualiza el combobox, osea, el combo box me sige mostrando el valor que ya ha sido eliminado...
¿Como puedo "refrescar" o "actualizar el combobox ? Lo he intentado hacer, pero si actualizado la lista me agrega nuevamente los itmemes ya agregados...
Private Sub UserForm_Activate()
' Carga la lista
Dim ItemGuardado As Variant
Sheets("BD").Select
Range("A6").Select
Do While ActiveCell.Value <> ""
ItemGuardado = ActiveCell.Value
codigo.AddItem (ItemGuardado)
Selection.Offset(1, 0).Select
Loop
' Cuenta los Registros Actuales
Dim Contador As Integer
Sheets("BD").Select
Range("a6").Select
Do While ActiveCell.Value <> ""
Contador = Contador + 1
Selection.Offset(1, 0).Select
Loop
Cuenta.Value = Contador
End Sub
1 Respuesta
Respuesta de bezael
1
Al repetir el código, se me acumula nuevbamente los nuevos ítemes y los antiguos, quiero limpiar los valores del combobox
grx
grx
Create un procedimiento
que seria esto en general del form
Sub Cargar_Combox()
Dim ItemGuardado As Variant
Sheets("BD").Select
Range("A6").Select
Do While ActiveCell.Value <> ""
ItemGuardado = ActiveCell.Value
codigo.AddItem (ItemGuardado)
Selection.Offset(1, 0).Select
Loop
' Cuenta los Registros Actuales
Dim Contador As Integer
Sheets("BD").Select
Range("a6").Select
Do While ActiveCell.Value <> ""
Contador = Contador + 1
Selection.Offset(1, 0).Select
Loop
Cuenta.Value = Contador
End
Luego en el evento Activate del form pones Cargar_Combox.
Cuando tengas que eliminar uno una vez eliminado pones
Combox. Clear ' esto elimina todo del combo
Cargar_Combox ' y esto vuelve a rellenarlo
y ya esta.
que seria esto en general del form
Sub Cargar_Combox()
Dim ItemGuardado As Variant
Sheets("BD").Select
Range("A6").Select
Do While ActiveCell.Value <> ""
ItemGuardado = ActiveCell.Value
codigo.AddItem (ItemGuardado)
Selection.Offset(1, 0).Select
Loop
' Cuenta los Registros Actuales
Dim Contador As Integer
Sheets("BD").Select
Range("a6").Select
Do While ActiveCell.Value <> ""
Contador = Contador + 1
Selection.Offset(1, 0).Select
Loop
Cuenta.Value = Contador
End
Luego en el evento Activate del form pones Cargar_Combox.
Cuando tengas que eliminar uno una vez eliminado pones
Combox. Clear ' esto elimina todo del combo
Cargar_Combox ' y esto vuelve a rellenarlo
y ya esta.
