Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sending user selected daa from cmblistbx to sheets of destination
Hello,
I have a userform which will be filled out by user. (PlantForm192) it has a frame box with controls inside. among those controls are three cmbolistboxes Named respectively..PlntCmbBx1, PlntCmbBx2, & PlntCmbBx3. Each has a list referenced from a range in a worksheet. (a plant list) and to the side of each CmbBx there is a TxtBox (respectively called QntytxtBx1 thru QntytxtBx3. a user will select a plant from each list and then type in how much was planted. I would like the ( i think yur supposed to) frame control to round up the selected plant and qnty data from each list and send it to its appropriate sheets by section. There are 23 sections ( areas=wrkshts) Oh the Section are selectable as well. a CmboBoxlst called SctnCmbBxlst. it has a list of all the wrkshts which are names of sections I have a partial code from a earlier discussion and been abused by me a few times..... any one help me walk thru this one?? Is there a Variable array we can do with wrkshts? all the same type and formats? or do i have to label each one in the first line as "varr"? code follows: *i dont know do i need to do one for each cmbbox and so on?? and is the value in paratheses the name of the range for that item being searched? varr = Array("Section1","Section2","Section3"...... "Section23")'i dont know how to do this one' 'how do i do the frame control here somewhere?' With PlantForm192.PlntcmbBx1 for i = 0 to .Listcount -1 if .Selected(i) = True then sPlant = .List(i,0) for each sh in Worksheets(varr) set rng = sh.Cells.Find(sSection) if not rng is nothing then set rng1 = sh.Cells.Find(sPlant) if not rng1 is nothing then rng1.Offset(0,1).Value = sQty exit for end if end if Next sh End With any ideas? THANKS!!! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
sending two sheets on one e-mail | Excel Discussion (Misc queries) | |||
How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook? | Excel Worksheet Functions | |||
Sending sheets in workbook | Excel Discussion (Misc queries) | |||
User Option to save to chosen destination | Excel Programming | |||
How to find out what the user selected? | Excel Programming |