SUBSCRIPT ERROR - (Moved)

[VinMe]

$aTdslist = _Excel_RangeRead($oWorkbook1, Default, "B1:B" & $LastRow)
$aTDSLOC = _Excel_RangeRead($oWorkbook1, Default, "H1:H" & $LastRow)
MsgBox(0, "TAKSY OUTPUT LAST ROW", $LastRow)
_ArrayTrim($aTDSLOC, 1, 1)
_Excel_RangeWrite($oWorkbook1, $oWorkbook1.ActiveSheet, $aTDSLOC, "H2")


$oWorkbook1.Sheets("DS_List").Activate
$mLastRow = $oWorkbook1.ActiveSheet.UsedRange.Rows.Count
$aMdslist = _Excel_RangeRead($oWorkbook1, Default, "B1:B" & $mLastRow)
MsgBox(0, "MASTER OUTPUT LAST ROW", $mLastRow)
_Excel_RangeReplace($oWorkbook1, Default, "F2:F" & $mLastRow, "N/A", "n/a") ;check the requiremetn
$aMLOC = _Excel_RangeRead($oWorkbook1, Default, "F1:F" & $mLastRow) ;LOC NUMBER NEEDS TO BE REPLACED WITH..

_ArrayDisplay($aTDSLOC)
_ArrayDisplay($aMLOC)
_ArrayDisplay($aMdslist)


;DATA COMPARISION BETWEEN TAKSY LIST WITH LOC FROM SAP TO MASTER LIST WITH LOC.

$oWorkbook1.Sheets("OUTPUT").Activate
For $i = 1 To $LastRow - 1
    For $j = 1 To $mLastRow - 1
        If $aTdslist[$i] == $aMdslist[$j] And $aTDSLOC[$i] <> $aMLOC[$j] Then
            $oExcel.ActiveSheet.Range("H" & $i + 2).Interior.ColorIndex = 3
        EndIf
        If $aTdslist[$i] == $aMdslist[$j] And $aMLOC[$j] == "n/a" And _Excel_RangeRead($oWorkbook1, Default, "I" & ($i + 2)) == "NO KIT" Then
            $oExcel.ActiveSheet.Range("H" & $i + 2).Interior.ColorIndex = 2
            _Excel_RangeWrite($oWorkbook1, $oWorkbook1.ActiveSheet, "*", "H" & ($i + 2))
        EndIf
    Next
Next


MsgBox($MB_SYSTEMMODAL, "Status", "Loc extraction, comparision and consolidation is Done", 2)

DEAR TEAM, I am facing issue w.r.t subscript errors kindly help me in solving...

456.xlsx

Edited February 19, 2020 by VinMe

[Melba23]

Moved to the appropriate forum.

Moderation Team