There are plenty of posts asking for help with this common code and I have made it work for its intended purpose of multiplying the values for Likelihood and Consequence and placing the corresponding Risk no. from the adjacent cell in each row onto a heat map but I am now wanting to change the code below to add the 2 column values instead of multiplying them, help please.
The formula used on the sheet is;
=ProbSevScore($E5,G$2,$A$3:$A$42)
....and this is the vba function
Code
Function ProbSevScore(Prob As Integer, Sev As Integer, Nbr As Range)
Application.Volatile True
Dim Cell As Range
ProbSevScore = ""
For Each Cell In Nbr
PScore = Right(Cell.Offset(0, 1), 1) + 0
SScore = Right(Cell.Offset(0, 2), 1) + 0
If PScore = Prob Then
If SScore = Sev Then
If Len(ProbSevScore) > 0 Then ProbSevScore = ProbSevScore & ","
ProbSevScore = ProbSevScore & Cell.Value
End If
End If
Next Cell
End Function
Display More