Fill-in Range from UserForm

[JK]

Tom Ogilvy was kind enough to solve this question for me with the following
procedure:



I would like UserForm to allow the user to enter 1 wiget and 2 gadgets (for
example) then have my procedure list that information in a range like so:

NO ITEM
1 widget
2 gadget
3 gadget



Dim j as long, i as Long, k as Long

j = 0
for k = 1 to 4 Step 2
for i = 1 to clng(Userform1.controls("Textbox" & k).Text)
j = j + 1
activecell.offset(j-1,1).Value = j
activeCell.offset(j-1,2).Value = _
Userform1.controls("TextBox" & k + 1).Text
Next i
Next k
ActiveCell.offset(j,0).Select



Now I would like to include a TB in the UserForm to collect a price so the
WS range will appear as such:



NO ITEM PRICE
1 widget $1.00
2 gadget $2.00
3 gadget $2.00



Please advise what I must include in the procedure to create. TIA.

Jim Kobzeff

 

[Tom Ogilvy]

if you follow the same pattern so you will have 2 sets of 3 textboxes
sequentially numbered

Textbox1 - quantity
Textbox2 - name
Textbox3 - price


Textbox4 - quantity
Textbox5 - name
Textbox6 - price


Dim j as long, i as Long, k as Long

j = 0
for k = 1 to 6 Step 3
for i = 1 to clng(Userform1.controls("Textbox" & k).Text)
j = j + 1
activecell.offset(j-1,1).Value = j
activeCell.offset(j-1,2).Value = _
Userform1.controls("TextBox" & k + 1).Text
activecell.offset(j-1,3).value = _
Userforms1.controls("TextBox" & k + 2).Text
Next i
Next k
ActiveCell.offset(j,0).Select

 

[JK]

Thank you, Tom. You're a genius.
Jim Kobzeff

if you follow the same pattern so you will have 2 sets of 3 textboxes
sequentially numbered

Textbox1 - quantity
Textbox2 - name
Textbox3 - price


Textbox4 - quantity
Textbox5 - name
Textbox6 - price


Dim j as long, i as Long, k as Long

j = 0
for k = 1 to 6 Step 3
for i = 1 to clng(Userform1.controls("Textbox" & k).Text)
j = j + 1
activecell.offset(j-1,1).Value = j
activeCell.offset(j-1,2).Value = _
Userform1.controls("TextBox" & k + 1).Text
activecell.offset(j-1,3).value = _
Userforms1.controls("TextBox" & k + 2).Text
Next i
Next k
ActiveCell.offset(j,0).Select