Этот код не работает для меня. Кто-то может увидеть ошибку. Отображается ошибка времени выполнения «1004». Это ошибка в формуле 1, и это не полный код, а ошибка здесь.
Dim JT As String
JT = Columns("E:E").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=IFS(L2=$M$2,B,L2=$N$2,Co,L2=$O$2,E,L2=$P$2,En,L2=$Q$2,I_T,L2=$R$2,O,L2=$S$2,P_B,L2=$T$2,Sp,L2=$U$2,SII)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With