Я пытаюсь проверить определенный столбец, который использует проверку списка. Если (столбец «Таблица (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