MACRO and duplicates

[Brown]

Good Morning,
Recently I was helped with an issue and given a solution of this Macro to run.
I am trying to take attendance the following way;
Column A will be all possible attendees
Column B will be all attendees that sign in
Column C will tell me all of the attendees that did not sign in (this is the Macro i was given)

I am good with the Macro on one sheet, and I can even open the Macro (Alt F11) and change the sheet name if i need to.

What i am wondering is this; is there are way to have multiple sheets(tabs), each new sheet will be a date (2-11, 2-13, 2-25, 2-27, 3-3, 3-5, etc...)
Is there a way to have one Macro run each days attendance while keeping the individual sheets named by date?
Will i need to change the Macro on each day to check attendance?

Thanks for the help, and please let me know if i was not very clear so i can explain better.
Brown


Sub LASSO()
Dim Ary As Variant
Dim i As Long

Ary = Sheets("LASSO").Range("b1").CurrentRegion.Value2
With CreateObject("scripting.dictionary")
For i = 2 To UBound(Ary)
If Not Ary(i, 1) = "" Then .Item(Ary(i, 1)) = Empty
Next i
For i = 2 To UBound(Ary)
If .exists(Ary(i, 2)) Then .Remove Ary(i, 2)
Next i
Sheets("LASSO").Range("c2").Resize(.Count).Value = Application.Transpose(.keys)
End With
End Sub

 

[Fluff]

Do you just want the macro to run on a single sheet, but a different one every day, or do you need it to run on multiple sheets every time?

 

[Brown]

Each day i will check the attendance, so i will be adding data to another sheet each day. I will need to check the attendance each day.
So, to answer your question, a single sheet, but a different one each day.

Thank you for the help.
Brown

 

[Fluff]

In that case you just need to remove the sheet references, that way the macro will run on the active sheet.

Sub LASSO()
   Dim Ary As Variant
   Dim i As Long
   
   Ary = Range("b1").CurrentRegion.Value2
   With CreateObject("scripting.dictionary")
      For i = 2 To UBound(Ary)
         If Not Ary(i, 1) = "" Then .Item(Ary(i, 1)) = Empty
      Next i
      For i = 2 To UBound(Ary)
         If .exists(Ary(i, 2)) Then .Remove Ary(i, 2)
      Next i
      Range("c2").Resize(.Count).Value = Application.Transpose(.Keys)
   End With
End Sub

 

[Brown]

Thank you so much. I will plug this in and make sure i can run it correctly.
Brown

 

[Fluff]

You're welcome, just ensure the sheet you want it to work on is active.

 

[Brown]

The Macro is running wonderfully, but now i have an additional question.

Once i have run the Macro and have the list of absences i need, is there a way to have those ID Numbers (absent people) cross referenced (highlighted) in another column?

So i have a list of all people that should attend (ID numbers) in column A, then all people that are present in column B, Run the Macro and get a list of all absent people in Column C
What i would like to do is have all people in Column C matched to their name in column M lets say.
How can i get one column to show if it equals something in another column might be a better question?

Thanks

 

[Fluff]

As this is a new question, it needs a new thread. Thanks

 

[Brown]

Sorry, I will make that thread now.