需要Excel VBA列B和C或列D

Question

I have a spreadsheet which is used enterprise-wide. I am trying to put in checks such that certain fields are required. Specifically, columns B (last name) AND C (first name) are required, OR Column D (Organization) is required. However, B, C, and D cannot all three be filled in. If the row has any data at all in it, B and C or D are required.

My idea is to put in a button to run this macro. That I can do.

I've tried many things at this point. I can include the spreadsheet in case anyone can offer any insight. I had a macro that worked on a test sheet, but does not work on this sheet, if that will help at all. Here is the macro

Sub CheckVal2()
Dim ws As Worksheet
Dim wsCurr As Worksheet
Dim cel As Range
Dim lngLastRow As Long
Dim lngRow As Long

For Each ws In Worksheets
    If Left$(ws.Name, 7) = "Current" Then
        Set wsCurr = ws
        Exit For
    End If
Next

With wsCurr
    lngLastRow = .Range("B5000").End(xlUp).Row
    For lngRow = 2 To lngLastRow
        For Each cel In .Range("B" & lngRow & ":E" & lngRow)
        If cel = "" Then
        MsgBox "First and Last Name or HCO must be populated."
        Cancel = True
        Exit Sub
        End If

            If cel <> "" Then
               If .Cells(lngRow, "D") = "" Then
                    If .Cells(lngRow, "B") = "" Or _
                    .Cells(lngRow, "C") = "" Then
                    MsgBox "First and Last Name or HCO must be populated."
                    Cancel = True
                    Exit Sub
                        End If
                    End If
                End If


        Next
    Next
End With
'
End Sub

Answer 1

Once you get past whatever is causing the error trying to access wsCurr (which I suspect is just a case of the worksheet not existing), you should modify your code as follows:

With wsCurr
    lngLastRow = .Range("E5000").End(xlUp).Row
    For lngRow = 2 To lngLastRow
        'First check whether first/last name has been consistently advised
        If (.Cells(lngRow, 2) = "") <> _
           (.Cells(lngRow, 3) = "") Then
            MsgBox "Row " & lngRow & " - First Name and Last Name must both be advised or both be blank"
            Cancel = True  ' I assume this is a global variable?
            Exit Sub
        End If

        'Now check that last name has not been advised if HCO has been, and vice-versa
        If (.Cells(lngRow, 2) = "") = _
           (.Cells(lngRow, 4) = "") Then
            MsgBox "Row " & lngRow & " - First and Last Name, or HCO, must be populated but not both."
            Cancel = True
            Exit Sub
        End If
    Next
End With

This will get around the existing problem with your tests, which (as far as I can tell) aren't allowing for the case where all three columns have been advised.

I also changed the column on which lngLastRow was being set because, if it is set based on column B and the last row(s) of your data only contained values in column C and/or D, those final row(s) would not be being tested.