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

Textboxes on a Userform:

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

Assumes the textboxes are name
txtqty1 txtitem1 txtdes1
txtqty2 txtitem2 txtdes2
etc.

--
Regards,
Tom Ogilvy

"l1075 " wrote in message
...
I was wondering if it was possible to populate textboxes with a counter
value. I need to search through a column to find an ordernumber and
then populate a number of textboxes depending on how many times that
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

thanks


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

Works Great
Thank

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