Sub test() Dim j As Long, k As Long undo Worksheets("6200_Data").Activate k = Range("a6").End(xlDown).Row For j = 1 To k If Cells(j, "H") > 90 And Cells(j, "D") <> 0 Then Cells(j, "A").EntireRow.Copy _ Worksheets("Slow Moving").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) If Cells(j, "G") = 0 And Cells(j, "D") <> 0 Then Cells(j, "A").EntireRow.Copy _ Worksheets("Non Moving").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) Next j Worksheets("Slow Moving").UsedRange.Columns.AutoFit End Sub
Worksheets("slow Moving").Cells.Clear Worksheets("Non Moving").Cells.Clear End Sub
Sub test() Dim j As Long, k As Long undo Worksheets("6200_Data").Activate k = Range("a6").End(xlDown).Row For j = 6 To k 'MsgBox j If Cells(j, "H") > 90 And Cells(j, "D") <> 0 Then Cells(j, "A").EntireRow.Copy _ Worksheets("Slow Moving").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) If Cells(j, "G") = 0 And Cells(j, "D") <> 0 Then Cells(j, "A").EntireRow.Copy _ Worksheets("Non Moving").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) Next j With Range("a3").EntireRow.Copy Worksheets("Slow Moving").Range("A1").PasteSpecial Worksheets("Non Moving").Range("A1").PasteSpecial End With Worksheets("Slow Moving").UsedRange.Columns.AutoFit Worksheets("Non Moving").UsedRange.Columns.AutoFit End Sub
Sub undo() Worksheets("Slow Moving").Cells.Clear Worksheets("Non Moving").Cells.Clear End Sub
Sub summing() Dim ssum(1 To 4) As Double, r As Range, ws(1 To 4) As Worksheet Dim cfind As Range Set ws(1) = Worksheets("6200_Slow_Moving") Set ws(2) = Worksheets("6200_Non_Moving") Set ws(3) = Worksheets("6810_Slow_Moving") Set ws(4) = Worksheets("6810_Non_Moving") For j = 1 To 4 With ws(j) ssum(j) = WorksheetFunction.Sum(Range(.Range("C4"), .Range("C4").End(xlDown))) End With Next j With Worksheets("summary") .Range("C23") = ssum(1) .Range("C24") = ssum(2) .Range("C31") = ssum(3) .Range("C32") = ssum(4) End With End Sub
DON'T MISS