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
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.