LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 27,285
Default Is there a "Find If" type command?

You could search the input tab list using code similar to:

Sub FindAcrossMultipleSheets()
Dim findStr As String
Dim wkSht As Worksheet
Dim found As Range
Dim rng as Range, cell as Range

With worksheets("Inputs")
set rng = .Range(.cells(2,1),.cells(rows.count,1).End(xlup))
End With
for each cell in rng
findStr = cell.Value
For Each wkSht In Sheets
if wkSht.Name < "Inputs" then
With wkSht

Set found = .Cells.Find(What:=findStr, LookIn:=xlValues, _
Lookat:=xlWhole, MatchCase:=False)


If Not found Is Nothing Then
' write name of machine and date to start
cell.Cells(cell.row,"G").Value = wksht.name
cell.Cells(cell.row,"H").Value = found.Cells(found.row,"C").Value
End If
End With
Next wkSht
Next cell

End Sub


Adjust to fit your actual situation. Code is untested and may contain
typos.


--
Regards,
Tom Ogilvy



"will" wrote in message
...
Hi,

I am trying to create a workbook for scheduling different jobs on our 10
different machines. I have a different worksheet for each machine, with a
separate "input" tab for the jobs to initially be entered on.

The problem I have is in highlighting a job if it has not been scheduled.

Is
there any way that anyone knows that I can highlight a job, or have a

result
come up, on the Input tab, if that job does not appear in one of the

machine
worksheets?

For info there are about 50 different jobs each week, so over a month one
will be scheduling 200+ jobs.

Thanks for any help.

Will



 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to have a macro simply issue the "find" command or "control f: Charles Adams Excel Programming 3 February 6th 09 06:34 PM
HELP on "left","right","find","len","substitute" functions serene83 Excel Discussion (Misc queries) 5 June 27th 06 02:23 AM
Where is the toolbar with the "bold type", "font type", options fwccbcc New Users to Excel 2 May 3rd 06 09:11 PM
"FIND" generates "Type mismatch" error quartz[_2_] Excel Programming 5 November 16th 04 03:29 PM


All times are GMT +1. The time now is 05:07 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"