| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ComboBox generic reference
I have a series of comboboxes in a sheet (REFI1, REFI23 etc). How can I make
the second line of code generic (i.e pass the value of rw into Me.REFI & rw)? Dim rw As Long: rw = 51 Range("AG" & rw) = Me.REFI51 I tried: Range("AG" & rw) = Me.REFI & rw but it debugs with "REFI" data member not found. Thanks in advance, Brett. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ComboBox generic reference
If you have your combo box in your Activesheet..
Dim rw As Long: rw = 51 'To assign the value from cell to combo ActiveSheet.REFI51 = Range("AG" & rw) 'To assign the value from combo to cell Range("AG" & rw) = ActiveSheet.REFI51 -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: I have a series of comboboxes in a sheet (REFI1, REFI23 etc). How can I make the second line of code generic (i.e pass the value of rw into Me.REFI & rw)? Dim rw As Long: rw = 51 Range("AG" & rw) = Me.REFI51 I tried: Range("AG" & rw) = Me.REFI & rw but it debugs with "REFI" data member not found. Thanks in advance, Brett. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ComboBox generic reference
Hi Jacob, I think you may have missed my point. The procedure is a generic
one that is called by each of the comboboxes REFI1 through REFI100, so I want to refer to REFI & rw, where rw is the value passed into the procedure. Regards, Brett "Jacob Skaria" wrote: If you have your combo box in your Activesheet.. Dim rw As Long: rw = 51 'To assign the value from cell to combo ActiveSheet.REFI51 = Range("AG" & rw) 'To assign the value from combo to cell Range("AG" & rw) = ActiveSheet.REFI51 -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: I have a series of comboboxes in a sheet (REFI1, REFI23 etc). How can I make the second line of code generic (i.e pass the value of rw into Me.REFI & rw)? Dim rw As Long: rw = 51 Range("AG" & rw) = Me.REFI51 I tried: Range("AG" & rw) = Me.REFI & rw but it debugs with "REFI" data member not found. Thanks in advance, Brett. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ComboBox generic reference
I missed your point
Dim rw As Long: rw = 51 Range("AG" & rw) = Me.Controls("REFI" & rw) (this might be a multiple post as i got an error .) -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: Hi Jacob, I think you may have missed my point. The procedure is a generic one that is called by each of the comboboxes REFI1 through REFI100, so I want to refer to REFI & rw, where rw is the value passed into the procedure. Regards, Brett "Jacob Skaria" wrote: If you have your combo box in your Activesheet.. Dim rw As Long: rw = 51 'To assign the value from cell to combo ActiveSheet.REFI51 = Range("AG" & rw) 'To assign the value from combo to cell Range("AG" & rw) = ActiveSheet.REFI51 -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: I have a series of comboboxes in a sheet (REFI1, REFI23 etc). How can I make the second line of code generic (i.e pass the value of rw into Me.REFI & rw)? Dim rw As Long: rw = 51 Range("AG" & rw) = Me.REFI51 I tried: Range("AG" & rw) = Me.REFI & rw but it debugs with "REFI" data member not found. Thanks in advance, Brett. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ComboBox generic reference
That goes to debug with "Controls data member not found" (it's in a sheet,
not a userform) Range("AG" & rw) = Me.Controls("REFI" & rw) The generic procedure is a sub (not a private sub) in a worksheet module. "Jacob Skaria" wrote: I missed your point Dim rw As Long: rw = 51 Range("AG" & rw) = Me.Controls("REFI" & rw) (this might be a multiple post as i got an error .) -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: Hi Jacob, I think you may have missed my point. The procedure is a generic one that is called by each of the comboboxes REFI1 through REFI100, so I want to refer to REFI & rw, where rw is the value passed into the procedure. Regards, Brett "Jacob Skaria" wrote: If you have your combo box in your Activesheet.. Dim rw As Long: rw = 51 'To assign the value from cell to combo ActiveSheet.REFI51 = Range("AG" & rw) 'To assign the value from combo to cell Range("AG" & rw) = ActiveSheet.REFI51 -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: I have a series of comboboxes in a sheet (REFI1, REFI23 etc). How can I make the second line of code generic (i.e pass the value of rw into Me.REFI & rw)? Dim rw As Long: rw = 51 Range("AG" & rw) = Me.REFI51 I tried: Range("AG" & rw) = Me.REFI & rw but it debugs with "REFI" data member not found. Thanks in advance, Brett. |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ComboBox generic reference
Refer that as
Activesheet.shapes("REFI" & rw) OR Sheets("Sheename").shapes("REFI" & rw) If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: That goes to debug with "Controls data member not found" (it's in a sheet, not a userform) Range("AG" & rw) = Me.Controls("REFI" & rw) The generic procedure is a sub (not a private sub) in a worksheet module. "Jacob Skaria" wrote: I missed your point Dim rw As Long: rw = 51 Range("AG" & rw) = Me.Controls("REFI" & rw) (this might be a multiple post as i got an error .) -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: Hi Jacob, I think you may have missed my point. The procedure is a generic one that is called by each of the comboboxes REFI1 through REFI100, so I want to refer to REFI & rw, where rw is the value passed into the procedure. Regards, Brett "Jacob Skaria" wrote: If you have your combo box in your Activesheet.. Dim rw As Long: rw = 51 'To assign the value from cell to combo ActiveSheet.REFI51 = Range("AG" & rw) 'To assign the value from combo to cell Range("AG" & rw) = ActiveSheet.REFI51 -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: I have a series of comboboxes in a sheet (REFI1, REFI23 etc). How can I make the second line of code generic (i.e pass the value of rw into Me.REFI & rw)? Dim rw As Long: rw = 51 Range("AG" & rw) = Me.REFI51 I tried: Range("AG" & rw) = Me.REFI & rw but it debugs with "REFI" data member not found. Thanks in advance, Brett. |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ComboBox generic reference
Range("AG" & rw) = Sheets("LOANS").Shapes("REFI" & rw)
gives application defined or object defined error "Jacob Skaria" wrote: Refer that as Activesheet.shapes("REFI" & rw) OR Sheets("Sheename").shapes("REFI" & rw) If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: That goes to debug with "Controls data member not found" (it's in a sheet, not a userform) Range("AG" & rw) = Me.Controls("REFI" & rw) The generic procedure is a sub (not a private sub) in a worksheet module. "Jacob Skaria" wrote: I missed your point Dim rw As Long: rw = 51 Range("AG" & rw) = Me.Controls("REFI" & rw) (this might be a multiple post as i got an error .) -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: Hi Jacob, I think you may have missed my point. The procedure is a generic one that is called by each of the comboboxes REFI1 through REFI100, so I want to refer to REFI & rw, where rw is the value passed into the procedure. Regards, Brett "Jacob Skaria" wrote: If you have your combo box in your Activesheet.. Dim rw As Long: rw = 51 'To assign the value from cell to combo ActiveSheet.REFI51 = Range("AG" & rw) 'To assign the value from combo to cell Range("AG" & rw) = ActiveSheet.REFI51 -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: I have a series of comboboxes in a sheet (REFI1, REFI23 etc). How can I make the second line of code generic (i.e pass the value of rw into Me.REFI & rw)? Dim rw As Long: rw = 51 Range("AG" & rw) = Me.REFI51 I tried: Range("AG" & rw) = Me.REFI & rw but it debugs with "REFI" data member not found. Thanks in advance, Brett. |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ComboBox generic reference
Oops...messed it more than once..The below will work Brett,,
ActiveSheet.OLEObjects("REFI" & rw).Object.Value If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: Range("AG" & rw) = Sheets("LOANS").Shapes("REFI" & rw) gives application defined or object defined error "Jacob Skaria" wrote: Refer that as Activesheet.shapes("REFI" & rw) OR Sheets("Sheename").shapes("REFI" & rw) If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: That goes to debug with "Controls data member not found" (it's in a sheet, not a userform) Range("AG" & rw) = Me.Controls("REFI" & rw) The generic procedure is a sub (not a private sub) in a worksheet module. "Jacob Skaria" wrote: I missed your point Dim rw As Long: rw = 51 Range("AG" & rw) = Me.Controls("REFI" & rw) (this might be a multiple post as i got an error .) -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: Hi Jacob, I think you may have missed my point. The procedure is a generic one that is called by each of the comboboxes REFI1 through REFI100, so I want to refer to REFI & rw, where rw is the value passed into the procedure. Regards, Brett "Jacob Skaria" wrote: If you have your combo box in your Activesheet.. Dim rw As Long: rw = 51 'To assign the value from cell to combo ActiveSheet.REFI51 = Range("AG" & rw) 'To assign the value from combo to cell Range("AG" & rw) = ActiveSheet.REFI51 -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: I have a series of comboboxes in a sheet (REFI1, REFI23 etc). How can I make the second line of code generic (i.e pass the value of rw into Me.REFI & rw)? Dim rw As Long: rw = 51 Range("AG" & rw) = Me.REFI51 I tried: Range("AG" & rw) = Me.REFI & rw but it debugs with "REFI" data member not found. Thanks in advance, Brett. |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ComboBox generic reference
Yes, that seems to work. Thanks Jacob
"Jacob Skaria" wrote: Oops...messed it more than once..The below will work Brett,, ActiveSheet.OLEObjects("REFI" & rw).Object.Value If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: Range("AG" & rw) = Sheets("LOANS").Shapes("REFI" & rw) gives application defined or object defined error "Jacob Skaria" wrote: Refer that as Activesheet.shapes("REFI" & rw) OR Sheets("Sheename").shapes("REFI" & rw) If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: That goes to debug with "Controls data member not found" (it's in a sheet, not a userform) Range("AG" & rw) = Me.Controls("REFI" & rw) The generic procedure is a sub (not a private sub) in a worksheet module. "Jacob Skaria" wrote: I missed your point Dim rw As Long: rw = 51 Range("AG" & rw) = Me.Controls("REFI" & rw) (this might be a multiple post as i got an error .) -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: Hi Jacob, I think you may have missed my point. The procedure is a generic one that is called by each of the comboboxes REFI1 through REFI100, so I want to refer to REFI & rw, where rw is the value passed into the procedure. Regards, Brett "Jacob Skaria" wrote: If you have your combo box in your Activesheet.. Dim rw As Long: rw = 51 'To assign the value from cell to combo ActiveSheet.REFI51 = Range("AG" & rw) 'To assign the value from combo to cell Range("AG" & rw) = ActiveSheet.REFI51 -- If this post helps click Yes --------------- Jacob Skaria "Brett" wrote: I have a series of comboboxes in a sheet (REFI1, REFI23 etc). How can I make the second line of code generic (i.e pass the value of rw into Me.REFI & rw)? Dim rw As Long: rw = 51 Range("AG" & rw) = Me.REFI51 I tried: Range("AG" & rw) = Me.REFI & rw but it debugs with "REFI" data member not found. Thanks in advance, Brett. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Combobox.value reference | Excel Programming | |||
| Dynamic ComboBox Reference | Excel Programming | |||
| Generic reference in a Macro | Excel Discussion (Misc queries) | |||
| Reference A Combobox On The First page. | Excel Programming | |||
| Generic ComboBox change event | Excel Programming | |||
Linear Mode
