Macro to Copy Cells to Clipboard If

[Neuner]

Have a large list of contacts and I want a macro that copies their email addresses, Column J, to the clipboard if they've been selected, ="a" in Column C.

It is a large amount of data so I believe I need to clear the clipboard first?

Dim oData As New DataObject 'object to use the ClipboardoData.SetText Text:=Empty 'Clear
oData.PutInClipboard

The contact list is constantly edited with some being deleted and others added periodically. I've named the row above and below the data information for function reference which has been working well for my sorting macros.

Range(.Cells(.Range("BorderFirstRow").Row + 1, "J"), _
                .Cells(.Range("BorderLastRow").Row - 1, "J"))

What do I need to do to have the macro copy the email address, Column J, if Column C = "a"? Am guessing I could use an HLookup but not sure if that would be the cleanest way to go?

Thank you!

 

[Neuner]

I have the following but I don't know how to have it copy only the cell in Column J to the Clipboard.

Sub CopySelected()
Dim oData As New DataObject 
oData.SetText Text:=Empty 'Clear
oData.PutInClipboard
With Worksheets("Master")
    For Each Cell In Range(.Cells(.Range("BorderFirstRow").Row + 1, "C"), _
                .Cells(.Range("BorderLastRow").Row - 1, "C"))
        If Cell.Value = "a" Then
                
                .PutInClipboard
        End If
    End With
End Sub

Thank you for your help!