Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help to run faster
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help to run faster
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help to run faster
I understood what you are doing. I suggested a change. Seems to me
filtering once is probably going to be faster than filtering 3 times. -- Regards, Tom Ogilvy "Esau" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
can this be done faster? | Excel Discussion (Misc queries) | |||
Any way to do this faster? | Excel Programming | |||
Faster way to do this? | Excel Programming | |||
Can faster CPU+larger/faster RAM significantly speed up recalulati | Excel Discussion (Misc queries) | |||
Which one is faster? | Excel Programming |