Проверка ячейки на значение и форматирование диапазона

[voievod]

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

В общем задача: есть ячейка D5 в которую из другой ячейки на другом листе сбрасывается знак используемой валюты $ или €, нужно чтобы макрос автоматически проверил значение в ячейке D5 и в зависимости от знака валюты отформатировал бы диапазон сумм R3:R18 на этом же листе в соответствующую валюту, то есть вместо 1000,0 написал бы €1000,0. Знаю, что должно быть просто до безобразия, но сам пока не справляюсь, помогите кто знает.

[EducatedFool]

При ручном выборе валюты из выпадающего списка макрос достаточно прост:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [d5].Address Then [r3:r18].NumberFormat = "[$" & [d5] & "] #,##0.0"
End Sub

Каким образом в ячейку D5 сбрасывается знак используемой валюты?
Формулой, макросом, через DDE?

[voievod]

этот вариант работает, спасибо, правда есть один момент знак валюты сбрасывается в ячейку формулой, точнее просто ссылкой на ячейку на другом листе, по этому видимо для того чтобы сработал макрос, нужно ещё раз кликнуть на D5 и нажать enter иначе как я вижу он автоматом это сделать не может, посоветуйте как сделать чтобы всё-таки это происходило автоматом, изменить способ получения знака в D5?

[voievod]

я так сам предполагаю, что лучше чтобы макрос читал сразу из ячейки откуда выбирается знак валюты, то есть тоже D5 только на другом листе, как добавить в код ссылку на ячейку D5 к примеру на Sheet2, а то я и так и этак, но что-то ошибку показывает

[EducatedFool]

Надо перенести код в модуль другого листа - того, на котором происходит выбор валюты в ячейке D5

И немного изменить адрес обрабатываемого диапазона:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [d5].Address Then worksheets("СюдаПишемНазваниеЛиста").[r3:r18].NumberFormat = "[$" & [d5] & "] #,##0.0"
End Sub

Если самостоятельно не справитесь - выкладывайте свой файл, сделаем.

[voievod]

о спасибо заработало если что буду ещё спрашивать, а лучше конечно самому всё выучить