Я пытаюсь проверить определенный столбец, который использует проверку списка. Если (столбец «Таблица (T)/ Линия (L)» = «L») использовать конкретную таблицу, если (столбец «Таблица (T)/ Линия (L)» = «t») использовать другую таблицу. Я использую этот код ниже, но он не работает - список имеет неправильные значения:

 Function check_alignment_column()

Dim cell As Range, j As String


msg = ""
Set rngCheck = Range([c3], Cells(Rows.Count, "C").End(xlUp))
Set rngcheck2 = Range([m3], Cells(Rows.Count, "M").End(xlUp))

For Each cell In rngCheck

If cell.value = "L" Then

With rngcheck2.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Lists!E2:E5"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

End If

If cell.value = "T" Then
    With rngcheck2.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Lists!F2:F29"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True

End With
End If

   Next cell

 End Function

0