I am not sure what I have wrong here, I am not sure if it is just a simple formatting error or what. The basic script is just recorded using the Advanced Filter function. My problem is where I am trying to creat the range to be sorted, it is supposed to be "A2" to the last row with data in it. Any help on this would be appreciated

Sub a(

Dim LastRow As Varian

Sheets("StoredData").Selec
LastRow = Range("A65536").End(xlUp).Ro

Range("A2" & ("A" & LastRow)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range(
"H1:H2"), CopyToRange:=Sheets("SendToFlightProgram").Range(" A1:G1"), Unique:=Fals
End Su

Thanks

Jim Stephens

Sub a()

Dim LastRow As Variant

Sheets("StoredData").Select
Range("A2").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("H1:H2"), _
CopyToRange:=Sheets("SendToFlightProgram") _
.Range("A1:G1"), Unique:=False
End Sub

Do you have column headers matching the headers in StoredData in
Sheets("SendToFlightProgram") _
.Range("A1:G1")

That might be the problem.

--
Regards,
Tom Ogilvy



James Stephens wrote in message
...
I am not sure what I have wrong here, I am not sure if it is just a simple
formatting error or what. The basic script is just recorded using the
Advanced Filter function. My problem is where I am trying to creat the
range to be sorted, it is supposed to be "A2" to the last row with data in
it. Any help on this would be appreciated.

Sub a()

Dim LastRow As Variant

Sheets("StoredData").Select
LastRow = Range("A65536").End(xlUp).Row


Range("A2" & ("A" & LastRow)).AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"H1:H2"),
CopyToRange:=Sheets("SendToFlightProgram").Range(" A1:G1"), Unique:=False
End Sub

Thanks,

Jim Stephens

Thanks, that was part of the problem and what you had works for the range worked, I was trying but what I pieced together just didn't work. I do have one follow up, is there a way to make this delete the selected rows based on that criteria instead of copy and paste the

Thanks for the help

Jim

Sub DeleteFiltered()
Dim rng as Range
Dim rng1 as Range
Sheets("StoredData").Select
set rng = Range("A2").CurrentRegion
set rng1 = rng.offset(1,0).Resize(rng.rows.count-1)
rng.AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("H1:H2"), _
Unique:=False
On Error Resume Next
rng1.Specialcells(xlvisible).Entirerow.Delete
On Error Goto 0
End Sub


--
Regards,
Tom Ogilvy

"James Stephens" wrote in message
...
Thanks, that was part of the problem and what you had works for the range
worked, I was trying but what I pieced together just didn't work. I do have
one follow up, is there a way to make this delete the selected rows based on
that criteria instead of copy and paste them

Thanks for the help,

Jim

Thanks, that works great