if-then returns the last true condition

[kathytrahan]

My code only writes the last true condition to my log. I understand it is writing over any prior true conditions in my selection. I'm not sure how to write the selection so that is saves each true condition on the next line of the log. How do I write the selection so that it will record each true condition ? I am new to VBA. This is the vba I'm having trouble with:
LogRow = Sheet3.Range("C99999").End(xlUp).Row + 1 'First Available Log Row
Dim Cll As Range
For Each Cll In .Range("D3,D4,D5,D6,D7,D8,H3,H4,H5,H6")
If Cll.Value <> Cll.Offset(0, 1).Value Then
Sheet3.Range("C" & LogRow).Value = Now 'Add Current Date & Time
Sheet3.Range("D" & LogRow).Value = Application.UserName 'Excel Application User Name
Sheet3.Range("E" & LogRow).Value = .Range("H3").Value 'USER INITIALS
Sheet3.Range("F" & LogRow).Value = .Range("D3").Value 'SITE NAME
Sheet3.Range("G" & LogRow).Value = Cll.Offset(0, -1).Value 'Cell header category
Sheet3.Range("H" & LogRow).Value = Cll.Offset(0, 1).Value 'Previous Value
Sheet3.Range("I" & LogRow).Value = Cll.Value 'New Value
End If
Next Cll

test with Log.xlsm
	A	B	C	D	E	F	G	H	I
1	load cust	FALSE
2	cust id	2		AccUMAX
3	cust row	6	Site Name	AccUMAX	AccUMAX		User Initials	HY	HY
4	next id	7	Address	2354 Springdale Road, Suite 150	2354 Springdale Road, Suite 150		Date	10/10/2021	10/10/2021
5	srch cust	6	City	Princeton	Princeton		Sales Rep	mary	mary
6	new cust	FALSE	State	NJ	NJ		Site Contact	John Walters	John Walters
7	curr row	1	Zip code	33587	33587
8	curr val	load cust	Country	USA	USA
9	curr cell	$I$6
form

Cell Formulas
Range	Formula
B3	B3	=IFERROR(MATCH(B2,CustID,0)+4,"")
B4	B4	=IFERROR(MAX(CustID)+1,1)
B5	B5	=IFERROR(MATCH(D2,SiteName,0)+4,"")

Cells with Data Validation
Cell	Allow	Criteria
D2	List	=SiteName

 

[Yongle]

Welcome to the forum

Try moving one line

Dim Cll As Range
For Each Cll In .Range("D3,D4,D5,D6,D7,D8,H3,H4,H5,H6")
    If Cll.Value <> Cll.Offset(0, 1).Value Then
        LogRow = Sheet3.Range("C99999").End(xlUp).Row + 1 'First Available Log Row
        Sheet3.Range("C" & LogRow).Value = Now 'Add Current Date & Time
        Sheet3.Range("D" & LogRow).Value = Application.UserName 'Excel Application User Name
        Sheet3.Range("E" & LogRow).Value = .Range("H3").Value 'USER INITIALS
        Sheet3.Range("F" & LogRow).Value = .Range("D3").Value 'SITE NAME
        Sheet3.Range("G" & LogRow).Value = Cll.Offset(0, -1).Value 'Cell header category
        Sheet3.Range("H" & LogRow).Value = Cll.Offset(0, 1).Value 'Previous Value
        Sheet3.Range("I" & LogRow).Value = Cll.Value 'New Value
    End If
Next Cll

 

[kathytrahan]

Welcome to the forum

Try moving one line

Dim Cll As Range
For Each Cll In .Range("D3,D4,D5,D6,D7,D8,H3,H4,H5,H6")
    If Cll.Value <> Cll.Offset(0, 1).Value Then
        LogRow = Sheet3.Range("C99999").End(xlUp).Row + 1 'First Available Log Row
        Sheet3.Range("C" & LogRow).Value = Now 'Add Current Date & Time
        Sheet3.Range("D" & LogRow).Value = Application.UserName 'Excel Application User Name
        Sheet3.Range("E" & LogRow).Value = .Range("H3").Value 'USER INITIALS
        Sheet3.Range("F" & LogRow).Value = .Range("D3").Value 'SITE NAME
        Sheet3.Range("G" & LogRow).Value = Cll.Offset(0, -1).Value 'Cell header category
        Sheet3.Range("H" & LogRow).Value = Cll.Offset(0, 1).Value 'Previous Value
        Sheet3.Range("I" & LogRow).Value = Cll.Value 'New Value
    End If
Next Cll

Thank you so much!! That was it. I forgot about the sequence of command order. Perfect.