如果一个数据单元和一个链接的单元格没有数据，则显示一条消息

附在这里的图片展示了我们要找的东西，第一张带蓝色边界的图片就是代码应该运行的地方，那么如果存在一个空的单元格（在红色边界上标记的话）没有显示在G列标注的下一个名字，在窗口消息警告上显示（显示在第二张图片上）。

如果有名字，则需要检查G列，然后检查F列的同一行是否input数据，如果没有，则显示一条消息，如第二个图像。

窗口警告没有数据的名字，在最后路标错过的名字。

使用的实际代码：

Private Sub Worksheet_Activate() Dim dataSheet As Worksheet Dim row As Integer Dim itemList As String Set dataSheet = Sheets("Datos del Proyecto") row = 7 Do While dataSheet.Range("G" & row) <> 0 If dataSheet.Range("F" & row) = 0 Then If itemList <> "" Then itemList = itemList & vbNewLine End If Application.Goto ActiveWorkbook.Sheets("Datos del Proyecto").Range("F5:F70") itemList = itemList & "- " & dataSheet.Range("G" & row) & ", en la fila " & row & "." End If row = row + 1 Loop If itemList <> "" Then Call MsgBox("Ingresar el salarios de:" & vbNewLine & _ vbNewLine & vbNewLine & itemList, vbInformation, "CUBIMSA") End If End Sub