ComboBox generic reference

  • Thread starter Thread starter Brett
  • Start date Start date
B

Brett

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.
 
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
 
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
 
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 .)
 
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.
 
Refer that as

Activesheet.shapes("REFI" & rw)

OR

Sheets("Sheename").shapes("REFI" & rw)


If this post helps click Yes
 
Range("AG" & rw) = Sheets("LOANS").Shapes("REFI" & rw)
gives application defined or object defined error
 
Oops...messed it more than once..The below will work Brett,,

ActiveSheet.OLEObjects("REFI" & rw).Object.Value

If this post helps click Yes
 
Yes, that seems to work. Thanks Jacob

Jacob Skaria said:
Oops...messed it more than once..The below will work Brett,,

ActiveSheet.OLEObjects("REFI" & rw).Object.Value

If this post helps click Yes
Click to expand...
 
Back
Top