Repeticion de contenido en ComboBox

2 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Repeticion de contenido en ComboBox

Hola amigos, nuevamente con un problema que no se resolver a pesar de lo haber tentado
Macro en UserForm_Initialize
[code]'** SEARCH COMBOBOX  LLena el comboBox
ComboBox1.AddItem "Nombre"
ComboBox1.AddItem "Compañía"
ComboBox1.AddItem "Ciudad"
ComboBox1.AddItem "Teléfono"
'********************************************** [/code]
 
Macro en CommandButton4_Click
[code]Private Sub CommandButton4_Click() 'CLEAR BUTTON
Dim del As Control
    For Each del In UserForm1.Controls
        If TypeName(del) = "TextBox" Or TypeName(del) = "ComboBox" Then
            del.Text = ""
        ElseIf TypeName(del) = "ListBox" Then
            del.Value = ""
      
        End If
    Next del
    Call Main 'Progress Bar
TextBox14.Value = ListBox1.ListCount
Label15.Caption = ""
UserForm_Initialize 'AQUI ES DONDE ESTA MI PROBLEMA
End Sub[/code]
Cuando piso el Botón CommandButton4 se me repite el contenido en el ComboBox1, porque activa o ejecuta el procedimiento del UserForm_Initialize
¿Cómo hacer para que no se repita el lleno al combobox1?
Trate colocando antes de '** SEARCH COMBOBOX colocar ComboBox = ""  NO RESULTO
Con el evento ComboBox1_Enter PERO NO ES EL EVENTO ADECUADO
No se como evitar la repetición cada ves que piso el Botón CommandButton4, es decir, cada ves que piso CommandButton4, se inicia el evento UserForm_Initialize

No se trata de combobox1 = "" o también ComboBox1.Clear para limpiar el texto que presente, si para eliminar (limpiar) todos sus ítems que presenta al pisar la pestaña (flecha) del su lado derecho

 

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 7 horas 51 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Antes de volver a llamar al

Antes de volver a llamar al procedimiento UserForm_Initialize, puedes comprobar si ya hay elementos en el combobox, y si tienes elementos no hace falta que lo cargues de nuevo

por ejemplo, comprueba si hay elementos en la lista con ListCount

If ComboBox1.ListCount=0 then

   UserForm_Initialize 'AQUI ES DONDE ESTA MI PROBLEMA

End If

 

------
Ya sé Excel, pero necesito más.