Add an If, and statement so only the boxes under the scenarios get checked and not the whole row

[Nlhicks]

Test Tracking Test2 adding new section.xlsm
	A	B	C
1	SPS#	Result	Scenarios ran
2	D_ANT_SFTY_01	Pass	Abort_12
3	D_ANT_SFTY_02	Fail	Hot_Cut_3
4	D_ANT_SFTY_03	Pass	Omega_1
5	BITO_1010	Pass	Cold_Cut_1
6	BITO_1011	Pass
7	BITO_1012	Pass
8	BITO_1013	Pass
9	QNTI_01	Pass
10	QNTI_02	Fail
11	QNTI_03	Pass
12	PLT_555	Pass
13	PLT_556	Pass
14	PLT_557	Pass
15	DPIP_01	Fail
Sheet2

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
19	DPIP_01	-			-	-	-
Sheet1

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

Application.ScreenUpdating = False
Dim cellEstelle As Range, strEstelle$, strPassFail$
Dim varFindScenario As Variant, lngFindScenario&, lngNextCol&, xCol&

With Sheets("Sheet1")

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

If Not varFindScenario Is Nothing Then
lngFindScenario = varFindScenario.Row
'Modify thse column number boundaries as needed.
If lngFindScenario >= 6 And lngFindScenario <= 19 Then
If Cells(cellEstelle.Row, 2).Value = "Pass" Then
strPassFail = "+"
Else
strPassFail = "-"
End If

For xCol = 9 To 16
If Len(.Cells(lngFindScenario, xCol).Value) = 0 And .Cells(lngFindScenario, xCol).Interior.ColorIndex = -4142 Then .Cells(lngFindScenario, xCol).Value = strPassFail
Next xCol

End If
End If
Next cellEstelle

End With

Set varFindScenario = Nothing
Application.ScreenUpdating = True
MsgBox "Completed.", , "Done."
End Sub

 

[Nlhicks]

Anybody

 

[Nlhicks]

Only put a + or - in the columns if the scenario was run