Коллеги, привет.
Суть макроса проста: Макрос сверяет две ячейки из двух файлов, а затем выводит сообщение в зависимости от результата.
Value ячеек округляется до 1 знака после запятой. Почему-то все время выходит сообщение о том, что результат не сходится. Код повторяется несколько раз. Прошу помочь
Apllicantion.Workbook("Daily.xlsm").Worksheet("Daily Letter").Cell("C8").Value = a
Apllicantion.Workbook("Отчет.xlsx").Worksheet("NewFormat").Cell("AJ26").Value = b
Result = ""
c = Round(a, 1)
d = Round(b, 1)
If c = d Then
Result = "Net sales сошлись"
Else
Result = "Net sales не сошлись"
End If
MsgBox (Result)
Суть макроса проста: Макрос сверяет две ячейки из двух файлов, а затем выводит сообщение в зависимости от результата.
Value ячеек округляется до 1 знака после запятой. Почему-то все время выходит сообщение о том, что результат не сходится. Код повторяется несколько раз. Прошу помочь
Apllicantion.Workbook("Daily.xlsm").Worksheet("Daily Letter").Cell("C8").Value = a
Apllicantion.Workbook("Отчет.xlsx").Worksheet("NewFormat").Cell("AJ26").Value = b
Result = ""
c = Round(a, 1)
d = Round(b, 1)
If c = d Then
Result = "Net sales сошлись"
Else
Result = "Net sales не сошлись"
End If
MsgBox (Result)