View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Corey Corey is offline
external usenet poster
 
Posts: 363
Default Change Combobox list to list more than 1 cell.value

The below code will list (conditionally) a value in the cell that is
..Offset(2, 0),
But i am trying to get it to list ALL cell values from .Offset(2, 0) to
..Offset(22,0).

How can i do this, the line highlighted is where the combobox is populated
from:

Private Sub ComboBox6_DropButtonClick()
Application.ScreenUpdating = False
'Place the References in here for the Roll Numbers and Lengths
Dim lastcell As Long
Dim myrow As Long

lastcell = workSheets("InspectionData").Cells(Rows.Count, "A").End(xlUp).Row

With ActiveWorkbook.workSheets("InspectionData")
..Select 'first thing to do with a With statement that occurs on a second
sheet
For myrow = 2 To lastcell
If .Cells(myrow, 1) < "" Then
If .Cells(myrow, 1).Offset(-1, 2).Text = ComboBox28.Text And
..Cells(myrow, 1).Offset(-1, 6).Text = ComboBox1.Text And
IsNumeric(Trim(Mid(.Cells(myrow, 1), 2))) = True Then
ComboBox6.AddItem Cells(myrow, 3).Offset(2, 0) ' <======= How do
i get this result to Display what is in .Offset(2,0) to .Offset(22,0) Ie.
The range....
End If
End If

Next
End With
End Sub


Regards


Corey....