Как убрать динамическую ошибку проверки данных - PullRequest
0 голосов
/ 03 июля 2019

Мой код динамически назначает проверки из списка для определенного диапазона данных. Но ошибка происходит в том же. Все элементы списка назначаются на row1, но все элементы минус верхний элемент списка назначаются на row2, и аналогично, для row3 назначаются все элементы минус два верхних элемента списка и так далее. Пожалуйста, смотрите изображения для лучшего понимания моей проблемы

With sht.Range("C2:C" & LastRow1).Validation 'LastRow1 is the last row till which validations have to be assigned
    .delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    Operator:=xlBetween, Formula1:="=DropDown!C2:C" & LastRowS 'LastRowS is the last row of the list from which validations will be assigned
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = "Value not present in drop down."
    .ShowInput = True
    .ShowError = True
End With

LIST ROW1 ROW2

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...