Last Row As Range

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
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 said:
I am not sure what I have wrong here, I am not sure if it is just a simple
Click to expand...
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"),
Click to expand...
CopyToRange:=Sheets("SendToFlightProgram").Range("A1:G1"), Unique:=False
 
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 said:
Thanks, that was part of the problem and what you had works for the range
Click to expand...
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
 
Back
Top