Страницы: 1
RSS
Подстановка картинок по условиям
 
Добрый вечер.
Прошу помощи.

Ссылка на архивную тему.
В нем вложен пример с решением  от "Новичок VBA (Miнск) Гость"

Все понятно, все работает, но только если значение подставляешь вручную (и только цифры). В коде есть пункт "Integer" И наверное именно из-за этого код срабатывает именно "вручную"
Как и что нужно сделать, чтоб значения сформированные формулами, тоже работали работали.
Изменено: Сергей Халиков - 19.01.2019 02:09:24
 
Добрый день.
Удалите 3-ю сверху и 3-ю снизу строчки кода:
Код
...
If Not Intersect(Target, Sheets("Sheet1").Range("C3")) Is Nothing Then
...
End If
...
 
Спасибо огромное!!!

Работает.
Страницы: 1
Наверх