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
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