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

Question

此处附带的图像显示了我要查找的内容，第一个带有蓝色边界的图像是代码按原样运行的位置，然后如果存在空单元格（标记在红色边界上），则不会显示下一个带有标记的名称在G栏，需要在窗口信息警告上显示（显示在第二张图片上）。

如果首先存在名称，则需要检查G列，然后检查F列中的同一行是否输入数据，如果没有，则显示类似第二张图像的消息。

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

使用的实际代码：

＆＃13;

＆＃13;

        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

＆＃13;

＆＃13;

＆＃13;