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

Страницы: 1
Перенос строки из одной таблицы в другую, Перенос строки из одной таблицы в другую по нажатию кнопки
 
В пределах локальной сети  у меня всё прекрасно работает , если возникнут вопросы , я обязательно к Вам обращусь. Благодарю за подсказку.
Перенос строки из одной таблицы в другую, Перенос строки из одной таблицы в другую по нажатию кнопки
 
Я понимаю , что при сетевом расположении файла , адрес файла изменится. Это файл созданный на скорую руку , для вопроса. Оригинал имеет совершенно иной вид.
Перенос строки из одной таблицы в другую, Перенос строки из одной таблицы в другую по нажатию кнопки
 
Спасибо. То что нужно
Перенос строки из одной таблицы в другую, Перенос строки из одной таблицы в другую по нажатию кнопки
 
Имеются 2 книги Excel -"пробный.xlsm и "reestr.xlsm"  . Необходимо , чтоб по нажатию кнопки в книге "пробный" только ПОСЛЕДНЯЯ ЗАПОЛНЕННАЯ строка таблицы переносилась в таблицу книги "reestr" .

Чего смог добиться - по нажатию кнопки поочерёдно (начиная с первой строки) добавляются все заполненные строки

Помогите разобраться с макросом.
Изменено: Сергей Фенев - 16.12.2023 19:50:53
Excel клиент OPC сервера, Чтение данных из OPC сервера ModbusOPCServer фирмы Инсат
 
Может кому понадобиться , получилось настроить обмен данными между Excel и OPC , необходим OPC DDE Lectus который уже настроен на обмен с Excel , достаточно прописать в ячейке формулу =ServOPC|Oven!Analog  , где  ServOPC обращение к Lectus OPC , Oven - блок данных , Analog - переменная.  Никаких дополнительных настроек Excel не требуется.
Excel клиент OPC сервера, Чтение данных из OPC сервера ModbusOPCServer фирмы Инсат
 
Не могу понять чего не хватает в коде VBA , из-за чего вылетает ошибка.
Excel клиент OPC сервера, Чтение данных из OPC сервера ModbusOPCServer фирмы Инсат
 
Стоит задача настроить Excel на получение данных из OPC сервера InSAT.ModbusOPCServer.DA  . На просторах интернета нашёл готовый файл excel с готовыми макросами и описанием настроек ПК . OPC сервер установлен и происходит обмен данными с контроллером. Проблема состоит в том, что при наличии готового файла и произведённых всех необходимых настроек ПК макрос выдаёт не понятную для меня ошибку . Помогите разобраться , что я делаю не правильно или , что необходимо доделать (дописать) и в чём суть ошибки?
Изменено: Сергей Фенев - 30.08.2023 16:05:35 (Дополнил вопрос файлом)
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Цитата
написал:
Сергей Фенев,  какой смысл цитировать код?
Хотел показать за что благодарю . Если нарушил какие-либо правила , приношу извинения.
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Цитата
написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32      Sub   Макрос2()          Dim   wbReestr   As   Workbook          Dim   shSheet1   As   Worksheet          Dim   i   As   Long  , lr   As   Long                       On   Error   Resume   Next          'если файл "reestr.xlsm" уже открыт то,          Set   wbReestr = Workbooks(  "reestr.xlsm"  )          'если файл "reestr.xlsm" закрыт, то открываем его          If   wbReestr   Is   Nothing   Then              Set   wbReestr = Workbooks.Open(  "C:\Users\NASTYA\Desktop\reestr.xlsm"  )          End   If          On   Error   GoTo   0                   'Лист1 в файле с макросом (Данные.xlsm)          Set   shSheet1 = ThisWorkbook.Worksheets(  "Лист1"  )                   With   wbReestr.Worksheets(  "reest"  )              i = .Range(  "C6:C50000"  ).Find(  "итого по реестру"  ).Row              lr = .Range(  "C"   & i).  End  (xlUp).Row + 1              .Range(  "C"   & lr) = shSheet1.Range(  "D2"  ).Value   ' ФИО              .Range(  "D"   & lr) = shSheet1.Range(  "D7"  ).Value   ' Адрес              .Range(  "E"   & lr) = shSheet1.Range(  "D8"  ).Value   ' Модель счётчика              .Range(  "F"   & lr) = shSheet1.Range(  "D9"  ).Value   ' Номер счётчика              .Range(  "G"   & lr) = shSheet1.Range(  "D1"  ).Value   ' Номер договора              .Rows(lr + 1).Insert (xlDown)   ' Добавляет строку в таблице          End   With                   Application.DisplayAlerts =   False          wbReestr.Close (  True  )   'сохраняем и закрываем файл Reestr          Application.DisplayAlerts =   True    End   Sub   
 
Спасибо огромнейшее , работает всё как нужно.
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Благодарю за то, что уделили время на мою проблему .


Мне необходимо , чтоб данные из книги (Данные.xlsm) , заносились в таблицу книги (reestr.xlsm) по нажатию кнопки. Предварительно происходит проверка открыта ли книга reestr.xlsm , в том случае если книга открыта , то макрос её закрывает для исключения ошибки (Данная книга открыта , повторное её открытие приведёт к потере данных ....) . После чего происходит открытие книги reestr , в таблицу заносятся данные , книга макросом сохраняется и книга закрывается . Работа макроса меня устраивает. Может коряво написан , но работает так , как мне необходимо.
Макрос который вы прислали , заносит данные в таблицу и закрывает книгу (Данные.xlsm) , а книга reestr.xlsm остаётся открытой .  


После закрытия книги reestr.xlsm , книга Данные.xlsm должна оставаться открытой , для продолжения работы с ней .
Изменено: Сергей Фенев - 01.10.2022 23:00:24
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Путём сотен проб и сотен вариантов наконец-таки добился реального результата . Может кому понадобится , прикладываю рабочие файлы с рабочим макросом. Макрос в файле "Данные"
Изменено: Сергей Фенев - 01.10.2022 22:26:51
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Цитата
написал:
whateverlover, браво!
Сергей Фенев, тут лечим, тут калечим?
Цитата
написал:
whateverlover, браво!
Сергей Фенев, тут лечим, тут калечим?
Поэтому и прошу помощи  потому что только начинаю работу с VBA . Если знаете как исправить и запустить поставленную задачу - исправьте и по возможности объясните в чём моя ошибка , чтоб в будущем , я подобных ошибок не совершал . А осмеивать чужие ошибки , без реального объяснения - это не показатель знаний и умений...  (Сравни фото - это не объяснение и не для этого создаются форумы).
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Цитата
написал:
Сравните свои картинки.
Я изменил названия файлов , что ещё сравнивать? Если конкретного ответа  по вопросу нет , то прошу не переливать с пустого в порожнее.
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Помогите новичку разобраться , что не так , желательно с исправлением макроса в файле "Данные" .  Прикладываю два файла Данные  и reestr . При вводе данных , в файл  "Данные "  , должна заполняться таблица файла reestr. Прикладываю так же фото , с выпадающей ошибкой. Помогите  пожалуйста.
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Прикладываю два файла Данные  и reestr . При вводе данных , в файл "Данные "  , должна заполняться таблица файла reestr.  Помогите пожалуйста. Макрос тормозиться на одном месте.
Изменено: Сергей Фенев - 01.10.2022 13:24:32
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Все буквы английские , добавил в макрос команду открытия книги OTHET (отчёт) , но всё на том же моменте макрос тормозится . Помогите разобраться , что опять не так.
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Помогите понять ,что не так в коде ? Нужно , чтоб отчёт формировался в одной книге из данных в другой книге.
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Благодарю за  очень содержательный ответ , на самом деле всё работает как нужно . Что касается вопроса о повторяющихся значениях кода , то удалю повторяющиеся значения оставлю более подходящие мне.
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 

Имеется файл Excel с двумя листами , на одном из листов находится таблица с кодами подразделений УФМС России  и наименованиями  подразделений УФМС России . На другом листе в ячейку В3 вручную вбивается код подразделения , а в ячейке С3 автоматически должно отображаться наименование данного подразделения , в соответсвии с таблицей .Данную задачу начал реализовывать функцией ЕСЛИ , но это получится формула с несколькими сотнями ЕСЛИ , что не есть хорошо. Подскажите пожалуйста ,  каким образом возможно реализовать данную задачу при помощи  макроса.  Файл с примером прикладываю к вопросу .

Перенос строки на новый лист по условию в excel 2007
 
Спасибо, всё работает.
Перенос строки на новый лист по условию в excel 2007
 
 Помогите разобраться , что в коде макроса написано не верно . Необходимо  , чтоб при условии , что ячейка А1 пустая происходило прерывание работы  макроса и выводилось сообщение ячейка пустая , почему не происходит прерывания работы макроса? Файл с макросом прилагается.
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Спасибо огромное , отчёт формируется как нужно. Подскажите ещё , что необходимо прописать в макросе  для того , чтоб между итоговой строкой и последней заполненной строкой добавлялись пустые строки , понимаю . что строки можно добавить и вручную , но хотелось бы довести файл до логического конца...
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 

Добрый день. Имеется книга Excel 2010, с четырьмя листами «Договор» , «Данные», «Акт» , «Журнал учёта» . Заполнение данных в договор и акт осуществляется с  листа данные , после заполнения печатаются 2 договора и 1 акт и происходит сохранение документа (печать и сохранения реализованы путём создания макроса , который привязан к кнопке .

  Поставлена задача реализовать ведение журнала учёта , т.е. необходимо , чтоб при нажатии кнопки «печать и сохранить» в журнал заносились данные текущего договора согласно таблице и переход на следующую строку для занесения данных следующего договора и т. д. Помогите пожалуйста реализовать поставленную задачу . Файл прикладываю к вопросу.Пример.xlsm (98.68 КБ)

Изменено: Сергей Фенев - 04.07.2022 09:10:18
excel обмен данными с PLC, Использование Excel в качестве scada системы
 
Подскажите пожалуйста , возможно ли использовать Excel 2010 в качестве системы визуализации технологических процессов (scada система) , проще говоря обмен данными между Excel и контроллером через последовательный порт RS485 , RS232 ?
Перенос строки на новый лист по условию в excel 2007
 
Спасибо огромнейшее , всё прекрасно работает , даже лучше, чем хотелось.
Перенос строки на новый лист по условию в excel 2007
 
В приложенном файле , разобрался с переносом строк с одного листа , по условию , на новый лист ,благодаря Igor67 , но поставлена новая задача реализовать такой же сбор данных со множества листов. Помогите пожалуйста новичку в данном деле , не могу догнать как это реализовать . ( С листа "Участок 1" сбор данных происходит).
Изменено: Сергей Фенев - 25.01.2022 08:52:03
Перенос строки на новый лист по условию в excel 2007
 
Имеется таблица приборов с графиком проверки . Необходимо выносить на отдельный лист (в данном случае лист с названием " ТРЕБУЮЩИЕ ПРОВЕРКИ) строки , в которых ячейка столбца G подсвечена красным цветом.
Страницы: 1
Наверх