Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
[ Закрыто] Замена формул макросом
 
Спасибо, буду пробовать. Обязательно отпишусь.
[ Закрыто] Замена формул макросом
 
Сопоставление идет по номеру заказа + артикул, все верно. Артикула только на продукцию, доставка только для понимания доставка это или самовывоз.
Изменено: Alexey74 - 25.12.2019 21:00:44
[ Закрыто] Замена формул макросом
 
Андрей_26, Задумка была такая: На Лист2 заносятся данные путем копирования из другого файла, далее данные из таблицы на Листе1 отображаются в ListBox (в примере его нет, пример часть большого файла), далее Вы все правильно поняли, нужно посчитать сколько единиц каждого товара осталось отгрузить.
[ Закрыто] Замена формул макросом
 
Постараюсь понять, что Вы имеете ввиду.
В примере на листе1, в столбце "B" таблицы есть формула =Лист2!A2, в столбце "С" - =СЖПРОБЕЛЫ(Лист2!B2), в столбце "I" - =ЕСЛИОШИБКА(СУММ(H2-(СУММЕСЛИМН(Лист3!L:L;Лист3!C:C;$B2;Лист3!E:E;F2)));""). Как сделать вычисления этих формул с помощью макроса?
[ Закрыто] Замена формул макросом
 
Может тогда название темы: "Замена вычислений формулами на вычисления макросами."?
[ Закрыто] Замена формул макросом
 
Добрый вечер форумчане!
Возможно не совсем корректно назвал тему, будут замечания, постараюсь придумать более корректное.
Суть вопроса: в таблице на Листе1, в каждой ячейке есть формула, ссылающаяся на другие листы. При большом кол-ве строк процесс пересчета происходит очень долго. Как это возможно сделать макросом? Сам точно не осилю.
Заранее спасибо.
Удаление в ячейке части текста, заданной из формы
 
Цитата
Alexey74 написал:
Работает так как надо при определенном диапазоне, но если строк в таблице будет больше, понимаю, хоть я не специалист, что надо заменить.Range("A2:A16") в строчке For Each c In ActiveSheet.Range("A2:A16"), но на что, ни как не соображу. Извиняюсь, что-то совсем затупил.
Все, разобрался. Огромное спасибо за помощь и ссылки с интересной информацией.
Удаление в ячейке части текста, заданной из формы
 
Wiss, Работает так как надо при определенном диапазоне, но если строк в таблице будет больше, понимаю, хоть я не специалист, что надо заменить.Range("A2:A16") в строчке For Each c In ActiveSheet.Range("A2:A16"), но на что, ни как не соображу. Извиняюсь, что-то совсем затупил.
Удаление в ячейке части текста, заданной из формы
 
Wiss, Большое спасибо, сейчас протестирую, отпишусь.
Удаление в ячейке части текста, заданной из формы
 
Спасибо, буду пробовать.
Удаление в ячейке части текста, заданной из формы
 
Добрый день форумчане! Возник вопрос и сам ни как не могу с ним справиться. Есть таблица в которую попадают данные (числа) из формы. В одну ячейку может попасть одно число, а могут попасть несколько чисел разделенных запятой и пробелом. Задача: В форму вводится число, которое нужно найти в столбце, удалить эту ячейку (строку) - с этим ясно, а если в ячейке, где находится это число, несколько чисел, то удалить число с запятой после числа и пробел (если число вначале или в середине списка чисел) или число с пробелом и запятой перед числом (если число в конце списка чисел) и выделить эту ячейку - вот с этим вопрос.
Ошибка при копировании листов в новый файл
 
Цитата
Alexey74 написал:
Проверял работу на трех рабочих компьютерах "упрощенный вариант" работает, а общий не хочет, выдает ошибку "method copy of object sheets failed".
После появления ошибки все замирает и перегружается EXEL, загружает новую книгу.
Ошибка при копировании листов в новый файл
 
RAN, Общий файл, имею ввиду где полный функционал, все листы, формы и т.д. С файлом работают только на одном компьютере. А вот открыт ли общий доступ к файлу, надо проверить.
Проверил, книга закрыта для общего доступа.
Изменено: Alexey74 - 05.08.2019 09:29:42
Ошибка при копировании листов в новый файл
 
В воскресный день не стал грузить форум, а решил еще раз посмотреть и постараться определить возникновение ошибки. На самом деле задача очень простая, как я уже писал, скопировать два листа в отдельный файл. В общем файле есть много листов, форм, макросов и работают на стационарном компьютере (если нужно, могу скинуть в личку). Нужен отдельный файл для работы на мобильном устройстве. Файл нужен для сверки итоговой информации. То-есть на втором листе все, что должно быть, а на первом, в первый столбец вносишь ID номер того, что есть в наличии, в других столбцах появляется информация о товаре под этим ID. И все. Задача элементарная, но ошибка замучила. Что было сделано: из общего фала было удалено все лишние страницы, макросы, формы. остались только два листа с "умными таблицами" (упрощенный вариант в первом сообщении). Общий файл и "упрощенный вариант" на домашнем компьютере работают. Проверял работу на трех рабочих компьютерах "упрощенный вариант" работает, а общий не хочет, выдает ошибку "method copy of object sheets failed". EXEL на всех компьютерах 2016, библиотеки одинаковые (скрин в прикрепленном файле). Что происходит, не пойму.
Ошибка при копировании листов в новый файл
 
Юрий М, Извините, видимо не правильно изначальна Вас понял. Теперь я правильно пониманию, Вы предлагаете сначала сделать вычисления в файле с макросом, а потом два листа с  данными скопировать в новый файл? Или как? Но мне новый файл нужен как самостоятельный, умеющий вычислять, а не просто с данными. Возможно изначально я не совсем корректно написал:
Цитата
Alexey74 написал:
А файл, куда копируются два листа, должен быть без макросов, что бы им пользоваться, к примеру в GOOGLE
Ошибка при копировании листов в новый файл
 
Юрий М, Может я не совсем понятно изложил суть вопроса или я Вас не пониманию. Я писал:
Цитата
Alexey74 написал:
А файл, куда копируются два листа, должен быть без макросов, что бы им пользоваться, к примеру в GOOGLE.
и вопрос остался не понятен, почему
Цитата
Alexey74 написал:
На домашнем компьютере работает, а на рабочих выдает ошибку и сразу перезагружает EXEL
Ошибка при копировании листов в новый файл
 
Цитата
sokol92 написал: Вы увидите кучу "битых" имен. В новом файле есть также рисунки и внешние ссылки
Владимир, весь этот мусор из общего файла. В новом файле конечно это не нужно. Я пока не силен в VBA, не знаю как от него избавиться. Буду очень признателен за подсказку.
Ошибка при копировании листов в новый файл
 
Юрий М, Как я писал, при открытии общего файла формула "ломается", появляется #ССЫЛКА, поэтому новая формула вставляется макросом. Может еще какой вариант есть?
Ошибка при копировании листов в новый файл
 
Может не совсем точно понял вопрос, но файл откуда копируем, с форматом xlsm, а вот  файл который должен создаться, с форматом xlsx.
Ошибка при копировании листов в новый файл
 
Сейчас посмотрел, ошибка появляется даже если эту формулу вставить  вручную. А файл, куда копируются два листа, должен быть без макросов, что бы им пользоваться, к примеру в GOOGLE.
Ошибка при копировании листов в новый файл
 
Добрый день, уважаемые форумчане! Не пониманию что происходит. Уже всю голову сломал. Буду очень рад вашей помощи. Суть вопроса такова: есть большой файл с разными таблицами и макросами, все работает хорошо, но один макрос мне весь мозг вынес (в прикрепленном файле). При открытии файла меняются данные  в таблице (к примеру "Номер" на Листе2 как в примере) методом стирания таблицы и вставкой новой, но с тем же названием, на которую ссылается формула в таблице ("Номер1" Лист1). Соответственно в формуле возникает ошибка (#ССЫЛКА). Для дальнейшей работы таблицы "Номер1", макроссом вставляем формулу. Далее Лист1 и Лист2 нужно скопировать в отдельный файл с новой датой. На домашнем компьютере работает, а на рабочих выдает ошибку и сразу перезагружает EXEL. И что странно, с ошибкой в формуле (#ССЫЛКА) выгружает, а когда макроссом вставляешь формулу, то не выгружает, выдает ошибку. В чем может быть дело?  
Копирование умной таблицы с данными и формулами из закрытой книги
 
Казанский,Большое спасибо. Еще раз с наступающими!
Копирование умной таблицы с данными и формулами из закрытой книги
 
Добрый вечер, уважаемые форумчане! Всех с наступающими праздниками! Прошу в очередной раз Вашей помощи. Перерыл весь форум, нашел два варианта, но в каждом какой-нибудь минус. В приложенном примере два макроса. Первый (Sub Copy()), копирует все, что есть на листе, но меняет имя таблицы. Второй (Sub Copy1()), копирует таблицу, но не переносит формулы (в данном примере из первого столбца). Нужно перенести данные из умной таблицы в закрытой книге в умную таблицу рабочей книги. Вроде понятно описал.
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
skais675,Спасибо
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
skais675,Нет. Я имел ввиду, что не получается, предложенный Вами код вставить в мой общий код так, что бы он работал как надо. В посте #11 я писал: "Макрос заработал, только пока не может найти позиции." (т.е. ошибки не выдает, но не находит позиции). Сейчас все ищет так как надо, но только если вызываешь форму на активном листе. Если нетрудно, не подскажите, что дописать, что бы код работал при вызове формы с любого листа.
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
Всем доброго дня. Разобрался в чем причина. Повторюсь, я не специалист в VBA, но видимо дело в том, что из формы данные выводятся в нечитаемом  для кода формате и код этого не понимает. Добавил в код перед названием формы CDbl и все пошло так как надо.
Код
Dim factor As Byte
Dim arr(), nmb, art, i As Long
arr = Range("B3:E" & Cells(Rows.Count, "B").End(xlUp).Row).Value
    nmb = CDbl(usf_____.txt_____)
    art = CDbl(usf_____.txt______)
    factor = 1
    For i = 1 To UBound(arr)
        If arr(i, 1) = nmb Then
            If arr(i, 4) = art Then
            Cells(i + 2, "J") = Cells(i + 2, "J") + usf_____.txt______.Value
            Cells(i + 2, "K") = Cells(i + 2, "K") + usf______.txt____.Value
            factor = 0
            Exit For
            End If
        End If
    Next
    If factor Then MsgBox "Не нашел позицию!" Else MsgBox "Добавил!"

Еще раз огромное всем спасибо за помощь.  
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
skais675,Спасибо огромное за помощь, но уже стыдно писать. Процесс тормозится. Внес изменения, но не пойму в чем дело. Может влиять то, что прописаны в общем коде
Set ShLogist = ThisWorkbook.Worksheets("Логистика")
Set LogistListObj = ShLogist.ListObjects("Логистика_tb")
?
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
Юрий М,Не думал, что так уже сильно затуплю и не справлюсь  со столбцами. Прикрепил файл с реальным количеством столбцов. Форматы не меняются.  
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
skais675,Таблица большая, хотя между столбцом № заказа и Артикул еще один столбец. Но, блин, опять я в стопоре. За неделю с этим кодом всю сооброжалку растерял. :)  
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
skais675,Большое спасибо. Макрос заработал, только пока не может найти позиции. В примере я урезал таблицу. Видимо столбцы не соответствуют.  
Страницы: 1 2 След.
Наверх