Help to run faster
I copy the filter data from Sheets ("2") Sheets ("3") & Sheets ("4") to Sheets
("Sheet2") Then run a macro to analyze the data - I was hoping there was a
faster way to collect the data to Sheet2
Thanks you for reviewing it
Esau Isaacs
--
Esau
"Tom Ogilvy" wrote:
You could try copying all the data, then filtering on the composite data and
deleteing all the data you don't want.
--
Regards,
Tom Ogilvy
"Esau" wrote in message
...
Is there a way to do this faster
--
Sheets("2").Select
Selection.AutoFilter Field:=1, Criteria1:="O NARUTAC MAGIC"
Application.Run "PERSONAL.XLS!Sheet2"
Selection.AutoFilter Field:=1, Criteria1:="O NARUTAC MAGIC"
Application.Run "PERSONAL.XLS!Sheet3"
Selection.AutoFilter Field:=1, Criteria1:="O NARUTAC MAGIC"
Application.Run "PERSONAL.XLS!Sheet4"
Sub Sheet2()
'
'
Application.ScreenUpdating = False
With ActiveSheet.AutoFilter.Range
.Offset(1, 0).Resize(.Rows.Count - 1).Copy _
Sheets("Sheet2").Range("B" & Rows.Count) _
.End(xlUp).Offset(2, 0)
End With
Sheets("3").Select
Application.ScreenUpdating = False
'Selection.Autofilter
End Sub
Sub Sheet3()
'
'
Application.ScreenUpdating = False
With ActiveSheet.AutoFilter.Range
.Offset(1, 0).Resize(.Rows.Count - 1).Copy _
Sheets("Sheet2").Range("B" & Rows.Count) _
.End(xlUp).Offset(1, 0)
End With
Sheets("4").Select
Application.ScreenUpdating = False
'Selection.Autofilter
End Sub
Sub Sheet4()
'
'
Application.ScreenUpdating = False
With ActiveSheet.AutoFilter.Range
.Offset(1, 0).Resize(.Rows.Count - 1).Copy _
Sheets("Sheet2").Range("B" & Rows.Count) _
.End(xlUp).Offset(1, 0)
End With
Application.ScreenUpdating = False
End Sub
|