G
Guest
I want to check the completeness of a report. If one of the cell in Range
"D14:F14" is not blank then one of the cell in "G14:H14" should also be not
blank, vice versa. Below is my code and it is not working. Thanks in
advance.
Set SThree(0, 0) = .Range("D14:F14")
Set SThree(0, 1) = .Range("G14:H14")
For Each Cell In SThree(0, 0)
If Cell <> "" Then
For Each Cells In SThree(0, 1)
If Cells = "" Then
MsgBox "Not Complete"
Cancel = True
Exit Sub
Else
Cancel = True
Exit Sub
End If
Next
Next
"D14:F14" is not blank then one of the cell in "G14:H14" should also be not
blank, vice versa. Below is my code and it is not working. Thanks in
advance.
Set SThree(0, 0) = .Range("D14:F14")
Set SThree(0, 1) = .Range("G14:H14")
For Each Cell In SThree(0, 0)
If Cell <> "" Then
For Each Cells In SThree(0, 1)
If Cells = "" Then
MsgBox "Not Complete"
Cancel = True
Exit Sub
Else
Cancel = True
Exit Sub
End If
Next
Next