Help in Mandatory cells for my project tracking sheet

[karthik537]

Hi Friends,

I have 3 columns(A,B & C) in which Column A contains Start Date , Column B contains End Date and Column C will be the total no. of hrs that should be calculated from Start Date and End Date. Now I want the user to compulsorily enter the Start Date and End date (I mean they should not be left blank). Let's say if the user didn't enter the Start and End date blank and if he tries to enter the no. of hours in Column C, an error should be displayed saying that "Column A & B cannot be blank".

Please help me asap as I need it for my project tracking.

 

[Warship]

What about locking Col C to disallow entry.
Leaving population of A&B the only option to populate C?

 

[karthik537]

Hi...

I dont want the exact no. of hours between start date and end date... I require these no. of hrs to validate like user shouldn't enter more than the no. of hours between the start and end date.

 

[Warship]

I might have been misunderstood - or I'm confused...

What about locking Col C to disallow entry.
Leaving population of A&B the only option to populate C?

What I'm saying in the above post is that the user would not enter the total hours in Col C.
The hours would be entered by a formula in C based on values of A & B.
With Col C locked, the only way to change the hours in C would be to change the Start or End entries.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

If you did understand what I meant and that won't work for you then
you might use the Worksheet_Change event to look at A&B after C is updated:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        If Target.Offset(, -2) = "" And Target.Offset(, -1) = "" Then
            MsgBox "Cols A&B are blank"
            Application.EnableEvents = False
            Target = ""
            Target.Select
            Application.EnableEvents = True
            Exit Sub
        End If
        If Target.Offset(, -2) = "" Then
            MsgBox "Col A is blank"
            Application.EnableEvents = False
            Target = ""
            Target.Select
            Application.EnableEvents = True
            Exit Sub
        End If
        If Target.Offset(, -1) = "" Then
            MsgBox "Col B is blank"
            Application.EnableEvents = False
            Target = ""
            Target.Select
            Application.EnableEvents = True
            Exit Sub
        End If
    End If
End Sub