use active selection from outside

**olwy** · 03-12-2014, 05:26 AM

Hi all,
I need to search according a cell out of excel (ERP databases). I found a way: I select it in ERP, press CTRL + C, so I get it in memory. I move to excel and run macro, which paste it on unused cell somewhere down, copy it to excel memory and use it for filtering. How can I avoid these additional steps and use ctrl + C memory immediately?

My code (part in bold should be replaced):

Dim routing As String

Sheets("lists").Select
Range("B100").Select
    ActiveSheet.Paste
Sheets("lists").Range("B100").Select

routing = ActiveCell.Value
    
 
    Sheets("2014").Select
    
    Selection.AutoFilter Field:=6, Criteria1:=routing

Thank you for that. You cannot imagine how much time you can save if you are filtering 300 items. :-)
Petr

**millz** · 03-12-2014, 05:35 AM

Try:

    Dim d As New DataObject
    Dim routing As String
    d.GetFromClipboard
    routing = d.GetText
 
    Sheets("2014").Select
    
    Selection.AutoFilter Field:=6, Criteria1:=routing

**olwy** · 03-12-2014, 05:45 AM

Looks nice but compile error appear: User-define type not defined. Any idea? Thanks.

**olwy** · 03-12-2014, 06:00 AM

You were right. It is working. Thank you for that.

**millz** · 03-12-2014, 05:52 AM

Maybe you are missing Microsoft Forms object library reference. See here: http://support.microsoft.com/kb/212730

use active selection from outside

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

use active selection from outside

Re: use active selection from outside

Re: use active selection from outside

Re: use active selection from outside

Re: use active selection from outside

Thread Information

Users Browsing this Thread

Similar Threads

Generate list box on active cell selection then place selections from box in active cell

Active workbook selection

Referring to Active Cell Selection

[SOLVED] Selection:Active.Cell

[SOLVED] Can I determine the active selection's type?

Bookmarks

Bookmarks

Posting Permissions