Копирование в ячейку, установленную функцией АДРЕС

Копирование в ячейку, установленную функцией АДРЕС, Разработка макроса

Пользователь

Сообщений: 4 Регистрация: 11.04.2024

11.04.2024 01:11:27

Добрый день!
Имеется задача:
Необходимо разработать VBA-макрос для копирования значения из ячейки Е2 в ячейку, которая определяется функцией АДРЕС исходя из других переменных. Пример прилагаю.

Заранее благодарю за участие в решении данного вопроса!

[Вопрос закрыт]

Прикрепленные файлы

Пример.xlsx (9.66 КБ)

Изменено: Gramr294 - 12.04.2024 18:10:38 (Прошу прощения, не совсем понял как в названии темы установить что вопрос закрыт, скорее всего это делается модераторами.)

irabel

Пользователь

Сообщений: 89 Регистрация: 22.07.2022

11.04.2024 06:40:19

Код
Sub test() Dim Adr$ Adr = [d2] Range(Adr).Value = Range("E2").Value End Sub

БМВ

Модератор

Сообщений: 24500 Регистрация: 28.12.2016

Excel 2013, 2016, 2021

11.04.2024 07:31:08

Код
Range(Range("D2")) = Range("E2")

По вопросам из тем форума, личку не читаю.

МатросНаЗебре

Пользователь

Сообщений: 8263 Регистрация: 05.02.2014

11.04.2024 09:49:50

Цитата
написал: разработать VBA-макрос

Если это требование некритично, то вариант формулой. Вставить в B6 и протянуть.

Код
=ЕСЛИ(ПОДСТАВИТЬ(ЯЧЕЙКА("адрес";B6);"$";"")=$D$2;$E$2;"")

Gramr294 Пользователь Сообщений: 4 Регистрация: 11.04.2024	#5 12.04.2024 17:59:02 irabel, спасибо за помощь, именно то что и было нужно!

Gramr294 Пользователь Сообщений: 4 Регистрация: 11.04.2024	#6 12.04.2024 18:02:20 МатросНаЗебре, предполагалось закрепить макрос за фигурой чтобы создать своего рода кнопку, использовал решение предложенное выше.

Gramr294 Пользователь Сообщений: 4 Регистрация: 11.04.2024	#7 12.04.2024 18:03:31 БМВ, даже не предполагал что можно использовать конструкции Range(Range, благодарю за ответ.

Читают тему