Первый пост, мне нравится то, что вы все здесь делаете. Используя серьезные возможности Google, я обнаружил код VBA для выполнения двух вещей, которые мне нужно выполнить.

1. У меня есть 3 списка проверки данных на одной вкладке, и я хочу, чтобы списки по умолчанию были в верхней части списка, а не в нижней части; Я нашел этот удивительный код, и он РАБОТАЕТ.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
'Обновить Extendoffice 20160725
Dim xFormula как строка
При ошибке GoTo Out:
xFormula = Target.Cells(1).Validation.Formula1
Если Слева(xФормула, 1) = "=" Тогда
Target.Cells(1) = Диапазон(Mid(xFormula, 1)).Cells(1).Значение
End If
Отъезда:
End Sub

2. Когда я изменяю первый список проверки данных, я хочу, чтобы другие 2 ячейки очищались и становились пустыми, в данном случае B74 и B145. Я нашел МНОЖЕСТВО веб-сайтов, которые могут похвастаться одинаковым или очень похожим кодом, но ни один вариант, который я могу найти (буквально страницы ссылок Google), не работает. Это часть, которая у меня не работает, и я полагаю, что это может иметь какое-то отношение к приведенному выше коду.

Private Sub Worksheet_Change (ByVal Target As Range)
Если Цель.Адрес(0, 0) = "B3" Тогда
Диапазон("B74,B145").ClearContents
End If
End Sub

Заранее спасибо!