Data Validaiton formula containing numbers and text

[madams_08]

I read a previous article and non of the formulas worked for my worksheet.

I need to validate a cell for the following custom format, but cant get it to work:

1. XX00000
2. 00000000XX
3. 000000X

Where XX is any combination of letters (upper or lowercase) and
00000 is a combination of any 5 numbers.

All of these formaulas can not allow special characters.

It must always be in this format, with this number of digits in total on each

 

[andrewkard]

Hello, maybe so:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim pRg As New VBScript_RegExp_55.RegExp, pM As VBScript_RegExp_55.Match
    Dim pMs As VBScript_RegExp_55.MatchCollection
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        pRg.Global = True: pRg.Pattern = "([A-Za-z]{1,}|)\d{1,}([A-Za-z]{1,}|)"
        Set pMs = pRg.Execute(Target)
        If pMs.Count > 0 Then
        Else
            MsgBox ("Error")
        End If
    End If
End Sub

Before you should set Microsoft VBScript Regular Expressions 5.5

 

[madams_08]

That wasnt much help to me. I do need a formula for each of the three (seperate forumlas).

 

[T. Valko]

I read a previous article and non of the formulas worked for my worksheet.

I need to validate a cell for the following custom format, but cant get it to work:

1. XX00000
2. 00000000XX
3. 000000X

Where XX is any combination of letters (upper or lowercase) and
00000 is a combination of any 5 numbers.

All of these formaulas can not allow special characters.

It must always be in this format, with this number of digits in total on each

Try these...

For XX00000:

=AND(LEN(A2)=7,ABS(CODE(UPPER(A2))-77.5)<13,ABS(CODE(UPPER(MID(A2,2,1)))-77.5)<13,COUNT(-MID(A2,ROW(INDIRECT("3:7")),1))=5)

For 00000000XX:

=AND(LEN(A2)=10,ABS(CODE(UPPER(MID(A2,9,1)))-77.5)<13,ABS(CODE(UPPER(MID(A2,10,1)))-77.5)<13,COUNT(-MID(A2,ROW(INDIRECT("1:8")),1))=8)

For 000000X:

=AND(LEN(A2)=7,ABS(CODE(UPPER(RIGHT(A2)))-77.5)<13,COUNT(-MID(A2,ROW(INDIRECT("1:6")),1))=6)

If you test those formulas on the worksheet they must be array entered.

Array formulas need to be entered using the key
combination of CTRL,SHIFT,ENTER (not just ENTER).
Hold down both the CTRL key and the SHIFT key
then hit ENTER.

 

[madams_08]

Im excited I have all except 1 of them working.

The one that doesnt work is

For 00000000XX:

=AND(LEN(A2)=10,ABS(CODE(UPPER(MID(A2,9,1)))-77.5)<13,ABS(CODE(UPPER(MID(A2,10,1)))-77.5)<13,COUNT(-MID(A2,ROW(INDIRECT("1:8")),1))=8)

What is wrong with this formula?

 

[T. Valko]

Im excited I have all except 1 of them working.

The one that doesnt work is

For 00000000XX:

=AND(LEN(A2)=10,ABS(CODE(UPPER(MID(A2,9,1)))-77.5)<13,ABS(CODE(UPPER(MID(A2,10,1)))-77.5)<13,COUNT(-MID(A2,ROW(INDIRECT("1:8")),1))=8)

What is wrong with this formula?

Works OK for me.

Can you post some samples that causes it to not work as needed?

 

[madams_08]

Examples:
12345678y
87654321d

 

[T. Valko]

Examples:
12345678y
87654321d

When I try those I get the data validation error message as expected.

Data validation only works for MANUALLY entered data.

 

[madams_08]

I do manually enter the data.. and I still get a error message

 

[madams_08]

Nevermind I got the formula to work in a blank spreadsheet. I need to figure out what is wrong with my cell. Thank you sooo much for all of your help!!!