Коллеги, привет.

Суть макроса проста: Макрос сверяет две ячейки из двух файлов, а затем выводит сообщение в зависимости от результата.
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)

Добрый день,

Таблицу для примера прикрепил. Объясняю более подробно. Есть данные по продажам, которые присылаются другим отделом каждый день. Данные присылаются за прошлый день. В ячейке F6 идет сумма по всем дням до сегодняшней даты. Мне нужны данные по продажам за прошлый день, скопировав значение. Проблемы такие:

а. Нельзя делать выгрузку используя "дата - 1" , т.к. в понедельник идет некорректная выгрузка из-за того, что макрос берет значения не из ячейки, расположенной под 15.07, а ищет значение на 16.07
б. Выгрузка в строке по последнему значению выдает только значение ячейки с общей суммой. Более того, таких блоков в отчете три штуки. И сумм также 3.

Как сделать так, чтобы выгрузка была корректной?

2. Скопированное значение копируется в другой файл в аналогичную строку, но только в первую пустую ячейку в строке. С этим я разобрался.

Товарищи, привет.

Есть отчет, таблица всегда стандартизирована. Необходимо каждый день выгружать из нескольких строк значение из последней непустой клетки в строке. Прошу помочь с написанием макроса.