I was wondering if it was possible to populate textboxes with a counte
value. I need to search through a column to find an ordernumber an
then populate a number of textboxes depending on how many times tha
order number matches.

Dim OrderNum As Variant
Dim Qty As Variant
Dim ItemId As Variant
Dim ItemDes As Variant

OrderNum = shtOrder.Range("B2:B100").Value
OrderNum = shtOrder.Application.WorksheetFunction.Transpose(O rderNum)

Qty = shtOrder.Range("F2:F100").Value
Qty = shtOrder.Application.WorksheetFunction.Transpose(Q ty)

ItemId = shtOrder.Range("G2:G100").Value
ItemId = shtOrder.Application.WorksheetFunction.Transpose(I temId)

ItemDes = shtOrder.Range("H2:H100").Value
ItemDes = shtOrder.Application.WorksheetFunction.Transpose(I temDes)

Dim Counter As Integer
Counter = 1

For i = 1 To UBound(OrderNum)
If OrderNum(i) = purchase.Value Then
txtQty(Counter).Value = Qty(i)
txtItem(Counter).Value = ItemId(i)
txtDes(Counter).Value = ItemDes(i)
Counter = Counter + 1
End If
Next i

'It gives my an error when i use the counter variable

thank

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