Сверка данных в столбцах XLS

[nilem]

Дайте примерчик тех данных, на которых появляется ошибка.
И, кстати, в списке Кол-во3 много нулей получается - может убрать их (есть интересная функция).

[_Alias_]

Сообщение от nilem

Дайте примерчик тех данных, на которых появляется ошибка.
И, кстати, в списке Кол-во3 много нулей получается - может убрать их (есть интересная функция).

Ошибка появляется в общем, когда данные в столбцах заменить на другие с теми же кодами, но немного отличные по количеству. Сверка позиций проводится по товарам из двух программ. Но количество товаров меняется каждый день (т.к. что-то реализуется) и коды проданных товаров естественно из остатков сверяемых товаров уходят. Количество строк поэтому меняется. Так вот при попытке заменить новыми остатками КОД1 КОЛ1 и КОД2КОЛ2 и попытаться сверить и появилась вышеназванная ошибка. Файл прикрепляю.

В списке КОЛ-во3 нули убрались АВТОФИЛЬТРОМ а как еще можно?

[doober]

Сообщение от _Alias_

Единственный косячок- там где повторяющиеся позиции - он неправильно почему-то посчитал КОЛИЧЕСТВО3, т.е. в столбце КОЛИЧЕСТВО1 не просуммировал и некорректно отнял от КОЛИЧЕСТВА2. Но если просуммировать вручную и подправить КОЛ1- то все ок

поясните номером товара ,его значением в каких позициях.
Во всех,в определенных.
Проверял.должно было правильно работать.
Иначе прийдется Билу отправлять рекламацию

Для контроля добавлю рядом просуммированые позиции

[nilem]

Сообщение от _Alias_

... появилась ошибка...

Да, из-за одной цифры ошибка. В колонке Кол-во2 на строке 189 (код2 1849) стоит 2489.25 - с точкой. Такая запись воспринимается как текст и не хочет ни отниматься, ни складываться, ни пр. Чтобы получить число 2489,25 можно вручную заменить точку на запятую:
Ctrl+F - найти "." - заменить "," - заменить все.
Еще Doober (спасибо) подсказал насчет пустых ячеек - там, оказывается, пробелы - их так же можно убрать.
В новом файле добавил в макрос эту опцию (пробелы и запятые). И теперь еще нули убирает. Если все-таки нужны нули, можно использовать предыдущую версию. Выбирайте.
Ну вот, теперь, похоже, окончательно прожаренный ... и с лучком.

[Hugo121]

Николай, у меня вот так в лоб не прошло. У меня разделители другие, мне именно точка и нужна.
Так работает с любым разделителем:

sep_ = Mid$(1 / 2, 2, 1)
Range(Rng1, Rng2).Replace What:=",", Replacement:=sep_
Range(Rng1, Rng2).Replace What:=".", Replacement:=sep_

Но конечно, если возможнен вариант, что числа - это текст и посреди чисел имеются разделители тысяч, то надо конкретно выбирать - что меняем, что убираем.

[doober]

И я посыпал перчиком,подправил.Точку и не заметил

[_Alias_]

doober, в например в кодах 1843, 2851, 7331. Там похоже в первом столбце коды почему-то помножились на 2 и потом уже отнимались от суммированных.

[_Alias_]

Сообщение от nilem

...Ну вот, теперь, похоже, окончательно прожаренный ... и с лучком

СПАСИБ. ТЕПЕРЬ ВСЕ ОК

[doober]

Проверяйте.Должно работать как надо

[_Alias_]

doober, теперь все просто отлично работает!