<div>
Jase 
 
Do both sheets have the same values in A1:AY34?
</div>

<div>
HI Norie 
 
yes they are the same 'location' / cell &nbsp;references on both sheets 
 
So basically if they location references appear red on both sheets, is there a way to list them ? 
 
The fact that they are conditionally formatted is also a bit tricky I would think .... 
 
Any suggestions? 
 
J
</div>

<div>
Jase 
 
Are you looking for a UDF for this or something else?
</div>

<div>
HI Norie 
 
yes so Im looking for a solution to this problem in looking over two worksheets that have red coloured cells 
 
If the cells match on the two worksheets, then it returned the result in either a list form or in some other format so I can extract it onto the Completed tab 
 
Thanks 
J
</div>

<div>
Hello 
I read the threads and noted your last comment 
 

<blockquote>
If the cells match on the two worksheets, then it returned the result in either a list form or in some other format so I can extract it onto the Completed tab 
</blockquote>
 
Let me be specific: 
1) Do you mean compare data that is in sheet: Results Units and sheet Results Cost ? 
2) So you want to report on sheet Completed the Red at the same spot ? 
&nbsp; &nbsp; OR 
&nbsp; &nbsp; Have in a new sheet a list of all those cells ? 
 
gowflow
</div>

<div>
HI Gowflow 
 
Firstly thank you for the response 
 
So :- 
1) Yes - compare the data on the Results Units and Results Costs sheet and ; 
2) if there is a red cell that matches on BOTH sheets (in the example, for example, Cell M17 is red on both so the result would return 05_09 if possible) then this is listed on the Completed sheet (on the far right) under the cdell that says Total of Red on Both .... or list on a new sheet as that would also be welcome 
 
Much appreciated 
J
</div>

<div>
ok here is my solution that I have included in the attached workbook. Just run the macro ReportCompleted and check the results in sheet Completed. 
 

<pre><code class="code-10 nolinks" id="code-20-42837257-1">Sub ReportCompleted()
Dim WSRU As Worksheet, WSRC As Worksheet, WSC As Worksheet
Dim I As Long, J As Long, lCount As Long


'---&gt; Disable Events
With Application
 .EnableEvents = False
 .ScreenUpdating = False
 .DisplayAlerts = False
End With

'---&gt; Set Variable
Set WSRU = Sheets(&quot;Results Units&quot;)
Set WSRC = Sheets(&quot;Results Cost&quot;)
Set WSC = Sheets(&quot;Completed&quot;)

For I = 1 To 34
 For J = 1 To 51
 If WSRU.Cells(I, J).DisplayFormat.Interior.ColorIndex = 3 And WSRC.Cells(I, J).DisplayFormat.Interior.ColorIndex = 3 Then
 WSC.Cells(I, J).Interior.ColorIndex = 3
 lCount = lCount + 1
 End If
 Next J
Next I

'---&gt; Enable Events
With Application
 .EnableEvents = True
 .ScreenUpdating = True
 .DisplayAlerts = True
End With

MsgBox &quot;A Ttoal of &quot; &amp; lCount &amp; &quot; red cells were found in both sheets &quot; &amp; WSRU.Name &amp; &quot; and &quot; &amp; WSRC.Name &amp; &quot; respectively.&quot;, vbInformation, &quot;Red Cells&quot;

End Sub
</code></pre>
 
Let me know 
Gowflow 
<a href="https://filedb.experts-exchange.com/incoming/2019/04_w14/1417079/Cycle-count-pick-face-map-2-V01.xlsm" target="_blank" class="file-inline" title="Report Red in Completed (695 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Cycle-count-pick-face-map-2-V01.xlsm</a>
</div>

Cycle-count-pick-face-map-2-V01.xlsm

<div>
Ooops our answers crossed !!! I colored in Red the same cell if you want otherwise let me know I see you want to report a figure. 
 
Let me know 
Gowflow
</div>

Application Support Analyst

Jase Alexander

<div>
Jase 
 
Wouldn't it be easier to work from the list on the 'Data' worksheet? 
 
You could go down column R and check column S for &lt;-100 and column T for &lt;-150. 
 
Something like this. 

<pre><code class="code-10 nolinks" id="code-20-42837263-1">Sub ListRed()
Dim arrIn As Variant
Dim arrRed As Variant
Dim I As Long
Dim cnt As Long
 
 arrIn = Sheets(&quot;Data&quot;).Range(&quot;R2&quot;, Sheets(&quot;Data&quot;).Range(&quot;T&quot; &amp; Rows.Count).End(xlUp))
 
 ReDim arrOut(1 To UBound(arrIn, 1))
 
 For I = LBound(arrIn, 1) To UBound(arrIn, 1)
 If arrIn(I, 2) &lt; -100 And arrIn(I, 3) &lt; -150 Then
 cnt = cnt + 1
 arrOut(cnt) = arrIn(I, 1)
 End If
 Next I
 
 If cnt &gt; 0 Then
 ReDim Preserve arrOut(1 To cnt)
 Sheets(&quot;Completed&quot;).Range(&quot;BE5&quot;).Resize(cnt).Value = Application.Transpose(arrOut)
 End If
 
End Sub
</code></pre>
</div>

Group Software Developper

Jacques Geday

<div>
HI Both 
 
Thank you so much for your help 
 
Gowflow - this was better than I could have asked for - thank you for the suggestion and deviation - its perfect !! 
 
Norie - thank you for the alternative - I will definitely be including this also 
 
Cant thank you guys enough 
 
J
</div>

<div>
Jase Alexander 
Glad I could help. We thrive to always deliver 'better than expected' 
Gowflow
</div>

<div>
<div class="content wysiwyg-content">
Hi Experts 
 
Ive just received some excellent assistance on the attached workbook however there is one more (final) item Im struggling with 
 
On the first tab - Completed - to the right is a section saying Total of Red on Both 
 
Is there a way to look across two worksheets - Results Units and Results Costs - and if a red cell appears on both, to list this on the front sheet under the above title - or set it up on both so I can drag the results onto the Completed tab? 
 
If it did not involve conditional formatting and colour I dont believe I would have an issue however Im not sure if its possible to include the colour variable into the lookup / syntax? 
 
Any suggestions would be welcome 
 
J 
<a href="https://filedb.experts-exchange.com/incoming/2019/04_w14/1416969/Copy-of-Cycle-count-pick-face-map-2.xlsm" target="_blank" class="file-inline" title="Lookup across 2 worksheets for corresponding red cells (653 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Copy-of-Cycle-count-pick-face-map-2.xlsm</a>
</div>
</div>

Lookup across 2 worksheets for corresponding red cells

Copy-of-Cycle-count-pick-face-map-2.xlsm

Hi Experts

Ive just received some excellent assistance on the attached workbook however there is one more (final) item Im struggling with

On the first tab - Completed - to the right is a section saying Total of Red on Both

Is there a way to look across two worksheets - Results Units and Results Costs - and if a red cell appears on both, to list this on the front sheet under the above title - or set it up on both so I can drag the results onto the Completed tab?

If it did not involve conditional formatting and colour I dont believe I would have an issue however Im not sure if its possible to include the colour variable into the lookup / syntax?

Any suggestions would be welcome

J

Excel Lookup / Match across two worksheets and return red cells on both in one list

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.