Data Validation List Function

[jrodri14]

Hi!

I'm trying to make a function that will output the name of the list a certain data validation cell is outputting it's information from. I want to do this so that I can use it for logic tests in if() functions.

So simply put : CellDataListName("Cell name") -> "originating data list"

I tried looking all over for that. I can't figure it out. Granted... I've never programmed before.

Thanx a lot!!!

[mikerickson]

This UDF should do what you want.

Function ValidationListSource(validatedCell As Range) As Variant
    Set validatedCell = validatedCell.Cells(1, 1)
    On Error GoTo NAError
    With validatedCell.Validation
        If .Type = 3 Then
            ValidationListSource = Mid(.Formula1, 2)
        Else
NAError:
            ValidationListSource = CVErr(xlErrNA)
        End If
    End With
    On Error GoTo 0
End Function

[jrodri14]

Thanx a lot! I'll try it again tomorrow. BTW, is there any good site out there where I can learn some basics about the VB syntax?

[mikerickson]

I prefer to learn from books. I like Walkenbach's.

Googling Excel VBA Tutorials gets a lot of hits.

And, of course, there is this friendly help forum if you need help.

[jrodri14]

Thank you! That worked incredibly well.