Force cell A1 to have input

[deanl33069]

Force cell A1 to have input before cell B1----z1 can be filled then same for A2 before b2---z2 can be filled
So each Row must have a input in (A) column before any other columns are filled in that row

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter data in columns B:Z and press the RETURN key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:Z")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Range("A" & Target.Row) = "" Then
        MsgBox ("Please fill in cell A" & Target.Row & ".")
        Target.ClearContents
        Range("A" & Target.Row).Select
    End If
    Application.EnableEvents = True
End Sub

 

[VBE313]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim targetRow As Long
targetRow = Target.Row
If Cells(targetRow, 1).Value = "" Then
    MsgBox "Please fill in Column A"
    Target.Value = ""
End If
Application.EnableEvents = True
End Sub