Кнопка для внесения значений на несколько листов сразу

[Hugo121]

Про ошибку не верю. Это не мой код, а Ваше применение даёт ошибку.
Покажите файл с ошибкой (естественно не графический... )

[filton]

Так я и не говорил, что дело в коде) Не на тот лист его запихал. Да, все действительно работает так как нужно, большое спасибо!

• Как можно сделать так, чтобы кнопка забирала с того листа, на котором она расположена? А расположена она будет на листе с вносимыми данными. Через ActiveSheet, например. Книг будет несколько, нужно будет приделать кнопку в каждую. А таким образом, чтобы нажать на кнопку, нужно было бы сначала активировать лист с вносимыми данными.
• Как сделать сканирование по всей книге?
• Не могли бы Вы объяснить, как задать игнорирование кодом пустых ячеек? А то, если в листе, откуда берутся данные, есть пустая строка, то он после нее не выполняется.
• Где в коде подредактировать ячейку, в которую вставляются данные?

[Hugo121]

1. Ну так и замените Worksheets("лист1") на activesheet.
Вообще я в таких случаях чтоб не возиться с многими кнопками и кодами выполняю один код из любой одной открытой в фоне книги по alt+f8.

2. Цикл по листам. Но вообще это нужно смотреть файл и вникать....

3. Нужно заменить использование currentregion на другое определение диапазона - и оно есть уже в коде, сразу после Worksheets("лист1").
Вот как-то так - но опять всё зависит от данных.

4. Тут: Worksheets("лист1").Cells(1, UBound(a, 2) + 1)

[filton]

Сообщение от Hugo121

2. Цикл по листам. Но вообще это нужно смотреть файл и вникать...

А не подскажете, как его сделать? В файле просто несколько листов со столбцами id и ФИО, они идентичны друг другу. Нужно чтобы кнопка искала совпадения по всем листам, можно даже не исключать лист со вносимыми данными.

[Hugo121]

Сделайте пример с несколькими листами, обязательно в формате xls - тогда посмотрю. Что-то не нравится моему конвертеру Ваш пример...

[filton]

Поместил кнопку на лист с вносимыми данными, заменил лист1 на activesheet - что-то не получается у меня, выдает ошибку. По alt+F8 аналогично.

Прикрепил файл в том виде, в каком будет в чистовом варианте.
В общем и целом важно только 2 пункта

1. Ну так и замените Worksheets("лист1") на activesheet.
Вообще я в таких случаях чтоб не возиться с многими кнопками и кодами выполняю один код из любой одной открытой в фоне книги по alt+f8.

2. Цикл по листам. Но вообще это нужно смотреть файл и вникать....

[filton]

Нужно чтобы кнопка забирала с того листа, на котором она расположена вместе с вносимыми данными. В примере "лист4", но она может быть и на пятом и на десятом. Т.е. activesheet, к примеру, но у меня выдает ошибку если заменять "лист2" на activesheet.
Подобных книг будет несколько, поэтому видится еще один вариант: просто указывать в каждой книге в коде вручную лист с данными, но не могу понять как. Если просто заменять названия листов в коде, то постоянно ошибки.

Как сделать выполнение по всей книге? Или хотя бы прописать каждый лист в код, если возможно.

[Hugo121]

Что забирала? Вероятно вот эти непонятные 1,02-15,16...
Но куда забирала?
Красить нужно или уже нет?