If column A contains project number, check that columns B-N contain text

[dan_adelais]

Hi All,

I'm building an intake form. The individual enters a project number in column A (eg. PRJ001, PRJ002) and columns B through N need to contain data relating to that project. I'm trying to build a macro that checks column A for any project number (anything beginning with PRJ) and then checks columns B through N to see if they contain text. If not, a message box asking them to fill in those fields appears. The message box doesn't need to specify which fields need to be filled in, but it would be nice if it could.

VBA is not my strong suit. Any help is greatly appreciated.

 

[JLGWhiz]

since you are potentially making 14 entries into the row, a worksheet event code does not seem practical. But the code below could be run when the user thinks they have finished and check to see if they missed anything.

Sub t()
Dim c As Range
    With ActiveSheet
        For Each c In .Range("A2", .Cells(Rows.Count, 1).End(xlUp))
            If Left(UCase(c.Value), 3) = "PRJ" Then
                If Application.CountA(c.Offset(, 1).Resize(, 13)) <> 13 Then
                    MsgBox "You Must fill all cells for Row " & c.Row & " Columns B:N"
                End If
            End If
        Next
    End With
End Sub

 

[dan_adelais]

since you are potentially making 14 entries into the row, a worksheet event code does not seem practical. But the code below could be run when the user thinks they have finished and check to see if they missed anything.

Sub t()
Dim c As Range
    With ActiveSheet
        For Each c In .Range("A2", .Cells(Rows.Count, 1).End(xlUp))
            If Left(UCase(c.Value), 3) = "PRJ" Then
                If Application.CountA(c.Offset(, 1).Resize(, 13)) <> 13 Then
                    MsgBox "You Must fill all cells for Row " & c.Row & " Columns B:N"
                End If
            End If
        Next
    End With
End Sub

Fantastic. Running this on close attempt works like a charm. Thank you so much!

 

[JLGWhiz]

Fantastic. Running this on close attempt works like a charm. Thank you so much!

You're welcome,
Regards, JLG