Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копировал информацию по разным столбцам и строкам с разных.. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировал информацию по разным столбцам и строкам с разных.. (Макросы/Sub)
Копировал информацию по разным столбцам и строкам с разных..
Tyoma Дата: Понедельник, 22.07.2019, 18:01 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Уважаемые форумчани, гуру! Прошу помощи в редактировании макроса, не могу понять и допилить, как заставить макрос копировать, записывать информацию по разным столбцам, строкам и с двух листов Excel одной книги, записывать в другую книгу на определённый лист.
В общем нужно в книгу: «База» на лист «Журнал учёта», что бы при нажатии кнопки «журнал учёта» макрос сдергивал информацию с книги «Прот.» в книгу «База» на лист «журнал учёта». В столбец «А» (№) шла поочерёдная сквозная нумерация автоматом при добавление записи, в столбце «В» (номер протокола) копировал информацию с книги: «Прот», с листа «Условия» с ячейки «F49», в столбце «С» (Дата), копировал информацию с книги «Прот» с листа «Условия» с ячейки «F30», в столбце «D» (Наименование), с книги «Прот» с листа «Протокол» копировал информацию с ячейки «I9», в столбце «E» (серийный номер прибора) копировал информацию с книги «Прот», с листа «Протокол» c ячейки «E13», в столбце «F» (Место установки), копировал информацию с книги «Прот» с листа «Протокол» c ячейки «F11», в столбце «Y» (Поверитель) копировал информацию с книги «Прот» с листа «Протокол» c ячейки «Q64», в конце, когда заканчивал работу макрос, выводил окошко, что данные заполнены и кнопка «ОК».
В файле книге база, 1 строчка заполнена в конечном итоге, как всё должно быть выполнено макросом. Пример (шаблоны) Прот, база прикрепляю.
До этого писал макрос он внутри называется Журнал_свидетельств, но он копирует только с одного листа в книге «Прот» с листа «НД и условия проведения» работает криво , охота довести до ума . Заранее спасибо за помощь!
К сообщению приложен файл: 3817199.xlsm(54.6 Kb) · 9648170.xlsx(10.9 Kb)
 
Ответить
СообщениеУважаемые форумчани, гуру! Прошу помощи в редактировании макроса, не могу понять и допилить, как заставить макрос копировать, записывать информацию по разным столбцам, строкам и с двух листов Excel одной книги, записывать в другую книгу на определённый лист.
В общем нужно в книгу: «База» на лист «Журнал учёта», что бы при нажатии кнопки «журнал учёта» макрос сдергивал информацию с книги «Прот.» в книгу «База» на лист «журнал учёта». В столбец «А» (№) шла поочерёдная сквозная нумерация автоматом при добавление записи, в столбце «В» (номер протокола) копировал информацию с книги: «Прот», с листа «Условия» с ячейки «F49», в столбце «С» (Дата), копировал информацию с книги «Прот» с листа «Условия» с ячейки «F30», в столбце «D» (Наименование), с книги «Прот» с листа «Протокол» копировал информацию с ячейки «I9», в столбце «E» (серийный номер прибора) копировал информацию с книги «Прот», с листа «Протокол» c ячейки «E13», в столбце «F» (Место установки), копировал информацию с книги «Прот» с листа «Протокол» c ячейки «F11», в столбце «Y» (Поверитель) копировал информацию с книги «Прот» с листа «Протокол» c ячейки «Q64», в конце, когда заканчивал работу макрос, выводил окошко, что данные заполнены и кнопка «ОК».
В файле книге база, 1 строчка заполнена в конечном итоге, как всё должно быть выполнено макросом. Пример (шаблоны) Прот, база прикрепляю.
До этого писал макрос он внутри называется Журнал_свидетельств, но он копирует только с одного листа в книге «Прот» с листа «НД и условия проведения» работает криво , охота довести до ума . Заранее спасибо за помощь!

Автор - Tyoma
Дата добавления - 22.07.2019 в 18:01
Pelena Дата: Вторник, 23.07.2019, 10:57 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14320
Репутация: 3131 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Так хотели?
К сообщению приложен файл: 8130348.xlsm(53.3 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак хотели?

Автор - Pelena
Дата добавления - 23.07.2019 в 10:57
Tyoma Дата: Вторник, 23.07.2019, 13:03 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
8130348.xlsm
В целом да огромное спасибо, но хотел бы ещё, что бы после нажатие на клавишу: Журнал учёта, выходило окошко-сообщение, что данные записаны, нажимаю ок, окошко пропадало и что бы книга база не открывалась, а по умолчанию записывалась.
 
Ответить
Сообщение
8130348.xlsm
В целом да огромное спасибо, но хотел бы ещё, что бы после нажатие на клавишу: Журнал учёта, выходило окошко-сообщение, что данные записаны, нажимаю ок, окошко пропадало и что бы книга база не открывалась, а по умолчанию записывалась.

Автор - Tyoma
Дата добавления - 23.07.2019 в 13:03
Pelena Дата: Вторник, 23.07.2019, 13:09 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 14320
Репутация: 3131 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Так?
К сообщению приложен файл: 9566900.xlsm(53.7 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак?

Автор - Pelena
Дата добавления - 23.07.2019 в 13:09
Tyoma Дата: Вторник, 23.07.2019, 13:27 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
9566900.xlsm

Да замечательно, теперь прям так, как и хотелось, кинул тройку сотен донатов в знак благодарности на яндекс кошелёк, ещё раз большое спасибо вы прям реально выручили оптимизировали временные затраты :D !


Сообщение отредактировал Tyoma - Вторник, 23.07.2019, 13:29
 
Ответить
Сообщение
9566900.xlsm

Да замечательно, теперь прям так, как и хотелось, кинул тройку сотен донатов в знак благодарности на яндекс кошелёк, ещё раз большое спасибо вы прям реально выручили оптимизировали временные затраты :D !

Автор - Tyoma
Дата добавления - 23.07.2019 в 13:27
Pelena Дата: Вторник, 23.07.2019, 14:06 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 14320
Репутация: 3131 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
И Вам спасибо :)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеИ Вам спасибо :)

Автор - Pelena
Дата добавления - 23.07.2019 в 14:06
Tyoma Дата: Вторник, 23.07.2019, 14:56 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Вот ещё один вопрос по этому макросу, а можно ли предусмотреть, что бы этот же макрос одинаковые данные, которые уже записал, перезаписывал, а не записывал ещё одной строчкой?
 
Ответить
СообщениеВот ещё один вопрос по этому макросу, а можно ли предусмотреть, что бы этот же макрос одинаковые данные, которые уже записал, перезаписывал, а не записывал ещё одной строчкой?

Автор - Tyoma
Дата добавления - 23.07.2019 в 14:56
Tyoma Дата: Среда, 24.07.2019, 15:31 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Так?

Вот ещё один вопрос по этому макросу, а можно ли предусмотреть, что бы этот же макрос одинаковые данные, которые уже записал, перезаписывал, а не записывал ещё одной строчкой?
 
Ответить
Сообщение
Так?

Вот ещё один вопрос по этому макросу, а можно ли предусмотреть, что бы этот же макрос одинаковые данные, которые уже записал, перезаписывал, а не записывал ещё одной строчкой?

Автор - Tyoma
Дата добавления - 24.07.2019 в 15:31
Pelena Дата: Понедельник, 29.07.2019, 15:58 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 14320
Репутация: 3131 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Зачем перезаписывать одинаковые данные?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗачем перезаписывать одинаковые данные?

Автор - Pelena
Дата добавления - 29.07.2019 в 15:58
Tyoma Дата: Вторник, 30.07.2019, 08:34 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Зачем перезаписывать одинаковые данные?

Ну например если забыл, что данные уже записал ранее с книги, и ещё раз записал с этой же книги, то данные записываются одинаковые в реестр под следующем номером, а хотелось бы это исключить, если это конечно возможно же ^_^ .
 
Ответить
Сообщение
Зачем перезаписывать одинаковые данные?

Ну например если забыл, что данные уже записал ранее с книги, и ещё раз записал с этой же книги, то данные записываются одинаковые в реестр под следующем номером, а хотелось бы это исключить, если это конечно возможно же ^_^ .

Автор - Tyoma
Дата добавления - 30.07.2019 в 08:34
Pelena Дата: Вторник, 30.07.2019, 20:12 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 14320
Репутация: 3131 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
хотелось бы это исключить

То есть не перезаписывать, а просто игнорировать такие данные?
Что проверять на повторы? Номер протокола?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
хотелось бы это исключить

То есть не перезаписывать, а просто игнорировать такие данные?
Что проверять на повторы? Номер протокола?

Автор - Pelena
Дата добавления - 30.07.2019 в 20:12
Tyoma Дата: Среда, 31.07.2019, 11:31 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
То есть не перезаписывать, а просто игнорировать такие данные?
Что проверять на повторы? Номер протокола?

Да либо игнорировать, либо перезаписывать, да по номеру протокола проверка пойдёт, он уникален.
 
Ответить
Сообщение
То есть не перезаписывать, а просто игнорировать такие данные?
Что проверять на повторы? Номер протокола?

Да либо игнорировать, либо перезаписывать, да по номеру протокола проверка пойдёт, он уникален.

Автор - Tyoma
Дата добавления - 31.07.2019 в 11:31
Pelena Дата: Среда, 31.07.2019, 16:13 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 14320
Репутация: 3131 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Так подойдёт?
К сообщению приложен файл: 9849543.xlsm(55.4 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак подойдёт?

Автор - Pelena
Дата добавления - 31.07.2019 в 16:13
Tyoma Дата: Четверг, 01.08.2019, 16:17 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Так подойдёт?

Да, всё хорошо работает, огромное спасибо!
Здесь ещё одна просьба будет, не сочтите за наглость :shy: , появилось ещё одно требование: при условии в ячейки B48-1 то фамилия берётся книги база, лист общие ячейка В2 а буква с ячейки В3, а если ячейка B48-2 то фамилия берётся книги база, лист общие ячейка В2 а буква с ячейки В2.
Там всё различие что при условии ПОВ буква английская, а при условии КАЛ буква русская.
Примеры прикрепляю ;) .
 
Ответить
Сообщение
Так подойдёт?

Да, всё хорошо работает, огромное спасибо!
Здесь ещё одна просьба будет, не сочтите за наглость :shy: , появилось ещё одно требование: при условии в ячейки B48-1 то фамилия берётся книги база, лист общие ячейка В2 а буква с ячейки В3, а если ячейка B48-2 то фамилия берётся книги база, лист общие ячейка В2 а буква с ячейки В2.
Там всё различие что при условии ПОВ буква английская, а при условии КАЛ буква русская.
Примеры прикрепляю ;) .

Автор - Tyoma
Дата добавления - 01.08.2019 в 16:17
Pelena Дата: Четверг, 01.08.2019, 19:08 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 14320
Репутация: 3131 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Не надо складывать все вопросы в одну тему. Читайте Правила форума


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНе надо складывать все вопросы в одну тему. Читайте Правила форума

Автор - Pelena
Дата добавления - 01.08.2019 в 19:08
Tyoma Дата: Пятница, 02.08.2019, 08:31 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Не надо складывать все вопросы в одну тему. Читайте Правила форума

Создать отдельную тему?
 
Ответить
Сообщение
Не надо складывать все вопросы в одну тему. Читайте Правила форума

Создать отдельную тему?

Автор - Tyoma
Дата добавления - 02.08.2019 в 08:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировал информацию по разным столбцам и строкам с разных.. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!