Проверка на ошибки и несоответствия

[strannick]

Добрый день, уважаемые форумчане!
При запуске вот такого кода проверки соответствия ячеек листа ячейкам других листов в книге:

Sub ПроверкаСчета()
Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet, sh4 As Worksheet
Dim iLastRow2 As Long
    Set sh1 = Sheets("Шаблон счета")
    Set sh2 = Sheets("База заказов")
    Set sh3 = Sheets("База данных компаний")
    Set sh4 = Sheets("Электронный счет")
iLastRow2 = sh2.Cells(Rows.Count, 2).End(xlUp).row

If sh1.Cells("B1") <> sh2.Cells(iLastRow2, 3) Then MsgBox "Не соответствует сайт продавца. Ошибка на листе База заказов в столбце С", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("I9") <> sh2.Cells(iLastRow2, 1) Then MsgBox "Не соответствует номер счета", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("G31") <> sh2.Cells(iLastRow2, 2) Then MsgBox "Не соответствует количество товара", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("B3") <> sh3.Cells(3, 9) Then MsgBox "Не соответствует наименование банка", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("B6") <> sh3.Cells(3, 2) Then MsgBox "Не соответствует наименование компании-продавца", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("P3") <> sh3.Cells(3, 11) Then MsgBox "Не соответствует БИК компании-продавца", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("P4") <> sh3.Cells(3, 10) Then MsgBox "Не соответствует корр.счет компании-продавца", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("P5") <> sh3.Cells(3, 8) Then MsgBox "Не соответствует расч.счет компании-продавца", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("G16") <> sh4.Cells(11, 26) Then MsgBox "Не соответствует наименование покупателя", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("G18") <> sh4.Cells(11, 26) Then MsgBox "Не соответствует наименование покупателя", vbCritical, "Ошибка": Exit Sub
'проверка наименований товара
If sh1.Cells("C22") <> sh4.Cells(2, 6) Then MsgBox "Не соответствует наименование первого товара", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("C23") <> sh4.Cells(3, 6) Then MsgBox "Не соответствует наименование второго товара", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("C24") <> sh4.Cells(4, 6) Then MsgBox "Не соответствует наименование третьего товара", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("C25") <> sh4.Cells(5, 6) Then MsgBox "Не соответствует наименование четвертого товара", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("C26") <> sh4.Cells(6, 6) Then MsgBox "Не соответствует наименование пятого товара", vbCritical, "Ошибка": Exit Sub
If sh1.Cells("C27") <> sh4.Cells(7, 6) Then MsgBox "Не соответствует наименование шестого товара", vbCritical, "Ошибка": Exit Sub
'проверка цены товара
If sh1.Cells("V30") <> sh4.Cells(11, 11) Then MsgBox "Не соответствует сумма счета", vbCritical, "Ошибка": Exit Sub

End Sub

выдает ошибку 5 Invalid procedure call or argument. Танцы с бубном типа замены Cells на Range + Value или Text успеха не принесли.
Где я тут накосячил?

[DiemonStar]

sh1.Cells("B1")

поменяйте на

sh1.Range("B1")

[strannick]

Хоть и писал, что замена Cells на Range ничего не дает, сделал еще раз и получил ошибку 1004 в первой If. Шаманим дальше. Проверяемая ячейка B1 - формула, в которой в настоящий момент #Н/Д (сделано специально). У кого какие еще мысли?

[alex77755]

Хоть и писал, что замена Cells на Range ничего не дает

А я не перестаю удивляться: У меня всегда Cells("B1") вызывает ошибку, а Range("B1") работает. Ещё может вызывать ошибку сравнение ячеек, а не значений. Попробуй сравнивать значения:

sh1.Range("B1").Value

[DiemonStar]

А я не перестаю удивляться: У меня всегда Cells("B1") вызывает ошибку, а Range("B1") работает.

У меня тоже после замены ошибки исчезли.

[strannick]

В общем пролез смешаный вариант:

If sh1.Range("B1").Text <> sh2.Cells(iLastRow2, 3).Text Then MsgBox "Не соответствует сайт продавца. Ошибка на листе База заказов в столбце С", vbCritical, "Ошибка": Exit Sub

Сам удивляюсь.