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.

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.

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.

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.

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.

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.

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.

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.

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.