Any Solution for Error occured from Excel Validation 0x800A03EC when automated via vb.net.
Note: The same code runs in 90% of the systems & the same fails in rest.
Below is the code which i have used:
For K = 2 To 1000
objxl.Range("F" & K).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2]&RC[-2],C[13]:C[14],2,0),"""")"
Next
i = 25
objxl.Range("D2:D1000").Select()
If lastrow_main = 2 Then
lastrow_main = lastrow_main
Else
lastrow_main = lastrow_main - 1
End If
With objxl.Selection.validation
.Delete()
.Add(Type:=Excel.XlDVType.xlValidateList, AlertStyle:=Excel.XlDVAlertStyle.xlValidAlertStop, Operator:= _
Excel.XlFormatConditionOperator.xlBetween, Formula1:="=$X$2:$X$" & lastrow_main & "")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With