# Check if a cell contains same digits

#### kelly mort

##### Well-known Member
Hi,

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

The Len will always be 4.

#### KOKOSEK

##### Board Regular
Probably there is lots for solution, I've got something like this:
A​
B​
1
1111​
TRUE​
2
1233​
FALSE​
3
2222​
TRUE​
4
2452​
FALSE​
5
8888​
TRUE​

<tbody>
</tbody>

A​
B​
1
1111​
=SUM(CODE(MID(A1,ROW(\$1:\$4),1)))/4=CODE(LEFT(A1,1))​
2
1233​
=SUM(CODE(MID(A2,ROW(\$1:\$4),1)))/4=CODE(LEFT(A2,1))​

<tbody>
</tbody>

There is array formula in B1 so have to be accept with Ctrl+Shift+Enter ({} should appear) and drag it down.

Last edited:

#### kelly mort

##### Well-known Member
Okay thanks but I need a VBA code for this.

#### gaz_chops

##### Well-known Member
A non array formula

=SUBSTITUTE(A1,LEFT(A1,1),"")=""

#### Peter_SSs

##### MrExcel MVP, Moderator
Probably there is lots for solution,
True, here are a couple more.

Excel Workbook
ABC
11111
21233FALSEFALSE
32222TRUETRUE
42452FALSEFALSE
58888TRUETRUE
 Same digits

#### KOKOSEK

##### Board Regular
You did not mention about VBA in original post or thread title?

Into sheet code:

Code:
``````Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Evaluate("=SUM(CODE(MID(" & Target.Value & ",ROW(\$1:\$4),1)))/4=CODE(LEFT(" & Target.Value & ",1))")
End Sub``````

Last edited:

#### Lavina

##### Board Regular
Hi, something like this?

Code:
``````Option Explicit

Option Explicit

Sub Worksheet_Change(ByVal Target As Range)
Dim numberInQuestion As String, firstDigitInQuestion As Long, i As Long, nextDigitInQuestion As Long, isItANumber As Boolean
numberInQuestion = Range("A1").Value
isItANumber = IsNumeric(numberInQuestion)
firstDigitInQuestion = Left(numberInQuestion, 1)
If isItANumber = True Then
For i = 1 To Len(numberInQuestion)
nextDigitInQuestion = Mid(numberInQuestion, i, 1)
If firstDigitInQuestion <> nextDigitInQuestion Then
MsgBox "numbers are different"
End If
Next i
End If
End If
End Sub

Sub init()
Dim rng As Range
Set rng = Range("A1")
Call Worksheet_Change(rng)
End Sub``````

Last edited:

#### Peter_SSs

##### MrExcel MVP, Moderator
Okay thanks but I need a VBA code for this.
Something like
Code:
``MsgBox Replace(Range("A1").Value, Left(Range("A1").Value, 1), "") = vbNullString``
or
Code:
``MsgBox Range("A1").Text = String(4, Left(Range("A1").Text, 1))``

Last edited:

#### kelly mort

##### Well-known Member
Cool cool!!! Thank you all

I have tested all the above. They are working fine.
@Peter_SSs
your last code is very cute. Thanks

#### Peter_SSs

##### MrExcel MVP, Moderator
You're welcome. Plenty of choice.

1,082,082
Messages
5,363,057
Members
400,711
Latest member
rscd20

### This Week's Hot Topics

• populate from drop list with multiple tables
Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
• Find list of words from sheet2 in sheet1 before a comma and extract text vba
Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
• Dynamic Formula entry - VBA code sought
Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...