Скопировать значение из определённой ячейки ТЕКУЩЕЙ СТРОКИ в определённую ячейку другого листа

[Павел-812]

Здравствуйте! Так как только начинаю осваивать excel, есть вопрос, на который, наверняка, вы сможете мне помочь найти ответ.

Требуется скопировать значение из определённой ячейки ТЕКУЩЕЙ СТРОКИ в определённую ячейку другого листа.

Пробовал писать макрос и смотреть код - идёт привязка к конкретной строке (откуда копируем). А надо так: скопировали значение из ячейки текущей строки. Потом вручную переместились курсором НА СТРОКУ НИЖЕ и скопировали значение из ячейки, опять вставили это на другой лист.

[Slavik]

В екселе есть функция называеться "автозаполнение", может вам луше ей воспользоваться?

[Павел-812]

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

В екселе есть функция называеться "автозаполнение", может вам луше ей воспользоваться?

Нет, речь идёт не об этом. Нужно данные из одного листа скопировать в другой лист.
Если точнее - первый лист из себя представляет огромную таблицу. Наша задача - выбрать из текущей строки (там, где стоит курсор, не мыши) данные из определённых ячеек и вставить их на другой лист в строго определённые ячейки, который из себя представляет что-то вроде красивой формы, готовой для печати.

[Павел-812]

Пока пошёл по такому пути (отрывок из кода):

'Копируем номер карточки
Sheets("Пожары").Select
ActiveCell.Copy
Sheets("Данные для карточки").Select
Range("B2").Select
ActiveSheet.Paste

'Копируем дату пожара
Sheets("Пожары").Select
ActiveCell.Offset(0, 1).Copy
Sheets("Данные для карточки").Select
Range("B3").Select
ActiveSheet.Paste

Что напрягает, что ячейка копируется целиком, а надо только содержимое ячейки скопировать. Что подскажете?

[IgorGO]

'Копируем дату пожара
Sheets("Данные для карточки").Range("B3").Value = Sheets("Пожары").ActiveCell.Offset( 0, 1).Value

[Павел-812]

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

'Копируем дату пожара
Sheets("Данные для карточки").Range("B3").Value = Sheets("Пожары").ActiveCell.Offset( 0, 1).Value

Игорь, спасибо Большое! Обязательно оптимизирую код. Главное сейчас - чтобы механизм заработал. А он вроде как работает, урра! Теперя, главное, разобраться, как сделать так, чтобы копировалась ячейка без форматирования (только значение).

[Павел-812]

Сообщение от Павел-812

Игорь, спасибо Большое! Обязательно оптимизирую код. Главное сейчас - чтобы механизм заработал. А он вроде как работает, урра! Теперя, главное, разобраться, как сделать так, чтобы копировалась ячейка без форматирования (только значение).

Ээээ. Рано поспешил. Появилась ошибка при использовании выражения
Sheets("Данные для карточки").Range("B3").Value = Sheets("Пожары").ActiveCell.Offset( 0, 1).Value

"Объект не поддерживает это свойство или метод" (перевёл с инглиша).

[EducatedFool]

Sheets("Данные для карточки").Range("B3").Value = ActiveCell.next

Это если надо скопировать содержимое ячейки, находящейся справа от выделенной.

А если надо копировать содержимое из ячейки определённого столбца (независимо от того, в каком столбце расположена выделенная ячейка), то используйте такой код:

Sheets("Данные для карточки").Range("B3").Value = ActiveCell.entirerow.cells(3)

--------- вдруг кому пригодится --------------

Надстройка LOOKUP предназначена для сравнения и подстановки значений в таблицах Excel.

Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
надстройка «Lookup» поможет сделать это нажатием одной кнопки.

В настройках программы можно задать:

• где искать сравниваемые файлы (использовать уже открытый файл, загружать файл по заданному пути, или же выводить диалоговое окно выбора файла)
• с каких листов брать данные (варианты: активный лист, лист с заданным номером или названием)
• какие столбцы сравнивать (можно задать несколько столбцов)
• значения каких столбцов надо копировать в найденные строки (также можно указать несколько столбцов)

Скачать надстройку для сравнения таблиц Excel и копирования данных из одинаковых строк

[Павел-812]

У меня всё-всё-всё получилось! Я достиг цели, не жалею потраченных сил и времени. Теперь моя повседневная работа будет продвигаться гораздо быстрее! Ура! Всем спасибо за советы!

Единственное, что осталось для косметических штрихов - сделать так, чтобы ячейки при копировании теряли форматировании (точнее - только оформление жирным шрифтом, выравнивание, размер шрифта, границы).

И ещё хотелось бы сделать так, чтобы макрос проверял при старте, что первоначально курсор находится в нужном столбце, а то ведь если не в том месте будет стоять, то данные (мы же смещение используем) будут неверны.

В общем, хочется изваять код, который проверял, находится-ли курсор в 4-м столбце. Если нет - выдавал информационное окошко с просьбой поставить курсор куда надо и останавливал выполнение макроса.

Или по-другому сделать - чтобы макрос сам ставил курсор в 4-й столбец ТЕКУЩЕЙ строки. Это выполнимо?

[Павел-812]

Хочу похвастаться результатами. ))
На скриншотах исходная таблица с данными и конечный продукт, подготовленный для печати.
А на третьем изображении как раз промежуточный лист, куда заносим данные из таблицы при помощи макрокода.