Я копирую проверку ячейки из одной рабочей книги в другую. Произошла ошибка, и я думаю, что это связано с формулой проверки (потому что другие проверки копируются без проблем), хотя я не знаю почему.
Формула проверки:
=OR(INDIRECT("tblRoutingLine[@OperationNoteMaster]")="";COUNTIF(INDIRECT("tblOperationNoteMaster[OperationNoteMasterID]");INDIRECT("tblRoutingLine[@OperationNoteMaster]"))=1)
Мой код (фрагмент):
Set valMasterColumnValidation = wbkMDRoutingRCGFileMaster.Worksheets(strTableWorksheet).ListObjects(1).ListColumns(colNewColumn.Name).DataBodyRange(1, 1).Validation
If intColumnValidationType <> 999 Then
For j = 1 To colNewColumn.DataBodyRange.Cells.Count
With colNewColumn.DataBodyRange(j, 1).Validation
.Add Type:=valMasterColumnValidation.Type, _
AlertStyle:=valMasterColumnValidation.AlertStyle, _
Operator:=valMasterColumnValidation.Operator, _
Formula1:=Replace(valMasterColumnValidation.Formula1, ";", ","), _
Formula2:=Replace(valMasterColumnValidation.Formula2, ";", ",")
.IgnoreBlank = valMasterColumnValidation.IgnoreBlank
.InCellDropdown = valMasterColumnValidation.InCellDropdown
.ErrorTitle = valMasterColumnValidation.ErrorTitle
.ErrorMessage = valMasterColumnValidation.ErrorMessage
.ShowError = valMasterColumnValidation.ShowError
End With
Next j
End If