read value and compare from list in VBA

[kmoore]

I need to write an that reads the value from a cell that contains a drop down list. If item1 is selected I need to perform one calculation. if item2 is selected I need to do another, and so on.

Can someone help?

Thank you

[MaczaQ]

hi

If you use validation you can use following code to return index of selected value.
Then you will be able to build Select Case or if, elseif to define what should be calculated

Public Function valID(Target As Range) As Integer
valID = -1
sep = Application.International(xlListSeparator)
On Error GoTo exitF
If Target.Validation.Formula1 <> "" Then
        On Error GoTo exitF
        Dim t
        t = Split(Target.Validation.Formula1, sep)
        Dim idx As Integer
          For i = 0 To UBound(t)
            If CStr(UCase(t(i))) = CStr(UCase(Target.Value)) Then
                idx = i
                Exit For
            End If
          Next i
        valID = idx
End If
exitF:
End Function

Best Regards
MaczaQ

[kmoore]

Thanks for you help. I'm sorry, but I am still not sure what to do. Would you mind showing me exactly how I would use the function below?

Thanks.