Cell cannot be blank

[SDRBIRD]

I need some help sorting out a small issues on a payroll spreadsheet

I need to ensure that all staff have departments. Staff names are entered in range A8:A60 and departments are entered in range B8:B60. I want to be able to stop the user moving away from a cell in range B8:B60 is data is present in adjacent cell in range A8:A60.

any help would be great

Many thanks

 

[Andrew Poulsom]

Try this in the module for the Worksheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static OldCell As Range
    Application.EnableEvents = False
    If OldCell Is Nothing Then
        Set OldCell = Range("A1")
    End If
    If Not Application.Intersect(OldCell, Range("B8:B60")) Is Nothing Then
        If Not IsEmpty(OldCell.Offset(, -1)) And IsEmpty(OldCell) Then
            OldCell.Select
        Else
            Set OldCell = Target.Cells(1, 1)
        End If
    Else
        Set OldCell = Target.Cells(1, 1)
    End If
    Application.EnableEvents = True
End Sub

 

[SDRBIRD]

Works great.

Thank you very much.