Last Row As Range

[Guest]

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

 

[Tom Ogilvy]

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

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

 

[Guest]

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

 

[Tom Ogilvy]

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

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

 

[Guest]

Thanks, that works great