Modify code to only put "+" in empty cell if the requirement passed and the scenario was run.

[Nlhicks]

This is where the code is now I am not 100% sure what I need to do to add a condition of checking for the scenario being run. I don't think it is possible to take out the yellow highlighting since it acts as the mapping. Each requirement is mapped to a different scenario where it is verified. It is acting as logic for the template so it has to stay in place what needs to be changed is that the strPassFail needs to add the condition of taking into account the scenario. "Please Help"

Sub Test2()
If ActiveSheet.Name <> "Sheet4" Then
MsgBox "Run this from the Sheet 4.", 64, "Note:"
Exit Sub
End If

'Application.ScreenUpdating = False

Dim cellEstelle As Range, strEstelle$, strPassFail$
Dim varFindRequirement As Variant, lngFindRequirement&, lngNextCol&, xCol&
Dim cellEasy As Range, strEasy$
Dim varFindScenario As Variant, lngFindScenario&, lngNextRow&, xRow&

With Sheets("Sheet3")

For Each cellEstelle In Columns(1).SpecialCells(2)
Set varFindRequirement = Nothing
strEstelle = cellEstelle.Value
Set varFindRequirement = .Columns(8).Find(What:=strEstelle, LookIn:=xlFormulas, LookAt:=xlWhole)

'For Each cellEasy In Columns(3).SpecialCells(2)
Set cellEasy = cellEstelle.Offset(, 2)
Set varFindScenario = Nothing
strEasy = cellEasy.Value
Set varFindScenario = .Rows(5).Find(What:=Trim(strEasy), LookIn:=xlFormulas, LookAt:=xlWhole)


If Not varFindRequirement Is Nothing Then
lngFindRequirement = varFindRequirement.Row
If Not varFindScenario Is Nothing Then
lngFindScenario = varFindScenario.Column
'Modify thse column number boundaries as needed.
If lngFindRequirement >= 6 And lngFindRequirement <= 19 Then
If lngFindScenario >= 9 And lngFindScenario <= 16 Then

If varFindScenario.Column And cells(cellEstelle.Row, 2).Value = "Pass" Then
strPassFail = "+"
Else
strPassFail = "-"
End If

' For lngFindScenario = 9 To 16
If Len(.cells(lngFindRequirement, lngFindScenario).Value) = 0 And .cells(lngFindRequirement, lngFindScenario).Interior.ColorIndex = -4142 Then .cells(lngFindRequirement, lngFindScenario).Value = strPassFail
' Next lngFindScenario
End If
End If
End If
End If

'Next cellEasy

Next cellEstelle

End With

Set varFindRequirement = Nothing
Application.ScreenUpdating = True
MsgBox "Completed.", , "Done."

End Sub

Test Tracking Test2 adding new section.xlsm
	H	I	J	K	L	M	N	O	P
5		Abort_12	Cold_Cut_2	Hot_Cut_1	Hot_Cut_3	Omega_1	Pharos_1	Hot_Cut_2	Cold_Cut_1
6	D_ANT_SFTY_01	+
7	D_ANT_SFTY_02
8	D_ANT_SFTY_03
9	BITO_1010
10	BITO_1011
11	BITO_1012
12	BITO_1013
13	QNTI_01
14	QNTI_02
15	QNTI_03
16	PLT_555
17	PLT_556
18	PLT_557
Sheet3

Test Tracking Test2 adding new section.xlsm
	A	B	C
1	SPS#	Result	Scenarios
2	D_ANT_SFTY_01	Pass	Abort_12
3	D_ANT_SFTY_03	Fail	Hot_Cut_3
4	BITO_1011	Pass	Pharos_1
5	BITO_1012	Pass	Cold_Cut_1
6	QNTI_01	Fail	Hot_Cut_1
7	QNTI_02	Pass
8	PLT_555	Pass
9	PLT_556	Pass
Sheet4

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
C2:C5	Cell Value	duplicates	text	NO
C8	Cell Value	duplicates	text	NO

 

[Fluff]

Duplicate to: Changing code to mark requirement "+" for pass and "-" for fail under each scenario that was run and leave it blank otherwise

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.