VBA to show and change list of names depending on selection

bh24524 · Dec 30, 2023

Hi, so I am looking for a way to populate a list of those who meet certain criteria. This list is for employees will are required to stay and work over-time(mando). This is also cross-posted here and I did get a solution that wasn't VBA, but I would also like a VBA solution for it.

The way this works is they will call mando in a certain department from a specific employee. This means everyone below that employee is required to stay and work extra time. I have information off to the side starting in Column O where I would list my Mando specifications - Who it is posted for, the Lift time, and the Department (which is just a simple lookup formulas) that it is for. I show mando 1 and mando 2 to incorporate possibility of multiple mando times. I've included 2 scenarios in this sample file with the second one starting in Column U. Mind you in the actual file, I do not need any of scenario 2 incorporated into a macro - I would just erase Scenario 1's data and put any data from Scenario 2 in its place since it has Mando1 and Mando2. I just separated them in this instance to show different scenarios. here is a picture of what it looks like:

So what I am looking for is for a list of names to auto-populate in alphabetical order in Column O starting in Row 6. This would be a list of everyone in the department below an individual where the mando line was drawn. So in Scenario 1, let's say mando was posted for John Smith 8 for 6:30 PM in the C61C department. What I would expect to see based on that are the following names populating starting in Row 6:
John Smith 9
John Smith 11
John Smith 14
John Smith 15
That means these people (all of which are C61C dept. employees) were required to stay until 6:30PM. They had lower seniority than John Smith 8

Scenario 2 is a little more tricky and one department tends to do this more. They might have multiple mando lines. So in their case, let's say they posted mando for John Smith 10 at 8PM in the C65L department. They also posted another Mando Line for 9 PM for John Smith 17. This means under Mando 1 section, anyone from below John Smith 8 to and including John Smith 17's name would appear in that list. So that would be the following:
John Smith 12
John Smith 13
John Smith 16
John Smith 17
These employees(all of which are C65L Dept. employees) were all required to stay until 9PM. They had lower seniority than John Smith 10

And in the Mando 2 section, I would expect to see
John Smith 19
John Smith 20
These employees(again also C65L dept. employees) were required to stay until 10 PM. They had lower seniority than John Smith 17.

I assume that a function probably couldn't handle this and I thought maybe VBA might be able to. Also, the way I've laid out the mando specifications isn't set in stone, I am open to other suggestions on how to have it if it would make a macro work. It's just the Name, Lift time, and departments that are crucial points. I had also sorted beforehand the list by date order. Does this HAVE to be the case or could the macro look at the seniority date and figure that out? Is it possible to do this based on what I've shown?

mumps · Dec 31, 2023

Your data should look like this:

Book1

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

1

NO.

EMPLOYEE

SEN. DATE

SEN. ORDER

WHSE

START TIME

Code

SCH

DAYS OFF

BID

Mando 1

Mando 2

2

112

John Smith 1

09/08/1970

D

7A-3P - (00 DAIRY)

C65D

B

202

S/S

LIFT

Name

John Smith 10

Name

John Smith 17

3

65

John Smith 2

06/04/1975

G

9A-5P - (30 GROC)

C61C

0

158

S/S

LIFT

Lift Time

9:00 PM

Lift Time

10:00 PM

4

57

John Smith 3

11/22/1976

G

9A-5P - (30 GROC)

C61C

B

117

S/S

BAILER

Dept

C65L

Dept

C65L

5

111

John Smith 4

09/28/1977

G

9A-5P - (30 GROC)

C61C

0

150

S/S

REC

6

163

John Smith 5

01/29/1978

D

7A-5P - (07 DAIRY)

C65D

R

204

S/TH/S

LOAD

7

132

John Smith 6

03/19/1978

P

10A-6P - (62 PERISH)

C65L

B

303

S/S

LIFT

8

285

John Smith 7

05/15/1979

G

9A-5P - (30 GROC)

C61C

0

151

S/S

GW

9

283

John Smith 8

05/16/1979

G

9A-5P - (30 GROC)

C61C

1

157

S/S

GW

10

304

John Smith 9

06/12/1979

G

9A-5P - (30 GROC)

C61C

1

190

S/S

JAN

11

380

John Smith 10

08/27/1979

A

P

10A-6P - (62 PERISH)

C65L

1

353

S/S

LIFT

12

383

John Smith 11

08/28/1979

G

9A-5P - (30 GROC)

C61C

B

100

S/S

LIFT

13

400

John Smith 12

09/18/1979

P

10A-8P - (61 PERISH)

C65L

B

202

S/S

LIFT

14

415

John Smith 13

10/03/1979

P

10A-6P - (62 PERISH)

C65L

B

303

S/S

LIFT

15

416

John Smith 14

10/08/1979

G

9A-5P - (30 GROC)

C61C

1

190

S/S

JAN

16

445

John Smith 15

11/15/1979

G

9A-5P - (30 GROC)

C61C

B

100

S/S

LIFT

17

515

John Smith 16

07/08/1980

P

10A-8P - (61 PERISH)

C65L

B

201

S/S

DMG/RCP

18

545

John Smith 17

09/22/1980

A

P

10A-8P - (61 PERISH)

C65L

0

351

S/S

REC

19

80

John Smith 18

02/02/1981

D

7A-5P - (02 DAIRY)

C65D

Q

203

S/W/S

LIFT

20

94

John Smith 19

02/16/1981

P

10A-8P - (61 PERISH)

C65L

Q

326

S/W/S

LOAD

21

566

John Smith 20

03/10/1981

P

10A-8P - (61 PERISH)

C65L

B

102

S/S

DMG/RCP

Sheet1

Try:

VBA Code:

Sub PopulateNames()
    Application.ScreenUpdating = False
    Dim v As Variant, i As Long, rName As Range, rName2 As Range
    If Range("S2") = "" Then
        Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("P4") Then
                Cells(Rows.Count, "P").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
    Else
        Set rName = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("S4") Then
                Cells(Rows.Count, "S").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
        Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole)
        Set rName2 = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1 & ":B" & rName2.Row).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("P4") Then
                Cells(Rows.Count, "P").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
    End If
    Application.ScreenUpdating = True
End Sub

bh24524 · Dec 31, 2023

mumps said:
Your data should look like this:

Book1
A B C D E F G H I J K L M N O P Q R S
1 NO. EMPLOYEE SEN. DATE SEN. ORDER WHSE START TIME Code SCH DAYS OFF BID Mando 1 Mando 2
2 112 John Smith 1 09/08/1970 D 7A-3P - (00 DAIRY) C65D B 202 S/S LIFT Name John Smith 10 Name John Smith 17
3 65 John Smith 2 06/04/1975 G 9A-5P - (30 GROC) C61C 0 158 S/S LIFT Lift Time 9:00 PM Lift Time 10:00 PM
4 57 John Smith 3 11/22/1976 G 9A-5P - (30 GROC) C61C B 117 S/S BAILER Dept C65L Dept C65L
5 111 John Smith 4 09/28/1977 G 9A-5P - (30 GROC) C61C 0 150 S/S REC
6 163 John Smith 5 01/29/1978 D 7A-5P - (07 DAIRY) C65D R 204 S/TH/S LOAD
7 132 John Smith 6 03/19/1978 P 10A-6P - (62 PERISH) C65L B 303 S/S LIFT
8 285 John Smith 7 05/15/1979 G 9A-5P - (30 GROC) C61C 0 151 S/S GW
9 283 John Smith 8 05/16/1979 G 9A-5P - (30 GROC) C61C 1 157 S/S GW
10 304 John Smith 9 06/12/1979 G 9A-5P - (30 GROC) C61C 1 190 S/S JAN
11 380 John Smith 10 08/27/1979 A P 10A-6P - (62 PERISH) C65L 1 353 S/S LIFT
12 383 John Smith 11 08/28/1979 G 9A-5P - (30 GROC) C61C B 100 S/S LIFT
13 400 John Smith 12 09/18/1979 P 10A-8P - (61 PERISH) C65L B 202 S/S LIFT
14 415 John Smith 13 10/03/1979 P 10A-6P - (62 PERISH) C65L B 303 S/S LIFT
15 416 John Smith 14 10/08/1979 G 9A-5P - (30 GROC) C61C 1 190 S/S JAN
16 445 John Smith 15 11/15/1979 G 9A-5P - (30 GROC) C61C B 100 S/S LIFT
17 515 John Smith 16 07/08/1980 P 10A-8P - (61 PERISH) C65L B 201 S/S DMG/RCP
18 545 John Smith 17 09/22/1980 A P 10A-8P - (61 PERISH) C65L 0 351 S/S REC
19 80 John Smith 18 02/02/1981 D 7A-5P - (02 DAIRY) C65D Q 203 S/W/S LIFT
20 94 John Smith 19 02/16/1981 P 10A-8P - (61 PERISH) C65L Q 326 S/W/S LOAD
21 566 John Smith 20 03/10/1981 P 10A-8P - (61 PERISH) C65L B 102 S/S DMG/RCP
Sheet1

Try:

VBA Code:

Sub PopulateNames() Application.ScreenUpdating = False Dim v As Variant, i As Long, rName As Range, rName2 As Range If Range("S2") = "" Then Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole) v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value For i = LBound(v) To UBound(v) If v(i, 6) = Range("P4") Then Cells(Rows.Count, "P").End(xlUp).Offset(1) = v(i, 1) End If Next i Else Set rName = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole) v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value For i = LBound(v) To UBound(v) If v(i, 6) = Range("S4") Then Cells(Rows.Count, "S").End(xlUp).Offset(1) = v(i, 1) End If Next i Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole) Set rName2 = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole) v = Range("B" & rName.Row + 1 & ":B" & rName2.Row).Resize(, 6).Value For i = LBound(v) To UBound(v) If v(i, 6) = Range("P4") Then Cells(Rows.Count, "P").End(xlUp).Offset(1) = v(i, 1) End If Next i End If Application.ScreenUpdating = True End Sub

Thanks mumps, I've tested this on my sample and it seems to work. I'll be testing it on the larger file when I get back in the office this week. Will let you know if any issues.

bh24524 · Jan 2, 2024

It appears to be in working order. I adjusted the coding so the names would appear one column to the left of where they were. I tried a scenario with two sets of mando lift times and everyone inside seniority date range was appearing both lists, so that is excellent. I did edit the code to sort both name sections in alphabetical order though. I came up with:

VBA Code:

Option Explicit

Sub PopulateMandoNames()
    Dim last_row As Long
    last_row = Cells(Rows.Count, 5).End(xlUp).Row
    Application.ScreenUpdating = False
    Range("O5", Range("P5").End(xlDown)).ClearContents
    Range("R5", Range("R5").End(xlDown)).ClearContents
    Dim v As Variant, i As Long, rName As Range, rName2 As Range
    If Range("S2") = "" Then
        Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("P4") Then
                Cells(Rows.Count, "O").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
    Else
        Set rName = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("S4") Then
                Cells(Rows.Count, "R").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
        Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole)
        Set rName2 = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1 & ":B" & rName2.Row).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("P4") Then
                Cells(Rows.Count, "O").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
    End If
    Range("O5", Range("O5").End(xlDown)).Select
    ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Add2 Key:=Range("O5:O" & last_row), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Bids").Sort
        .SetRange Range("O5", Range("O5").End(xlDown))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("R5", Range("R5").End(xlDown)).Select
    ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Add2 Key:=Range("R5:R" & last_row), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Bids").Sort
        .SetRange Range("R5", Range("R5").End(xlDown))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.ScreenUpdating = True
   

End Sub

Just want to bold the changes I've done:
Dim last_row As Long
last_row = Cells(Rows.Count, 5).End(xlUp).Row
& also below
Range("O5", Range("O5").End(xlDown)).Select
ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Add2 Key:=Range("O5:O" & last_row), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Bids").Sort
.SetRange Range("O5", Range("O5").End(xlDown))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("R5", Range("R5").End(xlDown)).Select
ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Add2 Key:=Range("R5:R" & last_row), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Bids").Sort
.SetRange Range("R5", Range("R5").End(xlDown))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

It does the job and sorts the selection as I want, so that's fantastic. I am wondering though if when you or someone else might have time if you could look to see if I have any extra unnecessary coding in the sorting. I am trying to learn how to make concise coding and I do use sections of coding across different macros, so if I can learn more concise ways, then I apply those to any future coding that I do. Thank you so much for your time!

mumps · Jan 3, 2024

This is a little more concise:

VBA Code:

With Sheets("Bids").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("P5", Range("P" & Rows.Count).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("P4", Range("P" & Rows.Count).End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With Sheets("Bids").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("S5", Range("S" & Rows.Count).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("S4", Range("S" & Rows.Count).End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

bh24524 · Jan 5, 2024

Sorry for delay, I noticed something isn't working right after all. First, here is the code I used that is combining your original with the concise coding that alphabetizes:

VBA Code:

Sub PopulateNames()
    Application.ScreenUpdating = False
    Dim v As Variant, i As Long, rName As Range, rName2 As Range
    If Range("S2") = "" Then
        Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("P4") Then
                Cells(Rows.Count, "P").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
    Else
        Set rName = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("S4") Then
                Cells(Rows.Count, "S").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
        Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole)
        Set rName2 = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1 & ":B" & rName2.Row).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("P4") Then
                Cells(Rows.Count, "P").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
    End If
    With Sheets("Bids").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("P5", Range("P" & Rows.Count).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("P4", Range("P" & Rows.Count).End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With Sheets("Bids").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("S5", Range("S" & Rows.Count).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("S4", Range("S" & Rows.Count).End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.ScreenUpdating = True
End Sub

I re-sorted my overall list to not be in seniority order but alphabetical order. Ideally, the list needs to be in alpha order, but I think that is what is causing this to not work properly. I apologize, if I had known that would affect things this way, I would have had it sorted that way from the get-go. I wish I could use XL2BB on this machine but it is forbidden to download, so I have to copy and paste. Here is what my full ACTUAL data set looks like:

NO.

EMPLOYEE

SEN. DATE

SEN. ORDER

WHSE

START TIME

Code

SCH

DAYS OFF

BID

Mando 1

Mando 2

542

ARNOLD, D

10/21/2016

A

P

10A-6P - (62 PERISH)

C65L

B

301

S/S

LOAD

Name

KOWALSKI, M

Name

VRBANIC, L

337

BALCHAK, T

03/12/1989

G

9A-5P - (30 GROC)

C61C

B

100

S/S

LIFT

Lift Time

8:00 PM

Lift Time

9:00 PM

415

BALKO, D

10/03/1979

P

10A-6P - (62 PERISH)

C65L

B

303

S/S

LIFT

Dept

C61C

Dept

C61C

312

BALOGA, R

07/29/1990

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

LABRYER, L

WALDRON, D

67

BALON, C

03/31/2022

A

G

9A-7P - (34 GROC)

C61C

5

104

M/T/S

GW

LASKEY, R

871

BANASICK, D

01/28/2019

A

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

LECHNER, C

500

BARKLEY, R

04/30/1987

P

10A-6P - (62 PERISH)

C65L

B

303

S/S

LIFT

LONG, D

915

BASSALY, J

01/27/2022

E

P

10A-8P - (78 PERISH)

C65L

G

324

T/W/TH

GW

MAGILL, J

346

BAUGH, J

05/03/2023

B

P

10A-6P - (71 PERISH)

C65L

F

314

F/S

GW

MARDIS, J

375

BAYURA, R

03/30/1989

G

11P-7A - (38 GROC)

C61QJ

1

190

S/S

JAN

MARINCHAK, A

250

BELTZ, J

09/20/1988

P

10A-6P - (62 PERISH)

C65L

B

310

S/S

FR DMG/RCP

MCMAHAN, S

699

BIGGIE, L

09/25/2017

B

P

10A-8P - (78 PERISH)

C65L

G

324

T/W/TH

GW

MICKINAC, T

812

BORKOVICH, N

05/07/1993

P

10A-6P - (62 PERISH)

C65L

B

301

S/S

LOAD

MOLEK, P

649

BROWN, H

07/29/2021

F

P

11P-7A - (69 PERISH)

C67G

1

354

S/S

FR LIFT

NOVAK, D

688

BROWN, R

06/26/2011

H

G

9A-7P - (41 GROC)

C61C

U

110

S/T/W

GW

PARKS, E

111

BRYNER, D

09/28/1977

G

10P-6A - (36 GROC)

C61Q

0

150

S/S

REC

PATTERSON, J

724

BRYNER, M

10/02/1992

G

11P-7A - (38 GROC)

C61Q

1

156

S/S

LIFT

PATTERSON, M

883

BUCZKO, A

10/19/2014

I

P

10A-6P - (62 PERISH)

C65L

B

311

S/S

TRAINER

PHILLIPS, T

209

BURKLEY, B

09/28/1981

P

10A-8P - (61 PERISH)

C65L

Q

326

S/W/S

LOAD

POSPISIL, T

913

CAMPBELL, J

03/04/2019

E

G

9A-7P - (40 GROC)

C61C

T

109

S/T/S

GW

PROVANCE, D

163

CAMPBELL, S

01/29/1978

D

7A-5P - (07 DAIRY)

C65D

R

204

S/TH/S

LOAD

PULIDO, C

113

CANGCO, D

08/19/2021

B

G

9A-7P - (40 GROC)

C61C

T

109

S/T/S

GW

RAUCH, J

897

CARNES, A

03/04/2019

C

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

RENO, A

94

CERVI, S

02/16/1981

P

10A-8P - (61 PERISH)

C65L

Q

326

S/W/S

LOAD

ROSADO, X

721

CHURCHFIELD, J

02/26/2018

B

P

11P-7A - (69 PERISH)

C67G

1

355

S/S

GW

SEMON, J

826

CISLO, P

10/07/2021

E

G

9A-7P - (34 GROC)

C61C

5

104

M/T/S

GW

SHAFFER, H

610

CLARK, T

08/19/1987

A

G

11P-7A - (38 GROC)

C61Q

1

157

S/S

GW

SIKORA, M

282

COBB, T

01/11/2023

H

D

7A-3P - (12 DAIRY)

C65D

D

215

W/S

GW

SIMCOKE, B

296

CONNER ZACHARY,

02/01/2023

B

G

9A-5P - (47 GROC)

C61C

C

118

T/S

GW

SMAIL, J

934

COTTRELL, S

02/03/2022

E

D

7A-5P - (01 DAIRY)

C65D

3

205

TH/F/S

GW

SMITH, R

472

COUCH, S

06/26/1989

D

11P-7A - (03 DAIRY)

C65S

1

250

S/S

REC

STAFFORD, J

195

COX, D

06/28/2015

A

G

11P-7A - (38 GROC)

C61Q

1

157

S/S

GW

STEYER, T

436

CREPPS, C

02/15/2021

B

G

9A-7P - (41 GROC)

C61C

U

110

S/T/W

GW

TLUMACK, J

80

CRIBBS, M

02/02/1981

D

7A-5P - (02 DAIRY)

C65D

Q

203

S/W/S

LIFT

TOBIAS, M

545

CROWE, T

09/22/1980

A

P

10P-6A - (68 PERISH)

C67G

0

351

S/S

REC

TRIMMER, L

221

DAUGHERTY, C

10/07/2022

A

D

7A-5P - (06 DAIRY)

C65D

5

209

M/T/S

GW

UNDERWOOD, Z

309

DEAN, E

03/01/2023

A

P

10A-6P - (71 PERISH)

C65L

F

314

F/S

GW

VRBANIC, L

916

DENEZZA, J

12/04/1985

D

7A-5P - (13 DAIRY)

C65D

J

216

S/F/S

TRAINER

112

DEPAUL, M

09/08/1970

D

7A-3P - (00 DAIRY)

C65D

B

202

S/S

LIFT

896

DEWITT, P

10/26/1993

P

10A-6P - (62 PERISH)

C65L

B

301

S/S

LOAD

297

DISKIN, T

02/08/2023

D

P

10A-6P - (73 PERISH)

C65L

2

316

S/M

GW

405

DOLEKARY, R

01/25/2021

A

P

10A-8P - (70 PERISH)

C65L

K

312

W/F/S

GW

470

DORNIN, B

03/22/2021

D

G

11P-7A - (38 GROC)

C61Q

1

156

S/S

LIFT

310

DOYLE, C

03/01/2023

D

P

10A-6P - (71 PERISH)

C65L

F

314

F/S

GW

773

DULAK, G

07/11/1985

G

9A-5P - (30 GROC)

C61C

B

100

S/S

LIFT

879

DZAMBO, J

10/19/2014

E

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

219

EBBERT, C

10/07/2022

C

G

9A-7P - (34 GROC)

C61C

5

104

M/T/S

GW

977

EPPLEY, J

09/26/2019

D

P

10A-6P - (62 PERISH)

C65L

B

304

S/S

FR LIFT

740

ESLARY, D

04/12/1985

P

11P-7A - (69 PERISH)

C67GJ

1

391

S/S

JAN

171

FAGAN, C

12/11/2022

G

9A-5P - (48 GROC)

C61C

9

119

H/S

GW

734

FARALLY, A

03/12/2018

A

G

11P-7A - (38 GROC)

C61Q

1

156

S/S

LIFT

951

FAWCETT, B

02/22/2015

B

D

7A-5P - (04 DAIRY)

C65D

K

208

W/F/S

GW

124

FERRARI, G

05/04/2022

P

10A-6P - (73 PERISH)

C65L

2

316

S/M

GW

212

FIRMSTONE, W

07/05/1988

A

G

11A-7P - (37 GROC)

C61C

8

152

S/S

LOAD

358

FULTON, D

05/31/2023

B

P

10A-6P - (73 PERISH)

C65L

2

316

S/M

GW

557

GABORKO, A

10/26/1989

G

11P-7A - (38 GROC)

C61Q

1

156

S/S

LIFT

508

GEYER, S

06/26/2011

E

G

9A-7P - (33 GROC)

C61C

R

112

S/TH/S

LIFT

301

GIBSON, G

11/15/1988

P

10A-8P - (61 PERISH)

C65L

Q

322

S/W/S

FR LIFT

873

GIGLIOTTI, T

10/19/2014

A

G

9A-7P - (35 GROC)

C61C

3

105

TH/F/S

GW

750

GIULIANI, C

09/16/2021

F

G

9A-7P (46 GROC)

C61C

G

116

T/W/TH

GW

168

GLASS, J

08/04/2013

P

10A-6P - (73 PERISH)

C65L

2

316

S/M

GW

823

GOWAN, M

10/07/2021

G

P

11P-7A - (69 PERISH)

C67G

1

355

S/S

GW

374

GREGOR, D

10/28/1986

A

P

10A-8P - (70 PERISH)

C65L

K

312

W/F/S

GW

530

GRUSKA, J

11/24/1991

G

9A-7P - (35 GROC)

C61C

3

105

TH/F/S

GW

756

GUTH, B

06/04/2018

A

G

9A-7P - (35 GROC)

C61C

3

105

TH/F/S

GW

960

HAGGERTY, C

02/17/2022

D

G

9A-7P - (42 GROC)

C61C

M

111

T/F/S

GW

207

HAIR, N

08/09/2015

A

P

10A-8P - (63 PERISH)

C65L

3

305

TH/F/S

GW

669

HALL, N

08/05/2021

B

G

9A-5P - (43 GROC)

C61C

F

113

F/S

GW

285

HARBAUGH, F

05/15/1979

G

10P-6A - (36 GROC)

C61Q

0

151

S/S

GW

276

HARRIS, J

09/17/1981

P

11P-7A - (69 PERISH)

C67G

1

352

S/S

DMG/RCP

681

HARRISON, J

07/07/1992

D

11P-7A - (03 DAIRY)

C65S

1

251

S/S

GW

295

HARROLD, J

11/10/1988

B

P

11P-7A - (69 PERISH)

C67G

1

356

S/S

REC

86

HASSINGER, N

04/02/2020

B

P

10A-8P - (70 PERISH)

C65L

K

312

W/F/S

GW

277

HEFT, C

01/11/2023

A

G

9A-7P (46 GROC)

C61C

G

116

T/W/TH

GW

274

HEFT, W

08/10/2022

A

G

9A-7P (46 GROC)

C61C

G

116

T/W/TH

GW

383

HELMAN, D

08/28/1979

G

9A-5P - (30 GROC)

C61C

B

100

S/S

LIFT

570

HETHERINGTON, W

12/02/2016

G

P

10A-8P - (70 PERISH)

C65L

K

312

W/F/S

GW

864

HIXSON, D

10/12/2014

L

G

9A-5P - (30 GROC)

C61C

B

100

S/S

LIFT

725

HIXSON, L

03/01/1988

D

11P-7A - (03 DAIRY)

C65S

1

251

S/S

GW

256

HOFFER, G

09/27/1988

P

11P-7A - (69 PERISH)

C67G

1

355

S/S

GW

658

HOLOMAN, R

10/26/1987

G

9A-5P - (30 GROC)

C61C

B

100

S/S

LIFT

575

HOLT, T

12/02/2016

M

P

10A-6P - (62 PERISH)

C65L

B

301

S/S

LOAD

147

HONSE, M

06/08/2022

B

G

9A-5P - (48 GROC)

C61C

9

119

H/S

GW

412

HORNER, N

09/06/2023

B

G

9A-5P - (47 GROC)

C61C

C

118

T/S

GW

363

HORVAT, M

10/19/1986

G

11P-7A - (38 GROC)

C61Q

1

156

S/S

LIFT

482

HOUSTON, R

09/18/2016

S

P

10A-6P - (62 PERISH)

C65L

B

304

S/S

FR LIFT

55

HRUTKAY, N

03/24/2022

D

P

10A-6P - (75 PERISH)

C65L

D

319

W/S

GW

234

HUDEC, R

07/09/1986

G

9A-5P - (30 GROC)

C61C

B

101

S/S

LOAD

116

HURLEY, T

04/27/2022

E

P

10A-8P - (65 PERISH)

C65L

6

307

T/W/S

GW

139

HURST, M

05/10/2015

B

G

11P-7A - (38 GROC)

C61Q

1

156

S/S

LIFT

891

JAMISON, J

11/02/2014

D

P

10A-6P - (62 PERISH)

C65L

B

301

S/S

LOAD

373

JAMISON, T

06/05/2016

A

G

11P-7A - (38 GROC)

C61QJ

1

190

S/S

JAN

270

JEFFERS, D

01/11/2023

G

9A-5P - (47 GROC)

C61C

C

118

T/S

GW

95

JOHNSON, C

04/13/2022

F

G

9A-7P (46 GROC)

C61C

G

116

T/W/TH

GW

627

JOHNSTON, J

09/03/1987

P

11P-7A - (69 PERISH)

C67G

1

356

S/S

REC

74

JONES, C

03/31/2022

D

P

10A-8P - (78 PERISH)

C65L

G

324

T/W/TH

GW

324

JONES, D

12/04/1988

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

739

JONES, D

10/15/1992

B

P

11P-7A - (69 PERISH)

C67GJ

1

390

S/S

FR JAN

258

JONES, J

10/25/2015

A

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

175

KATONA, T

08/03/2020

B

P

10A-8P - (65 PERISH)

C65L

6

307

T/W/S

GW

515

KELLEY, D

07/08/1980

D

7A-3P - (00 DAIRY)

C65D

B

201

S/S

DMG/RCP

330

KERNICKY, M

11/10/1981

P

11P-7A - (69 PERISH)

C67G

1

353

S/S

LIFT

955

KING, B

08/01/2019

A

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

912

KINNICK, D

11/18/1985

A

G

9A-7P - (33 GROC)

C61C

R

107

S/TH/S

LOAD

887

KITE, B

11/02/2014

A

G

9A-7P - (35 GROC)

C61C

3

105

TH/F/S

GW

945

KLINE, T

02/08/2015

B

G

9A-7P - (35 GROC)

C61C

3

105

TH/F/S

GW

621

KOONTZ, W

08/31/1987

A

P

11P-7A - (69 PERISH)

C67GJ

1

391

S/S

JAN

572

KOTYUHA, D

07/08/2021

E

D

7A-5P - (01 DAIRY)

C65D

3

205

TH/F/S

GW

448

KOWALSKI, M

08/28/2016

B

G

9A-7P - (32 GROC)

C61C

7

103

W/TH/S

GW

176

KUNSA, B

08/24/2022

D

P

10A-8P - (78 PERISH)

C65L

G

324

T/W/TH

GW

36

LABRYER, L

03/10/2022

B

G

9A-5P - (43 GROC)

C61C

F

113

F/S

GW

984

LAGO, M

05/16/1986

P

10A-8P - (65 PERISH)

C65L

6

307

T/W/S

GW

736

LANCASTER, L

07/13/2014

B

P

10A-8P - (65 PERISH)

C65L

6

307

T/W/S

GW

326

LANE, D

12/06/1988

P

11P-7A - (69 PERISH)

C67GJ

1

391

S/S

JAN

566

LASKEY, R

03/10/1981

G

9A-5P - (30 GROC)

C61C

B

102

S/S

DMG/RCP

703

LAUFFER, D

01/11/1988

G

11P-7A - (38 GROC)

C61QJ

1

190

S/S

JAN

603

LAWVER, J

08/07/1987

G

11P-7A - (38 GROC)

C61Q

1

154

S/S

LOAD

205

LECHNER, C

09/28/2022

B

G

9A-5P - (43 GROC)

C61C

F

113

F/S

GW

702

LOCK, R

01/04/1988

P

10A-8P - (66 PERISH)

C65L

7

308

W/TH/S

GW

386

LOCKE, T

04/19/1989

D

11P-7A - (03 DAIRY)

C65S

1

252

S/S

LIFT

57

LONG, D

11/22/1976

G

9A-5P - (30 GROC)

C61C

B

117

S/S

BAILER

501

LOUCKS, B

10/02/2016

B

G

11P-7A - (38 GROC)

C61Q

1

156

S/S

LIFT

715

LOUGHNER, W

04/17/1990

P

11P-7A - (69 PERISH)

C67G

1

355

S/S

GW

32

LOWERY, B

03/10/2022

C

P

10A-8P - (65 PERISH)

C65L

6

307

T/W/S

GW

884

LUCARELLI, J

01/13/2022

D

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

652

LUCARELLI, M

06/26/2011

F

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

302

MAGILL, J

02/08/2023

C

G

9A-5P - (48 GROC)

C61C

9

119

H/S

GW

638

MARDIS, J

07/22/2021

E

G

9A-7P - (34 GROC)

C61C

5

104

M/T/S

GW

957

MARINCHAK, A

02/17/2022

B

G

9A-5P - (43 GROC)

C61C

F

113

F/S

GW

280

MATSKO, R

10/05/1981

P

11P-7A - (69 PERISH)

C67GJ

1

391

S/S

JAN

65

MCCLAIN, B

06/04/1975

G

10P-6A - (36 GROC)

C61Q

0

158

S/S

LIFT

118

MCKINLEY, C

04/27/2022

F

P

10A-6P - (71 PERISH)

C65L

F

314

F/S

GW

349

MCMAHAN, S

05/03/2023

D

G

9A-5P - (48 GROC)

C61C

9

119

H/S

GW

107

MEHALIK, S

03/29/2015

B

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

316

MELLINGER, D

11/15/1982

D

7A-3P - (00 DAIRY)

C65DJ

B

240

S/S

JAN

693

MELOCCHI, A

02/08/1985

P

11P-7A - (69 PERISH)

C67G

1

353

S/S

LIFT

278

MEYER, B

01/11/2023

D

7A-3P - (12 DAIRY)

C65D

D

215

W/S

GW

854

MEZEIVTCH, J

11/04/2021

B

P

10A-8P - (78 PERISH)

C65L

G

324

T/W/TH

GW

684

MICKINAC, T

01/09/1985

G

9A-5P - (30 GROC)

C61C

B

120

S/S

GW

687

MOLEK, P

08/21/2017

C

G

9A-7P - (34 GROC)

C61C

5

104

M/T/S

GW

200

MOWRY, I

09/21/2022

B

D

7A-3P - (11 DAIRY)

C65D

2

214

S/M

GW

842

MURPHY, A

09/10/2018

C

P

10A-8P - (63 PERISH)

C65L

3

305

TH/F/S

GW

450

NAPLES, J

03/13/1984

G

9A-5P - (30 GROC)

C61CJ

B

140

S/S

JAN

877

NOVAK, D

11/15/1985

G

9A-5P - (30 GROC)

C61C

B

120

S/S

GW

376

OHLER, D

01/04/2021

C

D

11P-7A - (03 DAIRY)

C65S

1

251

S/S

GW

648

PALMER, R

10/08/1987

P

10A-6P - (62 PERISH)

C65L

B

301

S/S

LOAD

283

PANICHELLA, M

05/16/1979

G

11P-7A - (38 GROC)

C61Q

1

157

S/S

GW

356

PARKINSON, A

05/31/2023

A

P

10A-6P - (71 PERISH)

C65L

F

314

F/S

GW

408

PARKS, E

07/31/2016

G

9A-7P (46 GROC)

C61C

G

116

T/W/TH

GW

399

PATRICK, R

11/19/1986

P

11P-7A - (69 PERISH)

C67G

1

353

S/S

LIFT

321

PATTERSON, J

03/29/2023

D

G

9A-5P - (48 GROC)

C61C

9

119

H/S

GW

239

PATTERSON, M

10/18/2015

A

G

9A-7P - (40 GROC)

C61C

T

109

S/T/S

GW

235

PAWLIKOWSKY, R

08/21/1988

P

10A-6P - (62 PERISH)

C65LJ

B

341

S/S

FR JAN

505

PEREZ, L

04/19/2021

D

11P-7A - (03 DAIRY)

C65S

1

252

S/S

LIFT

279

PERRY, S

08/20/1986

G

9A-5P - (30 GROC)

C61CJ

B

140

S/S

JAN

495

PETRAS, J

09/18/2016

C

G

11P-7A - (38 GROC)

C61Q

1

156

S/S

LIFT

567

PHILLIPS, T

03/11/1981

G

9A-5P - (30 GROC)

C61C

B

102

S/S

DMG/RCP

825

POLOGRUTO, D

10/07/2021

H

D

7A-5P - (04 DAIRY)

C65D

K

208

W/F/S

GW

686

POSPISIL, T

08/19/2021

G

9A-7P (46 GROC)

C61C

G

116

T/W/TH

GW

323

PRIEST, T

03/29/2023

C

P

10A-6P - (73 PERISH)

C65L

2

316

S/M

GW

911

PROVANCE, D

11/18/1985

B

G

9A-7P - (50 GROC)

C61C

J

122

S/F/S

TRAINER

593

PULIDO, C

07/22/2021

A

G

9A-7P - (42 GROC)

C61C

M

111

T/F/S

GW

416

RADEBAUGH, W

10/08/1979

G

11P-7A - (38 GROC)

C61QJ

1

190

S/S

JAN

640

RAUCH, J

07/22/2021

C

G

9A-7P (46 GROC)

C61C

G

116

T/W/TH

GW

953

RAY, L

02/22/2015

C

D

7A-5P - (06 DAIRY)

C65D

5

209

M/T/S

GW

432

REHE, J

05/21/1989

G

10P-6A - (36 GROC)

C61Q

0

151

S/S

GW

445

RENO, A

11/15/1979

G

9A-5P - (30 GROC)

C61C

B

100

S/S

LIFT

49

REYNOLDS, M

03/17/2022

A

P

10A-8P - (65 PERISH)

C65L

6

307

T/W/S

GW

304

RHODES, R

06/12/1979

G

11P-7A - (38 GROC)

C61QJ

1

190

S/S

JAN

314

RIGGIN, V

06/21/1993

P

11P-7A - (69 PERISH)

C67G

1

354

S/S

FR LIFT

423

RIVA, H

06/20/2021

A

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

69

ROBISON, D

03/31/2022

B

P

10A-6P - (73 PERISH)

C65L

2

316

S/M

GW

233

ROSADO, X

10/19/2022

A

G

9A-5P - (43 GROC)

C61C

F

113

F/S

GW

220

ROSS, M

09/13/2015

E

G

11P-7A - (38 GROC)

C61Q

1

157

S/S

GW

446

RUDY, K

01/18/1982

B

G

11P-7A - (38 GROC)

C61Q

1

155

S/S

REC

780

RUTKOWSKY, F

06/26/2011

C

P

11P-7A - (69 PERISH)

C67G

1

355

S/S

GW

465

SAIN, N

08/28/2016

I

P

10A-8P - (63 PERISH)

C65L

3

305

TH/F/S

GW

186

SCHARTIGER, D

08/17/2020

D

P

11P-7A - (69 PERISH)

C67G

1

355

S/S

GW

453

SEMAN, J

08/28/2016

L

P

10A-8P - (65 PERISH)

C65L

6

307

T/W/S

GW

237

SEMON, J

08/18/1988

G

9A-7P - (34 GROC)

C61C

5

104

M/T/S

GW

772

SHAFFER, H

07/08/1985

A

G

9A-5P - (30 GROC)

C61C

B

101

S/S

LOAD

552

SHAFFER, S

07/30/1989

G

11P-7A - (38 GROC)

C61Q

1

156

S/S

LIFT

629

SHIELDS, K

02/08/1990

P

10A-8P - (63 PERISH)

C65L

3

305

TH/F/S

GW

722

SHUPE, K

07/19/1990

G

11P-7A - (38 GROC)

C61Q

1

157

S/S

GW

704

SIKORA, M

03/19/1990

G

9A-7P - (40 GROC)

C61C

T

109

S/T/S

GW

606

SIMCOKE, B

03/07/2014

A

G

9A-7P - (32 GROC)

C61C

7

103

W/TH/S

GW

334

SKVAREK, B

05/22/1992

P

11P-7A - (69 PERISH)

C67G

1

355

S/S

GW

749

SLATOSKY, R

07/08/1985

B

P

10A-6P - (62 PERISH)

C65LJ

B

340

S/S

JAN

858

SMAIL, J

10/12/2014

H

G

9A-7P - (32 GROC)

C61C

7

103

W/TH/S

GW

876

SMITH, C

01/06/2022

A

D

7A-5P - (01 DAIRY)

C65D

3

205

TH/F/S

GW

637

SMITH, D

09/20/1987

P

10A-6P - (62 PERISH)

C65L

B

303

S/S

LIFT

458

SMITH, R

07/07/2013

G

11A-7P - (37 GROC)

C61C

8

152

S/S

LOAD

642

STAFFORD, J

05/25/2014

G

9A-7P - (31 GROC)

C61C

6

106

T/W/S

GW

949

STANGE, D

02/17/1986

B

G

11P-7A - (38 GROC)

C61Q

1

161

S/S

DMG/RCP

273

STEFL, J

10/18/1988

P

11P-7A - (69 PERISH)

C67G

1

354

S/S

FR LIFT

269

STEPINSKY, J

08/12/1986

P

11P-7A - (69 PERISH)

C67G

1

353

S/S

LIFT

197

STEYER, A

06/28/2015

B

G

11P-7A - (38 GROC)

C61Q

1

156

S/S

LIFT

267

STEYER, T

10/05/1988

G

11A-7P - (37 GROC)

C61C

8

152

S/S

LOAD

320

STITELY, S

11/30/1988

P

10A-6P - (62 PERISH)

C65L

B

301

S/S

LOAD

400

STOREY, J

09/18/1979

D

7A-3P - (00 DAIRY)

C65D

B

202

S/S

LIFT

742

SULLENBERGER, D

05/14/1990

P

10A-6P - (62 PERISH)

C65L

B

301

S/S

LOAD

434

TAFT, L

01/28/1987

P

10A-6P - (62 PERISH)

C65LJ

B

340

S/S

JAN

888

THOMAS, C

01/13/2022

C

D

7A-5P - (05 DAIRY)

C65D

P

206

S/W/TH

GW

407

THOMAS, D

06/26/2011

D

P

10A-8P - (66 PERISH)

C65L

7

308

W/TH/S

GW

114

TLUMACK, J

04/12/2015

A

G

9A-7P - (32 GROC)

C61C

7

103

W/TH/S

GW

47

TOBIAS, M

12/09/2019

D

G

9A-7P - (40 GROC)

C61C

T

109

S/T/S

GW

351

TRIMMER, L

05/10/2023

A

G

9A-5P - (47 GROC)

C61C

C

118

T/S

GW

380

TROUT, R

08/27/1979

A

P

11P-7A - (69 PERISH)

C67G

1

353

S/S

LIFT

833

TUCCARELLO, B

09/11/1987

P

10A-8P - (63 PERISH)

C65L

3

305

TH/F/S

GW

341

UNDERWOOD, Z

04/26/2023

C

G

9A-5P - (47 GROC)

C61C

C

118

T/S

GW

986

URCH, M

10/09/1991

P

11P-7A - (69 PERISH)

C67G

1

354

S/S

FR LIFT

78

VALLORANI, J

06/23/1986

B

P

10P-6A - (68 PERISH)

C67G

0

350

S/S

GW

605

VITALBO, J

08/12/1987

D

7A-3P - (00 DAIRY)

C65D

B

200

S/S

LOAD

204

VRBANIC, L

09/28/2022

A

G

9A-5P - (43 GROC)

C61C

F

113

F/S

GW

503

WALDRON, D

09/03/1989

G

9A-5P - (30 GROC)

C61C

B

100

S/S

LIFT

259

WALTERS, K

10/25/2015

E

P

10A-6P - (62 PERISH)

C65L

B

304

S/S

FR LIFT

183

WEAVER, D

08/17/2020

B

P

10A-6P - (73 PERISH)

C65L

2

316

S/M

GW

395

WILSON, W

07/10/2016

G

P

10A-8P - (63 PERISH)

C65L

3

305

TH/F/S

GW

840

WILTROUT, C

10/12/2014

C

G

11P-7A - (38 GROC)

C61Q

1

155

S/S

REC

236

WINGARD, M

10/19/2022

C

D

7A-5P - (06 DAIRY)

C65D

5

209

M/T/S

GW

942

WINGROVE, D

06/10/2019

C

P

10A-8P - (64 PERISH)

C65L

5

306

M/T/S

GW

230

WINGROVE, R

08/16/1988

P

10A-6P - (62 PERISH)

C65L

B

318

S/S

GW

519

WINIARSKI, J

12/29/2013

G

11P-7A - (38 GROC)

C61Q

1

155

S/S

REC

421

WOOD, N

08/14/2016

B

P

11P-7A - (69 PERISH)

C67G

1

356

S/S

REC

132

WOODS, D

03/19/1978

P

10A-6P - (62 PERISH)

C65L

B

303

S/S

LIFT

244

YAROSIK, D

02/05/1983

P

10A-6P - (62 PERISH)

C65L

B

302

S/S

DMG/RCP

581

YOUNKIN, J

02/03/2014

D

7A-5P - (01 DAIRY)

C65D

3

205

TH/F/S

GW

300

ZAVAGE, R

11/13/1988

G

11P-7A - (38 GROC)

C61QJ

1

190

S/S

JAN

604

ZELMORE, B

12/07/1989

D

7A-5P - (05 DAIRY)

C65D

P

206

S/W/TH

GW

In this scenario, I used Kowalski, M for the first mando post time which was 8PM. They started in 8/28/16 and are in the C61C dept. I then have another mando post time for Vrbanic, L. for 9 PM. So this means anyone in the C61C dept. after Kowalski up to and including Vrbanic L their names should appear in the list under the first mando lift time and then anyone in C61C AFTER Vrbanic, L should appear in the second list. Based on that, I would then expect to see:

Mando 1 List
MOLEK, P
GUTH, B
CAMPBELL, J
TOBIAS, M
CREPPS, C
MARDIS, J
PULIDO, C
RAUCH, J
HALL, N
CANGCO, D
POSPISIL, T
GIULIANI, C
CISLO, P
HAGGERTY, C
MARINCHAK, A
LABRYER, L
BALON, C
JOHNSON, C
HONSE, M
HEFT, W
LECHNER, C
VRBANIC, L

All of these people are in the C61C dept. and have seniority dates AFTER Kowalski, M

Mando 2 List
EBBERT, C
ROSADO, X
FAGAN, C
HEFT, C
JEFFERS, D
CONNER ZACHARY,
MAGILL, J
PATTERSON, J
UNDERWOOD, Z
MCMAHAN, S
TRIMMER, L
HORNER, N

All of these people are in the C61C dept. and have seniority dates AFTER Vrbanic, L

In the data I pasted, I was getting people with higher seniority than Kowalski included in the Mando list 1 as you will see above. If it would be easier, I could attach the tab in a PM. Just let me know. Would it be something like incorporating sorting the master list by seniority date in the macro and then sorting back towards the end to alpha maybe? Something utilizing "CurrentRegion" maybe?

bh24524 · Jan 5, 2024

I got it. That was it. Sorting by seniority is now included in the macro and that then makes the rest of the macro work properly. Final code(Hopefully):

VBA Code:

Option Explicit

Sub PopulateMandoNames()
    Dim last_row As Long
    last_row = Cells(Rows.Count, 5).End(xlUp).Row
    Application.ScreenUpdating = False
    Range("O5", Range("P5").End(xlDown)).ClearContents
    Range("R5", Range("R5").End(xlDown)).ClearContents
    Range("A1").CurrentRegion.Select
    Range("A2").Activate
    ActiveWorkbook.Worksheets("Bids").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Bids").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
        "C2:C" & last_row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    ActiveWorkbook.Worksheets("Bids").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
        "D2:D" & last_row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Bids").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    
    Dim v As Variant, i As Long, rName As Range, rName2 As Range
    If Range("S2") = "" Then
        Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("P4") Then
                Cells(Rows.Count, "O").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
    Else
        Set rName = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("S4") Then
                Cells(Rows.Count, "R").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
        Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole)
        Set rName2 = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1 & ":B" & rName2.Row).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("P4") Then
                Cells(Rows.Count, "O").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
    End If
    Range("O5", Range("O5").End(xlDown)).Select
    ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Add2 Key:=Range("O5:O" & last_row), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Bids").Sort
        .SetRange Range("O5", Range("O5").End(xlDown))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("R5", Range("R5").End(xlDown)).Select
    ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Bids").Sort.SortFields.Add2 Key:=Range("R5:R" & last_row), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Bids").Sort
        .SetRange Range("R5", Range("R5").End(xlDown))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("A1").CurrentRegion.Select
    Range("A3").Activate
    ActiveWorkbook.Worksheets("Bids").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Bids").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
        "B2:B" & last_row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Bids").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    
    Application.ScreenUpdating = True
        

End Sub

mumps · Jan 5, 2024

Try:

VBA Code:

Sub PopulateNames()
    Application.ScreenUpdating = False
    Dim v As Variant, i As Long, rName As Range, rName2 As Range
    Range("P5", Range("P" & Rows.Count).End(xlUp)).ClearContents
    Range("S5", Range("S" & Rows.Count).End(xlUp)).ClearContents
    Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 3), TrailingMinusNumbers:=True
    Selection.NumberFormat = "mm\/dd\/yyyy"
    Cells(1, 1).Sort Key1:=Columns(3), Order1:=xlAscending, Orientation:=xlTopToBottom, Header:=xlYes
    If Range("S2") = "" Then
        Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("P4") Then
                Cells(Rows.Count, "P").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
    Else
        Set rName = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1, Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("S4") Then
                Cells(Rows.Count, "S").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
        Set rName = Range("B:B").Find(Range("P2"), LookIn:=xlValues, lookat:=xlWhole)
        Set rName2 = Range("B:B").Find(Range("S2"), LookIn:=xlValues, lookat:=xlWhole)
        v = Range("B" & rName.Row + 1 & ":B" & rName2.Row).Resize(, 6).Value
        For i = LBound(v) To UBound(v)
            If v(i, 6) = Range("P4") Then
                Cells(Rows.Count, "P").End(xlUp).Offset(1) = v(i, 1)
            End If
        Next i
    End If
    With Sheets("Bids").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("P5", Range("P" & Rows.Count).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("P4", Range("P" & Rows.Count).End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    With Sheets("Bids").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("S5", Range("S" & Rows.Count).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("S4", Range("S" & Rows.Count).End(xlUp))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Cells(1, 1).Sort Key1:=Columns(2), Order1:=xlAscending, Orientation:=xlTopToBottom, Header:=xlYes
    Application.ScreenUpdating = True
End Sub

VBA to show and change list of names depending on selection

bh24524

Active Member

Excel Facts

mumps

Well-known Member

bh24524

Active Member

bh24524

Active Member

mumps

Well-known Member

bh24524

Active Member

bh24524

Active Member

mumps

Well-known Member

Similar threads

Forum statistics

Share this page

VBA to show and change list of names depending on selection

Active Member

Excel Facts

Well-known Member

Active Member

Active Member

Well-known Member

Active Member

Active Member

Well-known 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