How check in VBA if a cell value is a four-digit number?

sylvest

New Member
Joined
Sep 15, 2006
Messages
46
How check in VBA if a cell value is a four-digit number?

I have a three-cell range named 'Happy'. How to determine if the numerical in put in all the 3 cell is equal ?only the range name should be used to refer to every cell.
 

Excel Facts

How to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest

wigi

Well-known Member
Joined
Jul 10, 2006
Messages
7,958
Office Version
  1. 365
Platform
  1. Windows
  2. Mobile
  3. Web
How check in VBA if a cell value is a four-digit number?

Code:
If IsNumeric(Range("A1")) And Len(Range("A1")) = 4 Then
'...
End If

Wigi
 

wigi

Well-known Member
Joined
Jul 10, 2006
Messages
7,958
Office Version
  1. 365
Platform
  1. Windows
  2. Mobile
  3. Web
I have a three-cell range named 'Happy'. How to determine if the numerical in put in all the 3 cell is equal ?only the range name should be used to refer to every cell.

Code:
With Range("Happy")
    If .Cells(1) = .Cells(2) And .Cells(1) = .Cells(3) Then
        MsgBox "They're all equal to each other"
    Else
        MsgBox "There are differences"
    End If
End With

Wigi
 

Boller

Banned
Joined
Apr 11, 2006
Messages
2,328
Depends what you mean by "a four digit number".

For example, using wigi's code in his/her first post, 1.11 will be read as a 4 digit number.
 

Forum statistics

Threads
1,136,262
Messages
5,674,709
Members
419,521
Latest member
Jasonnie

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top