Validate PAN in excel through VBA macro

Bubbly
Posted by Bubbly under VB.NET category on | Views : 2708
Validating PAN in excel through VBA macro..
Note : PAN CARD PATTERN -
1. START WITH ALPHABET (A-Z)
2. ALPHABET SHOULD BE 5 CHARACTER IN LENGH
3. THEN 4 DIGITS (0-9)
4. LAST CHARACTER SHOULD BE ALPHABET(A-Z)
5. All characters must be in Uppercase


Function ValidatePAN(panentry As String) As Boolean
'ValidatePAN = True
'pan = Range("PAN").Value
If Len(panentry) > 0 Then
If Not IsNumeric(Mid(panentry, 6, 4)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 1, 1)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 2, 1)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 3, 1)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 4, 1)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 5, 1)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 10, 1)) Then
ValidatePAN = False
Exit Function
End If
End If

End Function



To check the letters in PAN falls in A-Z

Function CheckAtoZ(chr1) As Boolean
CheckAtoZ = True
If ((Asc(chr1) < 65) Or (Asc(chr1) > 90)) Then
CheckAtoZ = False
End If
End Function

Comments or Responses

Login to post response