check if a cell contains at least one alphanumeric character using VBA

[gaosiyou]

Hi All,

I've managed to check if a cell contains at least one alphanumeric character in power query using the following :

add personalized column...
= each if (Text.Length(Text.Select([columnIneedtocheck],{"A".."Z","a".."z","0".."9"}))>0) = false then (...)

it works well. but I was trying find a simple way of doing that in vba and can't seem to get it to work.

Any ideas?

Thank you

 

[awoohaw]

you could loop through the text of each expression looking for the ASCII codes, Numbers are: 48-57,UPPER CASE Letters are: 65-90, LOWER CASE Letters are 97-122.
(you could also eliminate one of the CASE checks by using the UPPER or LOWER function on the expression. But, that may mean you need to convert back, if necessary).

 

[Tetra201]

Try

If Range("A1") Like "*[0-9A-Za-z]*" Then ...