Здраствуйте,

Пытаюсь настроить событие Worksheet_Change, чтобы оно выполнянло код при изменении ячейки с выпадающим списком (через validation). Нужно, чтобы оно происходило тогда, когда значение выбрано из списка.
Сейчас проблема в том, что если ввести туда что-то, потом в окне с ошибкой нажать Cancel, то worksheet_change выполняется 2 раза, причем оба раза Target.Value одинаковое.

Проверяю так:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E7").Item(1).Address = Target.Address Then
MsgBox Range("E7").Item(1).Value & vbCr & Target.Address
End If
End Sub

Соответственно пока я правлю на неправильные значения в списке и жму Retry этот эвент не выполняется, но потом если я нажму Cancel либо выберу нормальное значение из списка то этот MsgBox выскакивает столько раз сколько я нажал retry/cancel.

Так суть в том, что эвент вызывается когда validation закончилось и
Range("E7").Item(1).Value = выбранному из списка значению либо предыдущему значению (если было нажато cancel).
Когда жмешь просто del на ячейку то worksheet_change вообще не вызывается.

Поясню ещё раз что происходит :)

есть код

В Е7 список предположим из 5 значений "Value1, Value2, Value3, Value4, Value5"
Выбрано предположим Value3.

Я жму и мне лень тыкать мышкой, печатаю Vale1, жму ентер, выдает ошибку, жму retry
Исправляю на Value1, жму ентер.

Выскакивает 2 MsgBoxа по очереди с одинаковым текстом:
Value1
$E$7

То есть это означает, что 2 раза выполняется worksheet_change с одинаковым Target (уже после всех изменений validation). Если ошибочно ввести 2-3-4-5 раз, то код выполнится 2-3-4-5 раз.

Есстественно у меня там не MsgBox должен быть, а некий код на 1-2 секунды выполнения (забрать текст из таблицы, форматнуть, скопировать в специальное место, в зависимости от нового значения забрать из большой таблицы новые данные и записать в маленькую таблицу, форматнуть опятьже).
Ок, когда оно выполняется 1 раз, экран мигнул и юзер доволен, но когда оно 5 раз прыгает и мигает 10 секунд выглядит криво :)

а ну да в принципе, чего-то я не понял в начале :)
спс за идею