'Get excel information
AddResources "MWW Materials (Inventor).xlsx"

iProperties.Material = Material

'['SH
If Material_Type = "SH" Then
MultiValue.List("Material") = GoExcel.CellValues("MWW Materials (Inventor).xlsx", "SH", "A2", "A600")
i = GoExcel.FindRow("MWW Materials (Inventor).xlsx", "SH", "MATERIAL_EXCEL", "=", Material)
Description_Excel = GoExcel.CurrentRowValue("DESCRIPTION_EXCEL")
Thickness_Excel = GoExcel.CurrentRowValue("THICKNESS_EXCEL")
Core_Thickness = GoExcel.CurrentRowValue("THICKNESS_EXCEL")
THICKNESS = Thickness_Excel
End If
']
'['VP
If Material_Type = "VP" And Core_Sanded = False Then 
MultiValue.List("Material") = GoExcel.CellValues("MWW Materials (Inventor).xlsx", "VP", "A2", "A600")
i = GoExcel.FindRow("MWW Materials (Inventor).xlsx", "VP", "MATERIAL_EXCEL", "=", Material)
Description_Excel = GoExcel.CurrentRowValue("DESCRIPTION_EXCEL")
Core_Thickness = GoExcel.CurrentRowValue("THICKNESS_EXCEL")-(2*Veneer_Thickness)
Thickness_Excel = GoExcel.CurrentRowValue("THICKNESS_EXCEL")
THICKNESS = Thickness_Excel
'Veneer Material
'Veneer Material applied to Face
MultiValue.List("Veneer_Material_Face") = GoExcel.CellValues("MWW Materials (Inventor).xlsx", "VENEERS", "B2", "B600")
i = GoExcel.FindRow("MWW Materials (Inventor).xlsx", "VENEERS", "MATERIAL_EXCEL", "=", Veneer_Material_Face)
iProperties.Value("Custom", "FACE") = GoExcel.CurrentRowValue("VENEER_TAG_EXCEL")
'Veneer Material applied to Back
MultiValue.List("Veneer_Material_Back") = GoExcel.CellValues("MWW Materials (Inventor).xlsx", "VENEERS", "B2", "B600")
i = GoExcel.FindRow("MWW Materials (Inventor).xlsx", "VENEERS", "MATERIAL_EXCEL", "=", Veneer_Material_Back)
iProperties.Value("Custom", "BACK") = GoExcel.CurrentRowValue("VENEER_TAG_EXCEL")

ElseIf Material_Type = "VP" And Core_Sanded = True Then 
MultiValue.List("Material") = GoExcel.CellValues("MWW Materials (Inventor).xlsx", "VP", "A2", "A600")
i = GoExcel.FindRow("MWW Materials (Inventor).xlsx", "VP", "MATERIAL_EXCEL", "=", Material)
Core_Thickness = GoExcel.CurrentRowValue("THICKNESS_EXCEL")-(2*Veneer_Thickness)-Core_Thk_Removed
Thickness_Excel = GoExcel.CurrentRowValue("THICKNESS_EXCEL")-Core_Thk_Removed
THICKNESS = Thickness_Excel
'Veneer Material
'Veneer Material applied to Face
MultiValue.List("Veneer_Material_Face") = GoExcel.CellValues("MWW Materials (Inventor).xlsx", "VENEERS", "B2", "B600")
i = GoExcel.FindRow("MWW Materials (Inventor).xlsx", "VENEERS", "MATERIAL_EXCEL", "=", Veneer_Material_Face)
iProperties.Value("Custom", "FACE") = GoExcel.CurrentRowValue("VENEER_TAG_EXCEL")
'Veneer Material applied to Back
MultiValue.List("Veneer_Material_Back") = GoExcel.CellValues("MWW Materials (Inventor).xlsx", "VENEERS", "B2", "B600")
i = GoExcel.FindRow("MWW Materials (Inventor).xlsx", "VENEERS", "MATERIAL_EXCEL", "=", Veneer_Material_Back)
iProperties.Value("Custom", "BACK") = GoExcel.CurrentRowValue("VENEER_TAG_EXCEL")
End If 
']
'['SO
If Material_Type = "SO" Then
MultiValue.List("Material") = GoExcel.CellValues("MWW Materials (Inventor).xlsx", "SO", "A2", "A600")
i = GoExcel.FindRow("MWW Materials (Inventor).xlsx", "SO", "MATERIAL_EXCEL", "=", Material)
Description_Excel = GoExcel.CurrentRowValue("DESCRIPTION_EXCEL")
End If
']
'['NT
If Material_Type = "NT" Then
MultiValue.List("Material") = GoExcel.CellValues("MWW Materials (Inventor).xlsx", "NT", "A2", "A600")
i = GoExcel.FindRow("MWW Materials (Inventor).xlsx", "NT", "MATERIAL_EXCEL", "=", Material)
Thickness_Excel = GoExcel.CurrentRowValue("THICKNESS_EXCEL")
THICKNESS = Thickness_Excel
End If
']
iLogicVb.UpdateWhenDone = True