Defining range for Advanced Filter

B

burl_rfc

I'm having a difficult time on the range definition for and andvanced
filter callout, below is my code todate. The issue occurs on the Set
oRange line, as I step through the macro it appear to highlight the
appropriate cells but I get a "Run time Error #424 Object required",
can anyone help me out.

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 2/9/2006 by jreid
'

'
Dim oRange As Object

Range("AJ3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("DT3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Range("M3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("DU3").Select
ActiveSheet.Paste
Range("DT3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("DT3"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("DT3").Select
Cells.Find(What:="1X", After:=ActiveCell, LookIn:=xlFormulas,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select

Set oRange = ActiveSheet.Range(Selection,
Selection.End(xlDown)).Select
oRange.AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Range("DW3"), Unique:=True

Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet1").Select
Range("B1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub
 
N

Norman Jones

Hi Burl,

Try changing:
Set oRange = ActiveSheet.Range(Selection,
Selection.End(xlDown)).Select

to:

Set oRange = ActiveSheet.Range _
(Selection, Selection.End(xlDown))
 
B

burl_rfc

Norm,

The solution worked great, I thank you greatly for helping out, this
has been stumping me for a few days

Again many thanks.

But why is VBA so citical with the syntax, what did the underscore
actually accomplish here (just to give me a beeter understanding).

burl
 
N

Norman Jones

Hi, Burl,

The underscore is merely cosmtic - it serves to break long lines of code.

The real difference was the deletion of your Select.
 
N

Norman Jones

Hi Burl,
But why is VBA so citical with the syntax, what did the underscore
actually accomplish here (just to give me a beeter understanding).


See my adjacent response - I inadvertently responded to the wrong strand of
this thread!
 

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