Need help with macro

[Mrjcharlton]

Hello!

I am trying to use the below macro to flag an error message when a date range exceeds 7 days.

I have used the below which only applies to the first cell in the column. What must I do to apply it to the whole column, I have 350 rows.

Just to let you know column K is a calculation of days based on dates added to columns H & I.

Also, cell K492 has the value "7" in it.

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("K2").Value > Range("K492").Value Then
MsgBox "Payroll Period can not be more than 7 days"
End If

End Sub




Thank you

 

[Trevor G]

Welcome to the forum,

Do you really want to have multiple msgbox or would could you work with either a message in another cell or conditional formatting which would simply be easier.

 

[Mrjcharlton]

Thank you Trevor!

Ideally I just want something to pop up and alert the end user when they are doing something wrong. I.e adding a date range that exceeds 7 days

I have already added conditional formatting to flag as red if greater than 7. However, this has gone unnoticed in the past, which is very annoying.

Any suggestions would be greatly appreciated

Thanks

 

[Trevor G]

Would a userform with a listbox showing either the rows that must be checked or something else as an identifier?

 

[Mrjcharlton]

Given the amount of data the end user needs to add, I think that would add a lot of extra work