Paste text to textbox via button VBA Excel

Question

I want a copy and a paste button in MS Excel, the copy button looks like this

Private Sub CommandButton1_Click()
Dim MyData As New DataObject
MyData.SetText TextBox1.Text
MyData.PutInClipboard
End Sub

Now, how can I make/code a PASTE button in a similar fashion?

No I do not want to copy from textbox1 in TextBox2 //. I just need a paste text into the textbox where I'm writing — d00nn12
– d00nn12, Commented Jun 24, 2015 at 11:19

Community · Accepted Answer · 2017-05-23 11:43:46Z

2

As mentioned in the comments, the post from Get text from clipboard using GetText - avoid error on empty clipboard helped me arrive at the solution that I was looking for.

    Dim DataObj As MsForms.DataObject
    Set DataObj = New MsForms.DataObject 

    On Error GoTo Whoa

    '~~> Get data from the clipboard.
    DataObj.GetFromClipboard

    '~~> Get clipboard contents
    Me.txtKordinatat.Value = DataObj.GetText(1)

    Exit Sub
Whoa:
    If Err <> 0 Then MsgBox "Data on clipboard is not text or is empty"

edited May 23, 2017 at 11:43

CommunityBot

11 silver badge

answered Jun 24, 2015 at 11:28

d00nn12

771 gold badge2 silver badges11 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Siddharth Rout Over a year ago

++ For figuring it out yourself ;)

Collectives™ on Stack Overflow

Paste text to textbox via button VBA Excel

1 Answer 1

1 Comment

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Linked

Related