Copy from Formula Bar

[Sahak]

Hi all,

Sometimes copying from the cell (passwords or links), after pasting does not work.
Is there a macro to copy Formula Bar's contents?
Thank you in advance.

 

[Yongle]

Is the user selecting a new cell for pasting after the message box?
What is contained in the original cell
- is it a hyperlink formula (=HYPERLINK...) ?
- is an embedded hyperlink where the displayed cell value is the hyperlink address?
- is an embedded hyperlink where the displayed cell value is a friendly name?

Will update tomorrow

 

[Sahak]

The scenario is this:
The user should open the link for online payment, in this case: "SPECTRUM"
He pushes the button to run the macro, which copies the text "

He activates the web browser & manually (no macro), and doing paste (right-click Paste or CTRL + V)

 

[Yongle]

this works for me

Sub Copy_Link()
    Dim Txt As String
    If ActiveCell.Column = Range("Clmn_Payee").Column And ActiveCell.Offset(0, 1) = "Y" Then
        Txt = ActiveCell.Offset(0, 2).Value2
        With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
            .SetText Txt
            .PutInClipboard
        End With
        MsgBox "Please Paste the Copied Link"
    Else
        MsgBox "Wrong Selection, Please Select Payee"
    End If
End Sub

 

[Sahak]

Hi Yongle,

It works for me too. Thank you very much & God bless you. You are the best.