Dim CellQuanValue
Dim CellDesValue
Dim ItemId = some id value
Counter = 1
Dim ItemList As Variant

ItemList = shtItemId.Range("A2:A100").Value
ItemList = shtItemId.Application.WorksheetFunction.Transpose( ItemList)
For i = 1 To UBound(ItemList)
If ItemList(i) = ItemId Then
Range("A2:A100")(i).Activate

Do
CellQuanValue = ActiveCell.Offset(0, Counter)
Me.Controls("txtQty" & Counter) = CellQuanValue
CellDesValue = ActiveCell.Offset(0, Counter+1)
Me.Controls("txtDes" & Counter) = CellDesValue
Counter = Counter + 1
While not isempty(activeCell.offset(0,counter))
Exit For ' a match has been made, on reason to keep looking
End If
Next i

Would be a guess at What you want.

--
Regards,
Tom Ogilvy


"l1075 " wrote in message
...
I have a macro in which the first column of the sheet is searched for a
matching itemID. Then from there I want populate a series of textboxes
located in the row with the matching itemID. The length of the rows
vary and I am trying to implement my code to
read until a blank cell

here is my code so far
Dim CellQuanValue
Dim CellDesValue
Dim ItemId = some id value
Counter = 1
Dim ItemList As Variant

ItemList = shtItemId.Range("A2:A100").Value
ItemList = shtItemId.Application.WorksheetFunction.Transpose( ItemList)
For i = 1 To UBound(ItemList)
If ItemList(i) = ItemId Then
'Set that cell as active cell???
Do
CellQuanValue = ActiveCell.Offset(0, Counter)
Me.Controls("txtQty" & Counter) = CellQuanValue
CellDesValue = ActiveCell.Offset(0, Counter+1)
Me.Controls("txtDes" & Counter) = CellDesValue
Counter = Counter + 1
'UntilNextCellIs Empty???
End If
Next i

Is there is a way to declare that cell as an active cell or an easier
way to to do this?

thanks


---
Message posted from http://www.ExcelForum.com/