Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Ошибка при копировании листов в новый файл
 
Цитата
Alexey74 написал:
Проверял работу на трех рабочих компьютерах "упрощенный вариант" работает, а общий не хочет, выдает ошибку "method copy of object sheets failed".
После появления ошибки все замирает и перегружается EXEL, загружает новую книгу.
Ошибка при копировании листов в новый файл
 
RAN, Общий файл, имею ввиду где полный функционал, все листы, формы и т.д. С файлом работают только на одном компьютере. А вот открыт ли общий доступ к файлу, надо проверить.
Проверил, книга закрыта для общего доступа.
Изменено: Alexey74 - 5 Авг 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,Большое спасибо. Макрос заработал, только пока не может найти позиции. В примере я урезал таблицу. Видимо столбцы не соответствуют.  
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
skais675, Увидел. А "i"? Не нужно?
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
Юрий М, Я говорю не силен в VBA, не до конца понимаю возможности. Что скажите? Как правильно сделать? skais675 Поменял. Спасибо. Но продолжаю дальше монтировать. Не все так быстро у меня получается.
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
skais675, огромное спасибо.
В моем общем макросе используются переменные. Из Вашего варианта назначил переменные:
Код
Dim Arr As Long
    Dim nmb As Range
    Dim factor As Range
    Dim art As Range
    Dim i As Range
но в этом месте
Код
For i = 1 To UBound(Arr)
 застопорился, выдает ошибку "Expected array", выделяя UBound. Что не так я сделал?
Поиск строки по значениям двух столбцов и сумма данные третьего,
 
Добрый вечер, уважаемые форумчане. Нужна ваша помощь. Я не силен в VBA  и поэтому который день ломаю голову и пытаюсь из разных предложенных вариантов на данном форуме и не только слепить макрос, который мог бы находить по значениям из двух столбцов строку и суммировать значение , к примеру третьего и четвертого столбцов с новыми данными. В примере думаю более понятно. Пытался и через автофильтр и по поиску по двум значениям, но чего-то не догоняю. Буду очень признателен за любую помощь.
Возникает ошибка при получении данных из ячейки с формулой в Textbox
 
Цитата
Nordheim написал:
Код ? 1234Private Sub TextBox1_Change()    Worksheets("Лист1").Range("A1").Value = Val(TextBox1.Value)    TextBox2.Text = Worksheets("Лист1").Range("C1").ValueEnd Sub
И этот вариант не хочет работать.
Возникает ошибка при получении данных из ячейки с формулой в Textbox
 
Цитата
Nordheim написал:
Код ? 12345Private Sub TextBox1_Change()    If Len(TextBox1.Value) > 0 Then Worksheets("Лист1").[A1] = TextBox1 Else _        Worksheets("Лист1").Range("A1").Value = 0    TextBox2.Text = Worksheets("Лист1").[C1].ValueEnd Sub
Супер. Спасибо. Только код в проекте у меня работает без этой строчки: Worksheets("Лист1").Range("A1").Value = 0 с ней не хочет. Всем большое спасибо.
Возникает ошибка при получении данных из ячейки с формулой в Textbox
 
Цитата
magistor8 написал:
Код ? 123456Private Sub TextBox1_Change()    Worksheets("Лист1").Range("A1").Value = TextBox1    If TextBox1.Value = "" Then TextBox1.Value = 0            TextBox2.Text = Worksheets("Лист1").Range("C1").ValueEnd Sub
Спасибо огромное. В этом файле работает так как надо, а в проекте, что-то не хочет. Выдает туже ошибку. Может ошибка возникает из-за того, что в проекте ячейка, от куда берется информация остается не пустая, а с #Н/Д. То-есть пока не ввели данные в Textbox1, данные не найдены и соответственно в ячейке #Н/Д. Сейчас попробую это исправить.
Возникает ошибка при получении данных из ячейки с формулой в Textbox
 
Что-то быстро не соображу как это правильно сделать.
Возникает ошибка при получении данных из ячейки с формулой в Textbox
 
Если вызвать форму и внести данные в Textbox1, то в ячейки А1 появятся данные. Или я что-то не так понял?
Изменено: Alexey74 - 5 Мар 2019 11:00:43
Возникает ошибка при получении данных из ячейки с формулой в Textbox
 
Всем доброго дня! Уважаемые знатоки Excel, строго не судите, это мой первый проект. Задача большая и это не большой вопрос в этой задаче, на который я не смог найти ответ. Необходимо с помощью Textbox1 в форме ввести данные в одну ячейку (А1) и получить данные в Textbox2 из другой ячейки (С1), которая содержит формулу. При удалении данных из Textbox1 возникает ошибка "Run-time error '13': Type mismatch". Без формулы все ОК.
Поиск неповторяющихся значений в разных таблицах на разных листах и создание новой таблицы с этими значениями
 
Неужели эта задачка не решается с помощью макроса?
Страницы: 1 2 След.
Наверх