Спасибо, буду пробовать. Обязательно отпишусь.

Сопоставление идет по номеру заказа + артикул, все верно. Артикула только на продукцию, доставка только для понимания доставка это или самовывоз.

Андрей_26, Задумка была такая: На Лист2 заносятся данные путем копирования из другого файла, далее данные из таблицы на Листе1 отображаются в ListBox (в примере его нет, пример часть большого файла), далее Вы все правильно поняли, нужно посчитать сколько единиц каждого товара осталось отгрузить.

Постараюсь понять, что Вы имеете ввиду.
В примере на листе1, в столбце "B" таблицы есть формула =Лист2!A2, в столбце "С" - =СЖПРОБЕЛЫ(Лист2!B2), в столбце "I" - =ЕСЛИОШИБКА(СУММ(H2-(СУММЕСЛИМН(Лист3!L:L;Лист3!C:C;$B2;Лист3!E:E;F2)));""). Как сделать вычисления этих формул с помощью макроса?

Может тогда название темы: "Замена вычислений формулами на вычисления макросами."?

Добрый вечер форумчане!
Возможно не совсем корректно назвал тему, будут замечания, постараюсь придумать более корректное.
Суть вопроса: в таблице на Листе1, в каждой ячейке есть формула, ссылающаяся на другие листы. При большом кол-ве строк процесс пересчета происходит очень долго. Как это возможно сделать макросом? Сам точно не осилю.
Заранее спасибо.

Все, разобрался. Огромное спасибо за помощь и ссылки с интересной информацией.

Wiss, Работает так как надо при определенном диапазоне, но если строк в таблице будет больше, понимаю, хоть я не специалист, что надо заменить.Range("A2:A16") в строчке For Each c In ActiveSheet.Range("A2:A16"), но на что, ни как не соображу. Извиняюсь, что-то совсем затупил.

Wiss, Большое спасибо, сейчас протестирую, отпишусь.

Спасибо, буду пробовать.

Добрый день форумчане! Возник вопрос и сам ни как не могу с ним справиться. Есть таблица в которую попадают данные (числа) из формы. В одну ячейку может попасть одно число, а могут попасть несколько чисел разделенных запятой и пробелом. Задача: В форму вводится число, которое нужно найти в столбце, удалить эту ячейку (строку) - с этим ясно, а если в ячейке, где находится это число, несколько чисел, то удалить число с запятой после числа и пробел (если число вначале или в середине списка чисел) или число с пробелом и запятой перед числом (если число в конце списка чисел) и выделить эту ячейку - вот с этим вопрос.

После появления ошибки все замирает и перегружается EXEL, загружает новую книгу.

RAN, Общий файл, имею ввиду где полный функционал, все листы, формы и т.д. С файлом работают только на одном компьютере. А вот открыт ли общий доступ к файлу, надо проверить.
Проверил, книга закрыта для общего доступа.

В воскресный день не стал грузить форум, а решил еще раз посмотреть и постараться определить возникновение ошибки. На самом деле задача очень простая, как я уже писал, скопировать два листа в отдельный файл. В общем файле есть много листов, форм, макросов и работают на стационарном компьютере (если нужно, могу скинуть в личку). Нужен отдельный файл для работы на мобильном устройстве. Файл нужен для сверки итоговой информации. То-есть на втором листе все, что должно быть, а на первом, в первый столбец вносишь ID номер того, что есть в наличии, в других столбцах появляется информация о товаре под этим ID. И все. Задача элементарная, но ошибка замучила. Что было сделано: из общего фала было удалено все лишние страницы, макросы, формы. остались только два листа с "умными таблицами" (упрощенный вариант в первом сообщении). Общий файл и "упрощенный вариант" на домашнем компьютере работают. Проверял работу на трех рабочих компьютерах "упрощенный вариант" работает, а общий не хочет, выдает ошибку "method copy of object sheets failed". EXEL на всех компьютерах 2016, библиотеки одинаковые (скрин в прикрепленном файле). Что происходит, не пойму.

Юрий М, Извините, видимо не правильно изначальна Вас понял. Теперь я правильно пониманию, Вы предлагаете сначала сделать вычисления в файле с макросом, а потом два листа с  данными скопировать в новый файл? Или как? Но мне новый файл нужен как самостоятельный, умеющий вычислять, а не просто с данными. Возможно изначально я не совсем корректно написал:

Юрий М, Может я не совсем понятно изложил суть вопроса или я Вас не пониманию. Я писал: и вопрос остался не понятен, почему

Владимир, весь этот мусор из общего файла. В новом файле конечно это не нужно. Я пока не силен в VBA, не знаю как от него избавиться. Буду очень признателен за подсказку.

Юрий М, Как я писал, при открытии общего файла формула "ломается", появляется #ССЫЛКА, поэтому новая формула вставляется макросом. Может еще какой вариант есть?

Может не совсем точно понял вопрос, но файл откуда копируем, с форматом xlsm, а вот  файл который должен создаться, с форматом xlsx.

Сейчас посмотрел, ошибка появляется даже если эту формулу вставить  вручную. А файл, куда копируются два листа, должен быть без макросов, что бы им пользоваться, к примеру в GOOGLE.

Добрый день, уважаемые форумчане! Не пониманию что происходит. Уже всю голову сломал. Буду очень рад вашей помощи. Суть вопроса такова: есть большой файл с разными таблицами и макросами, все работает хорошо, но один макрос мне весь мозг вынес (в прикрепленном файле). При открытии файла меняются данные  в таблице (к примеру "Номер" на Листе2 как в примере) методом стирания таблицы и вставкой новой, но с тем же названием, на которую ссылается формула в таблице ("Номер1" Лист1). Соответственно в формуле возникает ошибка (#ССЫЛКА). Для дальнейшей работы таблицы "Номер1", макроссом вставляем формулу. Далее Лист1 и Лист2 нужно скопировать в отдельный файл с новой датой. На домашнем компьютере работает, а на рабочих выдает ошибку и сразу перезагружает EXEL. И что странно, с ошибкой в формуле (#ССЫЛКА) выгружает, а когда макроссом вставляешь формулу, то не выгружает, выдает ошибку. В чем может быть дело?  

Казанский,Большое спасибо. Еще раз с наступающими!

Добрый вечер, уважаемые форумчане! Всех с наступающими праздниками! Прошу в очередной раз Вашей помощи. Перерыл весь форум, нашел два варианта, но в каждом какой-нибудь минус. В приложенном примере два макроса. Первый (Sub Copy()), копирует все, что есть на листе, но меняет имя таблицы. Второй (Sub Copy1()), копирует таблицу, но не переносит формулы (в данном примере из первого столбца). Нужно перенести данные из умной таблицы в закрытой книге в умную таблицу рабочей книги. Вроде понятно описал.

skais675,Спасибо

skais675,Нет. Я имел ввиду, что не получается, предложенный Вами код вставить в мой общий код так, что бы он работал как надо. В посте #11 я писал: "Макрос заработал, только пока не может найти позиции." (т.е. ошибки не выдает, но не находит позиции). Сейчас все ищет так как надо, но только если вызываешь форму на активном листе. Если нетрудно, не подскажите, что дописать, что бы код работал при вызове формы с любого листа.

Всем доброго дня. Разобрался в чем причина. Повторюсь, я не специалист в VBA, но видимо дело в том, что из формы данные выводятся в нечитаемом  для кода формате и код этого не понимает. Добавил в код перед названием формы CDbl и все пошло так как надо.

Еще раз огромное всем спасибо за помощь.  

skais675,Спасибо огромное за помощь, но уже стыдно писать. Процесс тормозится. Внес изменения, но не пойму в чем дело. Может влиять то, что прописаны в общем коде
Set ShLogist = ThisWorkbook.Worksheets("Логистика")
Set LogistListObj = ShLogist.ListObjects("Логистика_tb")
?

Юрий М,Не думал, что так уже сильно затуплю и не справлюсь  со столбцами. Прикрепил файл с реальным количеством столбцов. Форматы не меняются.  

skais675,Таблица большая, хотя между столбцом № заказа и Артикул еще один столбец. Но, блин, опять я в стопоре. За неделю с этим кодом всю сооброжалку растерял.  

skais675,Большое спасибо. Макрос заработал, только пока не может найти позиции. В примере я урезал таблицу. Видимо столбцы не соответствуют.