Заполнение ячеек содержимым других ячеек

Старая форма входа

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

Заполнение ячеек содержимым других ячеек (Макросы/Sub)

rsaburow

Дата: Суббота, 06.01.2024, 18:39 | Сообщение № 1

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

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

Сообщений: 2

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

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

2019

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

Ответить

i691198

Дата: Воскресенье, 07.01.2024, 11:25 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 337

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

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

Добрый день. Для этой задачи лучше использовать событие двойной клик по ячейке. Например так.
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1) = Target
Target.Interior.Color = vbYellow 'Заливка ячейки, значение которой уже скопировано
End Sub

[/vba] Макрос нужно вставить в модули всех листов из которых нужно копировать значения.

Ответить

rsaburow

Дата: Воскресенье, 07.01.2024, 15:36 | Сообщение № 3

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

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

Сообщений: 2

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

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

2019

Большое спасибо! Подошло идеально

Ответить

Заполнение ячеек содержимым других ячеек (Макросы/Sub)

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