показать выпадающий список, если условие выполнено

Question

Я видел несколько тем о надежных выпадающих списках, но ни один из них не дает мне идеи, как этого добиться.У меня есть столбец "C", где информация заполняется функцией VLOOKUP из другой таблицы листов, и мне нужен параметр, который проверял бы, если в столбце типизированное значение ячейки равно = 001377, то это должно дать мне выпадающий список с двумя значениями,если нет, то продолжайте использовать функцию VLOOKUP дальше без списков.Как мне этого добиться?

Answer 1

Option Explicit

Sub test()

    Dim LastRow As Long, i As Long

    'Change sheet name if needed
    With ThisWorkbook.Worksheets("Sheet1")

        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To LastRow

            If .Range("A" & i).Value = "001377" Then
                'Replace Formula1:="1,2" with the two values that you want to appear in the drop down
                With .Range("C" & i).Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="1,2"
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .ShowInput = True
                    .ShowError = True
                End With

            Else
                'Code for VLOOKUP
            End If

        Next i

    End With

End Sub