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

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Копирование данных из активной ячейки в другой лист (Макросы/Sub)

ventru72

Дата: Понедельник, 11.06.2018, 23:26 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Всем привет. Я честно пытался разобраться в VBA, но времени уже в притык, а я так особо и не продвинулся. Помогите пожалуйста сделать следующую задачу.
Есть таблица в ней несколько столбцов (Название обьекта, названия приборов и т д). Количество строк таблицы будет меняться. Нужно сделать кнопочку, при нажатии на которую. Данные выделенной (активной) строки записываются в ячейки другого листа. Нажали кнопочку и ячейки данной строки скопировались в ячейки другого листа. Форма и размер листа в который будут копироваться данные будет неизменна, то есть адрес ячеек не будет меняться.

Ответить

Pelena

Дата: Вторник, 12.06.2018, 06:32 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19516

Репутация: 4632 ±

Замечаний: ±

Excel 365 & Mac Excel

Файл с примером помог бы в понимании проблемы

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

ventru72

Дата: Вторник, 12.06.2018, 11:12 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата Pelena, 12.06.2018 в 06:32, в сообщении № 2 ()

Файл с примером помог бы в понимании проблемы

К сообщению приложен файл: ___.xlsm (23.5 Kb)

Ответить

StoTisteg

Дата: Вторник, 12.06.2018, 13:23 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

И что должно копироваться? Все данные или только кликнутая ячейка?

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

ventru72

Дата: Вторник, 12.06.2018, 19:55 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата StoTisteg, 12.06.2018 в 13:23, в сообщении № 4 ()

И что должно копироваться? Все данные или только кликнутая ячейка?

Только выбранная ячейка

Ответить

boa

Дата: Среда, 13.06.2018, 10:13 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 563

Репутация: 167 ±

Замечаний: 0% ±

365

ventru72,
[vba]

Код

Sub MeCopy()
Dim R As Range: Set R = ActiveCell.EntireRow    'переменной присваивается строка с активной ячейкой
Dim sh As Worksheet: Set sh = ThisWorkbook.Worksheets("Лист2")  'лист куда будем копировать
Dim iRow&: iRow = 34                            'номер строки с которой начинаем вставку
    Do While sh.Cells(iRow, 2) <> ""            'если она заполнена, ищем следующую пустую
        iRow = iRow + 1
    Loop
    Application.Union(R.Cells(3), R.Cells(4), R.Cells(7), R.Cells(8)).Copy sh.Cells(iRow, 2)
End Sub

[/vba]

Ответить

ventru72

Дата: Среда, 13.06.2018, 21:28 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Излишнее цитирование удалено администрацией - это нарушение Правил форума

Cпасибо это то что нужно. Еще чуть чуть доработаю под себя. Спасибо огромнейшее!

Ответить

Копирование данных из активной ячейки в другой лист (Макросы/Sub)

Страница 1 из 1
1