Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop Edit
The below code looks for values in the specified range and
adds that value to the listbox. What I would like is for the code to skip over column Z(not add the value to the list box) even if there is a value in that column in that row. How would I do this? Also I want the code to not add a value to the listbox if it is is equal to "test". Private Sub UserForm_Initialize() Dim Rng As Range With ListBox1 'Or With ComboBox1 .ColumnCount = 1 For Each Rng In Range("A4:AB4").Cells If Rng.Text < "" Then .AddItem Rng.Text End If Next Rng End With End Sub Thanx, Todd |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loop Edit
try
if rng.column <26 and Rng.Text < "" -- Don Guillett SalesAid Software "Todd Huttenstine" wrote in message ... The below code looks for values in the specified range and adds that value to the listbox. What I would like is for the code to skip over column Z(not add the value to the list box) even if there is a value in that column in that row. How would I do this? Also I want the code to not add a value to the listbox if it is is equal to "test". Private Sub UserForm_Initialize() Dim Rng As Range With ListBox1 'Or With ComboBox1 .ColumnCount = 1 For Each Rng In Range("A4:AB4").Cells If Rng.Text < "" Then .AddItem Rng.Text End If Next Rng End With End Sub Thanx, Todd |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find loop doesn't loop | Excel Discussion (Misc queries) | |||
Loop ? | Excel Discussion (Misc queries) | |||
Loop | Excel Discussion (Misc queries) | |||
Edit this macro code to loop and end | Excel Discussion (Misc queries) | |||
Why can't I edit my excel document? Edit buttons shaded. | New Users to Excel |