Sorting Blocks of data without affecting organization of the data

JoCook · Oct 12, 2015

This is my first spread sheet trying to use macros andvba. I am trying to sort laborers based off least amount of hours worked(column X) and also their clock number (column C). So if two laborers have thesame amount of hours the vba will then sort based on the laborer with the lowerclock number. Each employee has Classification“C” and Department “D” hours <o

></o

>
I need four macros:<o

></o

>
One that will sort the MILL OPERATOR section (A5:X17) from the above criteria based theClassification “C” <o

></o

>
Second that will sort the MILL UTILITY section (A20:X38) from the above criteria based theClassification “C” <o

></o

>
Third I need a macro that will sort both the MILL UTILITYand the MILL OPERATOR (A20:X38) by their department “D”. <o

></o

>
I think I’ve gotten the first two to work but the thirdis sk I have created fourth macro that resets the filters. When I reset the filters I would like thespread sheet to go back to its original look and have the rows in the sameorder as they started.<o

></o

>
<o

> </o

>
<o

> </o

>

<o></o>

A<o></o>

B<o></o>

C<o></o>

D<o></o>

E<o></o>

F<o></o>

G<o></o>

H<o></o>

I<o></o>

J<o></o>

K<o></o>

L<o></o>

M<o></o>

N<o></o>

O<o></o>

P<o></o>

Q<o></o>

R<o></o>

S<o></o>

T<o></o>

U<o></o>

V<o></o>

W<o></o>

X<o></o>

Y<o></o>

1<o></o>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

YTD<o

></o

>

MONDAY<o

></o

>

<o

></o

>

TUESDAY<o

></o

>

<o

></o

>

WEDNESDAY<o

></o

>

<o

></o

>

THURSDAY<o

></o

>

<o

></o

>

FRIDAY<o

></o

>

<o

></o

>

SATURDAY<o

></o

>

<o

></o

>

SUNDAY<o

></o

>

<o

></o

>

Total<o

></o

>

TOTAL<o

></o

>

TOTAL <o

></o

>

1<o

></o

>

2<o></o>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

thru<o

></o

>

42276<o

></o

>

42276<o

></o

>

42277<o

></o

>

42277<o

></o

>

42278<o

></o

>

42278<o

></o

>

42279<o

></o

>

42279<o

></o

>

42280<o

></o

>

42280<o

></o

>

42281<o

></o

>

42281<o

></o

>

42282<o

></o

>

42282<o

></o

>

This<o

></o

>

DECLINED<o

></o

>

HRS<o

></o

>

2<o

></o

>

3<o></o>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

42275<o

></o

>

HRS WRK<o

></o

>

DEC HRS<o

></o

>

HRS WRK<o

></o

>

DEC HRS<o

></o

>

HRS WRK<o

></o

>

DEC HRS<o

></o

>

HRS WRK<o

></o

>

DEC HRS<o

></o

>

HRS WRK<o

></o

>

DEC HRS<o

></o

>

HRS WRK<o

></o

>

DEC HRS<o

></o

>

HRS WRK<o

></o

>

DEC HRS<o

></o

>

Week<o

></o

>

HOURS<o

></o

>

YTD<o

></o

>

3<o

></o

>

4<o></o>

<o

></o

>

Name<o

></o

>

CLOCK #<o

></o

>

PHONE<o

></o

>

Speed Dial<o

></o

>

<o

></o

>

<o

></o

>

PUT VAC - STD - AVG - FL IN COLUMN D<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

4<o

></o

>

5<o></o>

MILL OPERATOR<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

C/D<o

></o

>

Hours<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

5<o

></o

>

6<o></o>

<o

></o

>

Laborer1<o

></o

>

580<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

36<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

36<o

></o

>

6<o

></o

>

7<o></o>

<o

></o

>

Laborer1<o

></o

>

580<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

191<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

191<o

></o

>

7<o

></o

>

8<o></o>

<o

></o

>

Laborer2<o

></o

>

539<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

36<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

36<o

></o

>

8<o

></o

>

9<o></o>

<o

></o

>

Laborer2<o

></o

>

539<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

49.5<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

49.5<o

></o

>

9<o

></o

>

10<o></o>

<o

></o

>

Laborer3<o

></o

>

665<o

></o

>

#REF!<o

></o

>

#REF!<o

></o

>

C<o

></o

>

82.5<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

82.5<o

></o

>

10<o

></o

>

11<o></o>

<o

></o

>

Laborer3<o

></o

>

665<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

46<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

46<o

></o

>

11<o

></o

>

12<o></o>

<o

></o

>

Laborer4<o

></o

>

367<o

></o

>

#REF!<o

></o

>

#REF!<o

></o

>

C<o

></o

>

180<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

180<o

></o

>

12<o

></o

>

13<o></o>

<o

></o

>

Laborer4<o

></o

>

367<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

0<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

0<o

></o

>

13<o

></o

>

14<o></o>

<o

></o

>

Laborer5<o

></o

>

519<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

82.5<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

82.5<o

></o

>

14<o

></o

>

15<o></o>

<o

></o

>

Laborer5<o

></o

>

519<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

197<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

197<o

></o

>

15<o

></o

>

16<o></o>

<o

></o

>

<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

0<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

0<o

></o

>

16<o

></o

>

17<o></o>

<o

></o

>

<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

0<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

0<o

></o

>

17<o

></o

>

18<o></o>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

19<o></o>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

20<o></o>

MILL UTILITY<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

18<o

></o

>

21<o></o>

<o

></o

>

Laborer11<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

45.5<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

45.5<o

></o

>

19<o

></o

>

22<o></o>

<o

></o

>

Laborer11<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

93.5<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

93.5<o

></o

>

20<o

></o

>

23<o></o>

<o

></o

>

Laborer22<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

170.5<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

170.5<o

></o

>

21<o

></o

>

24<o></o>

<o

></o

>

Laborer22<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

92.5<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

92.5<o

></o

>

22<o

></o

>

25<o></o>

<o

></o

>

Laborer33<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

168.5<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

168.5<o

></o

>

23<o

></o

>

26<o></o>

<o

></o

>

Laborer33<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

43<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

43<o

></o

>

24<o

></o

>

27<o></o>

<o

></o

>

Laborer44<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

184<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

184<o

></o

>

25<o

></o

>

28<o></o>

<o

></o

>

Laborer44<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

34<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

8<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

8<o

></o

>

42<o

></o

>

26<o

></o

>

29<o></o>

<o

></o

>

Laborer55<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

189<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

189<o

></o

>

27<o

></o

>

30<o></o>

<o

></o

>

Laborer55<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

24<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

24<o

></o

>

28<o

></o

>

31<o></o>

<o

></o

>

0<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

177.5<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

177.5<o

></o

>

29<o

></o

>

32<o></o>

<o

></o

>

0<o

></o

>

#REF!<o

></o

>

#REF!<o

></o

>

#REF!<o

></o

>

D<o

></o

>

38<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

8<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

8<o

></o

>

0<o

></o

>

46<o

></o

>

30<o

></o

>

33<o></o>

<o

></o

>

0<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

0<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

0<o

></o

>

31<o

></o

>

34<o></o>

<o

></o

>

0<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

0<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

0<o

></o

>

32<o

></o

>

35<o></o>

<o

></o

>

0<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

0<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

0<o

></o

>

33<o

></o

>

36<o></o>

<o

></o

>

0<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

0<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

0<o

></o

>

34<o

></o

>

37<o></o>

<o

></o

>

0<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

C<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

0<o

></o

>

35<o

></o

>

38<o></o>

<o

></o

>

<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

#N/A<o

></o

>

D<o

></o

>

0<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

<o

></o

>

0<o

></o

>

0<o

></o

>

0<o

></o

>

36<o

></o

>

<o

> </o

>
<o

> </o

>
<o

> </o

>
<o

> </o

>
<o

> </o

>

JoCook · Oct 12, 2015

Wow that was a lot bigger than i thought sorry about that

JoCook · Oct 12, 2015

I dont know how helpful these willl be but here are the macros I am using

Sub ResetFilters()
'
' ResetFilters Macro
'
'
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
Range("B5:Z17").Select
Selection.AutoFilter
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("Y5:Y17"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B20:Z38").Select
Selection.AutoFilter
Selection.AutoFilter
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("Y20:Y38"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=15
Range("B41:Z58").Select
Selection.AutoFilter
Selection.AutoFilter
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("Y41:Y58"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
ActiveWindow.SmallScroll Down:=-45
Range("A19").Select
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
End Sub

Sub MillOperatorClassification()
'
' MillOperatorClassification Macro
'
'
Range("B5:Y5").Select
Selection.AutoFilter
ActiveSheet.Range("$B$5:$Y$17").AutoFilter Field:=1, Criteria1:="<>0"
ActiveSheet.Range("$B$5:$Y$17").AutoFilter Field:=5, Criteria1:="C"
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("G5:G17"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("C5:C17"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("G5:G17"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Sub MillUtilityClassification()
'
' MillUtilityClassification() Macro
'
'
Range("B20:Y20").Select
Selection.AutoFilter
ActiveSheet.Range("$B$20:$Y$38").AutoFilter Field:=1, Criteria1:="<>0"
ActiveSheet.Range("$B$20:$Y$38").AutoFilter Field:=5, Criteria1:="C"
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("G20:G38"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("C20:C38"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("G20:G38"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Sub DryerUtilityClassification()
'
' DryerUtilityClassification() Macro
'
'
Range("B41:Y58").Select
Selection.AutoFilter
ActiveSheet.Range("$B$41:$Y$58").AutoFilter Field:=1, Criteria1:="<>0"
ActiveSheet.Range("$B$41:$Y$58").AutoFilter Field:=5, Criteria1:="C"
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("G41:G58"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("C41:C58"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("G41:G58"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Sub MillDepartment()
'
' MillDepartment () Macro
'
'
Columns("Z:Z").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Z5").Select
ActiveCell.FormulaR1C1 = "1"
Range("Z6").Select
ActiveCell.FormulaR1C1 = "2"
Range("Z5:Z6").Select
Selection.AutoFill Destination:=Range("Z5:Z38"), Type:=xlFillDefault
Range("Z5:Z38").Select
Range("B5:Z38").Select
Selection.AutoFilter
ActiveSheet.Range("$B$5:$Z$38").AutoFilter Field:=1, Criteria1:="<>0"
ActiveSheet.Range("$B$5:$Z$38").AutoFilter Field:=5, Criteria1:="D"
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("G5:G38"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("C5:C38"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("G5:G38"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Sorting Blocks of data without affecting organization of the data

JoCook

New Member

Excel Facts

JoCook

New Member

JoCook

New Member

Similar threads

Forum statistics

Share this page

Sorting Blocks of data without affecting organization of the data

JoCook

New Member

Excel Facts

JoCook

New Member

JoCook

New Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock