Hide empty cells in this code

Hi,

I have problem,
Here is code for sorting items alphabetically but it's showing empty cells, how to modify this code to stop showing empty cells?

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
Dim i As Long, j As Long, v As Variant
Dim tmp As Variant
v = Range("E2:E1000").Value
For i = 1 To UBound(v, 1) - 1
For j = i + 1 To UBound(v, 1)
If v(i, 1) > v(j, 1) Then
tmp = v(i, 1)
v(i, 1) = v(j, 1)
v(j, 1) = tmp
End If
Next
Next
ComboBox1.List = v

I am new to VBA programming and don't know how to do this.

Thanks.

Hi JanF, try code below in a test sheet first.

Please Login or Register  to view this content.

_______________________________________________________________________________________________________________________________
1. Click on the * Add Reputation if you think someone helped you
2. Mark your thread as SOLVED when question is resolved

Alvin

This code works but it has some little problem,
I have letters sorted in this direction (this is only for test)

b
c
a
d
z

when I click on drop down button it shows

a
empty
empty
d
z

This code sorts letters but in this example it misses "b" and "c"...
I don't know where is the problem...

Oops, please change "temp" to "tmp" in the coding



_______________________________________________________________________________________________________________________________
1. Click on the * Add Reputation if you think someone helped you
2. Mark your thread as SOLVED when question is resolved

Alvin

Thanks alvin-chung, PROBLEM SOLVED :D

Thank you for the feedback, you're welcome



_______________________________________________________________________________________________________________________________
1. Click on the * Add Reputation if you think someone helped you
2. Mark your thread as SOLVED when question is resolved

Alvin