Страницы: 1
RSS
Обнуление значений ячейки, выбираемых из выпадающего списка, при перезаполнении другой ячейки
 
Заполняется ячейка D3, затем по условиям, зависящим от D3, выпадает список и выбирается значение для ячейки D4/
Необходимо сделать: Если значение D3 изменяется, значение D4 обнуляется

Пример во вложении
 
В модуль листа:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D3")) Is Nothing Then
        Application.EnableEvents = False
        Range("D4") = ""
    End If
    Application.EnableEvents = True
End Sub

 
tatyanka-7, Не спешите
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=104182&...
По вопросам из тем форума, личку не читаю.
 
Off
Юрий М, я в шоке https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=104180&a... и  https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=104136&a... Бессонница ?
По вопросам из тем форума, личку не читаю.
 
Был на ночном дежурстве. Сейчас уже дома )
 
Off
Юрий М, #3 ссылка,  темы связаны первопричиной. Мне ужасть как не нравится такой способ, дэлокализации. А как еще можно?  
Изменено: БМВ - 29.04.2018 12:03:36
По вопросам из тем форума, личку не читаю.
 
Дэлокализация - а ругаться зачем? ))
Миш, уточни вопрос...
 
Юрий М, в той теме сформулировал.
По вопросам из тем форума, личку не читаю.
 
Скажите, а без макросов возможно как-то решить этот вопрос?

Прикрепила пример из этой же серии. Мне самое важное, это избежать некорректных данных и сохранить выпадающий список
 
Работает
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D3")) Is Nothing Then
        Application.EnableEvents = False
        Range("D4") = ""
    End If
    Application.EnableEvents = True
End Sub

Огромное спасибо!!
Страницы: 1
Наверх