Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Fill-in Range from UserForm
Tom Ogilvy was kind enough to solve this question for me with the following
procedu 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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Fill-in Range from UserForm
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 -- Regards, Tom Ogilvy "JK" wrote in message news:CkFTf.4984$vy.2631@trnddc01... Tom Ogilvy was kind enough to solve this question for me with the following procedu 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Fill-in Range from UserForm
Thank you, Tom. You're a genius.
Jim Kobzeff "Tom Ogilvy" wrote in message ... 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 -- Regards, Tom Ogilvy "JK" wrote in message news:CkFTf.4984$vy.2631@trnddc01... Tom Ogilvy was kind enough to solve this question for me with the following procedu 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SumIf - when I fill down the Range, Criteria & sum range changes | Excel Worksheet Functions | |||
UserForm when opening workbook will not fill screen | Excel Programming | |||
Fill-in Range from UserForm | Excel Programming | |||
How to fill a range with data from another range? | Excel Discussion (Misc queries) | |||
UserForm To A Range | Excel Programming |