Я хочу , чтобы Excel VBA , чтобы вернуться, в MessageBox строке все элементы , которые находятся в колонке А листа Mastersheet , но не находятся в колонке А листа DeliverySheet.
Имея много проблем с выяснением этого, вот что я получил так далеко:
Private Sub CommandButton5_Click()
Dim DeliveryName As Range
Dim MasterName As Range
Dim MasterSheet As Worksheet
Dim DeliverySheet As Worksheet
Dim valueToFind
Set MasterSheet = Sheets("Delivery Master List Drop")
Set DeliveryName = Sheets("For Delivery").Range(Sheets("For Delivery").Cells("A:A"))
Set MasterName = Sheets("Delivery Master List Drop").Range(Sheets("Delivery Master List Drop").Cells("A:A"))
For i = 3 To 3000
valueToFind = DeliveryName("i,1")
For Each MasterName In MasterSheet
If Not MasterName.Cells = valueToFind Then
MsgBox "The following name is not found in the Delivery Master List" & DeliveryName(i, 1).Value, vbExclamation
End If
Next MasterName
Next i
End Sub
Желательно, чтобы окно сообщения возвращало все не найденные элементы (которые также не являются значениями ("")) в списке, который отображается после завершения макроса. Сейчас я просто пытаюсь заставить его хотя бы вернуть одно значение.