Attendance register

[slinger42]

I have used a UDF in my register system as shown below, and it works well.

However, I need it to ignore the characters 'O' (Thats the letter O by the way), and the character "W" if entered in a Row, and if either are entered the original date is left unchanged. In other words, the true last date of attendance is not changed if the O or the W is entered.

Function DateofLastAttendance(mDates, mTimes As Range)
Dim mCol As Integer
For Each cell In mTimes
If cell.Value <> vbNullString Then
mCol = cell.Column
End If
Next cell
DateofLastAttendance = Cells(mDates.Row, mCol)
End Function
I have tried so many ways to implement this I have become confused, and any help would be much appreciated.

Looking forward to any reply that can guide me as to how to achieve this.

Regards

 

[Micron]

Maybe the test should be more like If cell <> vbNullString And cell <> "O" And cell <> "W" ?

If that's not what you meant, copy/paste a range from a sheet that shows what you have and the result you want.

 

[slinger42]

Maybe the test should be more like If cell <> vbNullString And cell <> "O" And cell <> "W" ?

If that's not what you meant, copy/paste a range from a sheet that shows what you have and the result you want.

Ji Micron.
Many Many thanks for the suggestion. Have modified it and it works perfectly now. I just did not think to add the AND statements to the vbNullString !! Spent so much time adding and removing statements both before and after it to no avail. Can move forward now. Once again thanks ever so much !!

 

[Micron]

You marked your own post as the solution?

 

[slinger42]

So Sorry Micron !!! First time here. To excited I actual have got this one solved. Sorted now I hope. Thanks again!!!

 

[Micron]

NP. Thanks.