# Thread: Check if a cell contains same digits Thanks: 0 Likes:  3 Post #5331058 (1)Post #5331059 (1)Post #5331068 (1)

1. ## Re: Check if a cell contains same digits

Great!!!!

One last request then I take a nap

How will I verify format like:
0011
0022
....
1100
1122
1133
....
2200
2211
2233
....

Code:
MsgBox Range("A1").Text = String(4, Left(Range("A1").Text, 1))
As the above was dealing with the whole 4 for same characters, here I want compare the first two characters for sameness then move to the last two for sameness. If both cases are true then the msgbox shows. Eg 1122 not 1123

2. ## Re: Check if a cell contains same digits

MsgBox Range("A1").Text = String(2, Left(Range("A1").Text, 1)) & String(2, Right(Range("A1").Text, 1))

3. ## Re: Check if a cell contains same digits

Originally Posted by kelly mort

I am looking for a way to verify if a cell say A1 containssame digits like 1111, 2222, etc.

MsgBox Range("B1").Value Mod 1111 = 0

4. ## Re: Check if a cell contains same digits

Originally Posted by kelly mort
So in cell A1, if the number has the form ABCD like 0123, 1234, ... Then we call the msgbox
MsgBox Range("A1").Text - Left(Range("A1").Text, 1) * 1111 = 123

5. ## Re: Check if a cell contains same digits

Originally Posted by Phuoc

MsgBox Range("B1").Value Mod 1111 = 0
Originally Posted by Phuoc
MsgBox Range("A1").Text - Left(Range("A1").Text, 1) * 1111 = 123
@Phouc,

These are both excellent and elegant solutions to the OP's first two questions! Great incite into the underlying mathematical structure of the problem!

6. ## Re: Check if a cell contains same digits

Originally Posted by kelly mort
How will I verify format like:
0011
0022
....
1100
1122
1133
....
2200
2211
2233
....

[Code]
Does a number like 5555 where all the digits are the same qualify as being True under this request?

7. ## Re: Check if a cell contains same digits

@Phuoc
your moves are very mind blowing. Thanks

I am learning a lot indeed.

8. ## Re: Check if a cell contains same digits

Originally Posted by Rick Rothstein
Does a number like 5555 where all the digits are the same qualify as being True under this request?
Thanks Rick for pointing that out. I was not able to think to that level. In that case I want it turn false .

So I think I can use the solution at post # 24 to check that. Better still I am open to more elegant options.

9. ## Re: Check if a cell contains same digits

Originally Posted by kelly mort
Thanks Rick for pointing that out. I was not able to think to that level. In that case I want it turn false .
If you are always checking only cell A1 and no other, you can use this somewhat compact code line to do your latest check...

MsgBox [AND(LEFT(A1)=MID(A1,2,1),MID(A1,3,1)=RIGHT(A1),LEFT(A1)<>RIGHT(A1))]

10. ## Re: Check if a cell contains same digits

Originally Posted by Rick Rothstein
If you are always checking only cell A1 and no other, you can use this somewhat compact code line to do your latest check...

MsgBox [AND(LEFT(A1)=MID(A1,2,1),MID(A1,3,1)=RIGHT(A1),LEFT(A1)<>RIGHT(A1))]
Okay I appreciate that

More knowledge for me to imbibe