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.
|
Similar Threads
