Copy button caption

J

John Pierce

While using another data base program, I often toggle over to an excel
spreadsheet that has frequently used blurbs in separate cells. I would
then click on the appropriate cell, press Ctrl+C to copy the contents,
and toggle back to my database and paste the blurb. I figured out that
I could save a little effort by making a button with a macro that
copies the blurb with one click, but it is quite elaborate to set up:
type the blurb, name the range, create a macro that copies the range,
create the button, attach the macro. Then I thought "why not just have
buttons whose labels (captions) are the blurbs?!" So, can I create a
forms button whose "text" caption can be copied when clicked, and, if
so, how? Or, as I am thinking, will it need to be a Command button
with caption property - click the button and copy the caption.
 
F

FSt1

hi,
you copy stuff in cells. a command button is an object with properties so
you do that a tad different.
Private Sub cb1_Click()
Dim c As String
c = cb1.Caption
Range("A1").Value = c
End Sub
maybe this will get you pointed in the right direction,
regards
FSt1
 
J

John Pierce

hi,
you copy stuff in cells. a command button is an object with properties so
you do that a tad different.
Private Sub cb1_Click()
Dim c As String
c = cb1.Caption
Range("A1").Value = c
End Sub
maybe this will get you pointed in the right direction,
regards
FSt1
Okay, I added Range("A1").copy and that works.
Private Sub cb1_Click()
Dim c As String
c = cb1.Caption
Range("A1").Value = c
Range("A1").copy
End Sub
But, I can't help thinking there must be a more elegant way of getting
the caption directly to the clipboard.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top