Defining range for Advanced Filter

  • Thread starter Thread starter burl_rfc
  • Start date Start date
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
 
Hi Burl,

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

to:

Set oRange = ActiveSheet.Range _
(Selection, Selection.End(xlDown))
 
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
 
Hi, Burl,

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

The real difference was the deletion of your Select.
 
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).
Click to expand...


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