ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Searching for Data of a certain criteria (https://www.excelbanter.com/excel-discussion-misc-queries/265467-searching-data-certain-criteria.html)

jinga

Searching for Data of a certain criteria
 
Hi all,

brand new member of the site with a bit of a puzzler. Not sure where to start or indeed if this is the place to ask!!

In a nutshell I have a spreadsheet of data that i need to go through to find data that meets a specific criteria and I am not sure where to start.

Best example i can give is a telephone number.
Rather than search the spreadsheet for a specific number i want to be able to get Excel to show me all instances of an eleven digit number regardless of what the actual number is.

Hopefully that makes sense?

Cheers

D.

bala_vb

Quote:

Originally Posted by jinga (Post 958878)
Hi all,

brand new member of the site with a bit of a puzzler. Not sure where to start or indeed if this is the place to ask!!

In a nutshell I have a spreadsheet of data that i need to go through to find data that meets a specific criteria and I am not sure where to start.

Best example i can give is a telephone number.
Rather than search the spreadsheet for a specific number i want to be able to get Excel to show me all instances of an eleven digit number regardless of what the actual number is.

Hopefully that makes sense?

Cheers

D.

play with this vba code. changes all the mobile number contained cells background to red color

__________________________________________________ ___________

' created and edited by Bala Sesharao
Sub find_mobile()
Dim x_cordinate, y_cordinate As Variant
Dim resultant As String

x_cordinate = 1
y_cordinate = 1
Sheets("sheet1").Cells(1, 1).Select
For x_cordinate = 1 To 65000
For y_cordinate = 1 To 256
resultant = Sheets("sheet1").Cells(x_cordinate, y_cordinate)
If Len(resultant) = 11 And IsNumeric(resultant) Then
Sheets("sheet1").Cells(x_cordinate, y_cordinate).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next y_cordinate
Next x_cordinate



End Sub

Private Sub Workbook_Open()
Call find_mobile
End Sub

____________________________________

bala_vb

Quote:

Originally Posted by bala_vb (Post 958881)
play with this vba code. changes all the mobile number contained cells background to red color

__________________________________________________ ___________

' created and edited by Bala Sesharao
Sub find_mobile()
Dim x_cordinate, y_cordinate As Variant
Dim resultant As String

x_cordinate = 1
y_cordinate = 1
Sheets("sheet1").Cells(1, 1).Select
For x_cordinate = 1 To 65000
For y_cordinate = 1 To 256
resultant = Sheets("sheet1").Cells(x_cordinate, y_cordinate)
If Len(resultant) = 11 And IsNumeric(resultant) Then
Sheets("sheet1").Cells(x_cordinate, y_cordinate).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next y_cordinate
Next x_cordinate



End Sub

Private Sub Workbook_Open()
Call find_mobile
End Sub

____________________________________

the logic in the above code
1) find the numeric cells in the sheet1 (change the sheet name as required)
2) evaluate all the numeric cells with length = 11 character i.e mobile number

wickedchew

Quote:

Originally Posted by jinga (Post 958878)
Hi all,

brand new member of the site with a bit of a puzzler. Not sure where to start or indeed if this is the place to ask!!

In a nutshell I have a spreadsheet of data that i need to go through to find data that meets a specific criteria and I am not sure where to start.

Best example i can give is a telephone number.
Rather than search the spreadsheet for a specific number i want to be able to get Excel to show me all instances of an eleven digit number regardless of what the actual number is.

Hopefully that makes sense?

Cheers

D.

If column A is where are all the numbers a

=IF(LEN(A2)=11,"Mobile Number","Not Mobile Number")


All times are GMT +1. The time now is 05:01 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com