Fill out combo box until empty cell

[leok3]

Hi, I need to fill out a combo box with data from a column but only until it finds an empty cell.

The code I'm using at the moment is:

For Each rngCell In rngClients
'display on the list
If rngCell <> "" Then
cboCustomerList.AddItem rngCell.Value
End If
Next rngCell

It works, but it actually is looking though all the cells, so it takes the User Form a little while to load.
Is it possible to do this using a loop but not to go though every single cell?

Thanks

 

[Jerry Sullivan]

Hello and Welcome,

You can add an Else statement that instructs the code to Exit the For...Next loop when the first empty cell is found.

For Each rngCell In rngClients
'display on the list
    If rngCell <> "" Then
        cboCustomerList.AddItem rngCell.value
    Else
      Exit For
    End If
Next rngCell

 

[leok3]

Thank you! Worked perfectly