kermitfrog123
Board Regular
- Joined
- Dec 19, 2015
- Messages
- 50
Hi All,
I have the below code which does exactly what I need. My problem is that is very slow to run. Can anyone offer any suggestions please?
I have the below code which does exactly what I need. My problem is that is very slow to run. Can anyone offer any suggestions please?
Code:
Sub Sep_c_1_60()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets("1-60% at C Status").Visible = True
Worksheets("1-60% at C Status").Select
Range("A3:DA1000").Delete Shift:=xlShiftUp
Worksheets("Monthly Data").Visible = True
Worksheets("Monthly Data").Select
Dim lrSep As Long
lrSep = Cells(Rows.Count, 1).End(xlUp).Row
Dim dDateSep As Date
Dim lDateSep As Long
dDateSep = Worksheets(".lists").Range("B9")
dDateSep = DateSerial(Year(dDateSep), Month(dDateSep), Day(dDateSep))
lDateSep = dDateSep
Dim ddelSep As Date
Dim ldelSep As Long
ddelSep = Worksheets(".lists").Range("B8")
ddelSep = DateSerial(Year(ddelSep), Month(ddelSep), Day(ddelSep))
ldelSep = ddelSep
Range("A2:DA" & lrSep).AutoFilter Field:=4, Criteria1:=Worksheets("Dashboard").Range("U2").Value
Range("A2:DA" & lrSep).AutoFilter Field:=6, Criteria1:="<=" & lDateSep
Range("A2:DA" & lrSep).AutoFilter Field:=8, Criteria1:=">" & ldelSep, Operator:=xlOr, Criteria2:=""
Range("A2:DA" & lrSep).AutoFilter Field:=61, Criteria1:=">0.00", Operator:=xlAnd, Criteria2:="<60.00"
Range("A2:DA" & lrSep).Copy Sheets("1-60% at C Status").Range("A3")
Worksheets("Monthly Data").Select
ActiveSheet.AutoFilterMode = False
Range("A1").Select
Worksheets("1-60% at C Status").Select
ActiveSheet.AutoFilterMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub