Ошибка выполнения 1004 - VBA - PullRequest
0 голосов
/ 31 мая 2018

Я пытаюсь добавить проверку данных в один из столбцов.Я использовал тот же код ранее, и он работает нормально.Но я не уверен, почему это не работает.

Ниже приведен мой код:

Sheets("Input").Range("N:N").Select
  'Columns("N:N").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "=INDIRECT(SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE((SUBSTITUTE(Y1, ""/"", """")), ""&"", """")), "" "", """")), ""("", """")), "")"", """")), "","", """"))"
//This where my code gives me an error stating Run-time error 1004
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
        Range("N1").Select
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
            :=xlBetween
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With

Ячейка Y1 в моем листе Excel снова является формулой.Может ли это быть проблемой?

Значения выборки ячеек Y1: «Одежда для взрослых и упаковка обуви / Маркировка», «Ювелирные изделия, часы, сумкиСоветный запрос / регулирующий визит»

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