ComboBox Dinamico (Userform)

Hola amigos!
Se conoce que existe una forma de llenar listas desplegables de modo dinamico, algo relacionado lo vimos en este tema: Listas Desplegables sin Desref y con Indice
Pues aqui un poco similar se trata este post y es llenar ComboBox desde un userform y para los que aun desconecen como hacerlo, aqui les adjunto un ejemplo, en el cual veran dos tipos, como importante, si exitieran espacios en blanco en la lista de datos (es decir celdas vacias) con codigo VBA se supera ese inconveniente, llenando sin espacios el ComboBox, automaticamente...



No es dificil, ni nada complicado, puesto que basta crear un bucle, para marcar el rango usado, condicionarlo y listo

Aqui los dos codigos:

Private Sub ComboBox1_enter()
    Me.ComboBox1.Clear
    For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(x, 1) <> Empty Then ComboBox1.AddItem Range("A" & x).Value
    Next
End Sub

Private Sub ComboBox2_enter()
    Me.ComboBox2.Clear
    For Each celda In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If celda <> Empty Then ComboBox2.AddItem celda.Value
    Next
End Sub

Y les adjunto el archivo para pruebas/revision/analisis/comentarios

Espero les guste o sea de utilidad

Saludos desde Honduras