Need help, Please.

[zucatbfw]

<style>@font-face { font-family: "Cambria"; }p.MsoNormal, li.MsoNormal, div.MsoNormal { margin: 0in 0in 10pt; font-size: 12pt; font-family: "Times New Roman"; }div.Section1 { page: Section1; }</style> This is my problem...with the data.

User Name | User Id | Date | ID Number | Number of Pays
John Miller | 001231 | 02/23/2009 | 222565555 | 1
Mary Smith | 015482 | 01/25/2009 | 222356987 | 5
Joe Black | 125897 | 08/26/2010 | 336598875 | 4
John Doe | 003594 | 05/58/2008 | 458972213 | 0

I have 6 tabs (Jan, Feb, Mar, ect.) and I only want the | User Name | John Miller to appear if he shows up in all 6 months. The challenge is the names range from 9000 to 11000 in the various months, you can see why I simply can't look for him in each month manually.

Do you think you can help?

 

[venkat1926]

your entry of names etc are having some unnecessary spaces so I have to trim all the cells and that is why sub trimming

you have not told if John Miller occurs in all the six sheets then what to do with his name. I have colored his name in the first sheet

sheets are named jan, feb, mar, apr, may and jun


try these macros

Dim j As Integer, nname As String, cfind As Range, m As Integer
Sub trimming()
Dim cell As Range
For m = 1 To Worksheets.Count
With Worksheets(m)
For Each cell In .UsedRange
cell = Trim(cell)
Next cell
End With
Next m
End Sub

Sub test()

j = 0
nname = "John Miller"
For m = 1 To Worksheets.Count
With Worksheets(m)
Set cfind = .Cells.Find(what:=nname, lookat:=xlWhole)
If Not cfind Is Nothing Then
j = j + 1
Else
GoTo eend
End If
End With

Next m
If j = 6 Then
With Worksheets("jan")
Set cfind = .Cells.Find(what:=nname, lookat:=xlWhole)
cfind.Interior.ColorIndex = 3
End With
End If
eend:
End Sub