this code doesn't work
i'm guessing my if statement is missing some syntax
Public Function WhatCatComIsIt(ByVal comboCommodity As String, ByVal comboCategory As String) As String
If comboCategory = "Update and enhance the content of materials masters" Then
If comboCommodity = "Pumps" Then WhatCatComIsIt = "11"
If comboCommodity = "Gaskets & O-Ring" Then WhatCatComIsIt = "12"
If comboCommodity = "Valves" Then WhatCatComIsIt = "13"
If comboCommodity = "Heat Transfere & Procee Equipment" Then WhatCatComIsIt = "14"
If comboCommodity = "Turbines & Compressors" Then WhatCatComIsIt = "15"
If comboCommodity = "Pipe & Pipe Fittings" Then WhatCatComIsIt = "16"
If comboCommodity = "Drilling / General" Then WhatCatComIsIt = "17"
If comboCommodity = "Chemicals" Then WhatCatComIsIt = "18"
If comboCommodity = "Enviromental" Then WhatCatComIsIt = "19"
If comboCommodity = "Other" Then WhatCatComIsIt = "110"
End If
If comboCategory = "Link material masters to local manufacturers" Then
If comboCommodity = "Pumps" Then WhatCatComIsIt = "21"
If comboCommodity = "Gaskets & O-Ring" Then WhatCatComIsIt = "22"
If comboCommodity = "Valves" Then WhatCatComIsIt = "23"
If comboCommodity = "Heat Transfere & Procee Equipment" Then WhatCatComIsIt = "24"
If comboCommodity = "Turbines & Compressors" Then WhatCatComIsIt = "25"
If comboCommodity = "Pipe & Pipe Fittings" Then WhatCatComIsIt = "26"
If comboCommodity = "Drilling / General" Then WhatCatComIsIt = "27"
If comboCommodity = "Chemicals" Then WhatCatComIsIt = "28"
If comboCommodity = "Enviromental" Then WhatCatComIsIt = "29"
If comboCommodity = "Other" Then WhatCatComIsIt = "210"
End If
If comboCategory = "Migrate material masters from SAP/R3 to B2B catalog" Then
If comboCommodity = "Pumps" Then WhatCatComIsIt = "31"
If comboCommodity = "Gaskets & O-Ring" Then WhatCatComIsIt = "32"
If comboCommodity = "Valves" Then WhatCatComIsIt = "33"
If comboCommodity = "Heat Transfere & Procee Equipment" Then WhatCatComIsIt = "34"
If comboCommodity = "Turbines & Compressors" Then WhatCatComIsIt = "35"
If comboCommodity = "Pipe & Pipe Fittings" Then WhatCatComIsIt = "36"
If comboCommodity = "Drilling / General" Then WhatCatComIsIt = "37"
If comboCommodity = "Chemicals" Then WhatCatComIsIt = "38"
If comboCommodity = "Enviromental" Then WhatCatComIsIt = "39"
If comboCommodity = "Other" Then WhatCatComIsIt = "310"
End If
End Function
Start Free Trial
