Pasting cell contents into a macro


Joined
Aug 21, 2018
Messages
1
Reaction score
1
Hi,

Newbie to Macros

Essentially I'm trying to run a macro in which I can select a word from a drop down list but unfortunately when I record the macro..the cell copies as a value and therefore I can't re-run the macro?

Sub master()
'
' master Macro
'

'
Activecell.select
Selection.Copy
Sheets("Data").Select
ActiveSheet.Range("$A$1:$N$6546").AutoFilter Field:=3, Criteria1:= _
"Apples"
End Sub

I'm trying to do it so instead of "Apples" it comes up with whatever is in the active cell.

Any help appreciated!
 
Ad

Advertisements

Joined
Mar 14, 2018
Messages
679
Reaction score
222
This doc says that when you use the Copy method without a destination argument that it copies to the clipboard: https://docs.microsoft.com/en-us/office/vba/api/excel.range.copy

Now that you've copied to the clipboard you have to paste from that. You would be better off storing the selection into a string variable and then use that as part of your AutoFilter call.

Dim selvalue As String = Selection.Text
ActiveSheet.Range("").AutoFilter Criteria1:=selvalue

I didn't write all of the code you need but you get the idea. I hope this helps :user:
 

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