IF Statement when multiple conditions are met VBA

[Kat31409]

Hello,

So I am trying to write a script that if column d has a value in it and column g has false then nothing happens. However if column d has a value and column g does not equal false, then it should turn red.

Here are the two scripts I have written:

Public Sub Test1()
Dim lastrow As Integer
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lastrow
For j = 1 To lastrow
If Cells(i, 4).Value <> "" Then
If Cells(j, 7) <> "False" Then
Cells(j, 7).Interior.Color = vbRed
End If
End If
Next
Next

End Sub

--------------------------------------------------------------------------------------------
Public Sub Test2()
Dim lastrow As Integer
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lastrow
For j = 1 To lastrow
If Cells(i, 4).Value <> "" And Cells(j, 7) <> "False" Then
Cells(j, 7).Interior.Color = vbRed
End If
Next
Next

End Sub
---------------------------------------------------------------------------------------------

There both extremely similar and both work on the first row, however it is not looping through any of the other row. Let me know if you have any ideas!

 

[rhombus4]

For i = 1 To lastrow
If Cells(i, 4).Value <> "" And Cells(i, 7) <> "False" Then
Cells(i, 7).Interior.Color = vbRed
End If
Next i

 

[Kat31409]

For i = 1 To lastrow
If Cells(i, 4).Value <> "" And Cells(i, 7) <> "False" Then
Cells(i, 7).Interior.Color = vbRed
End If
Next i

Thanks for taking the time to reply! I tried it but it's not looping, only does the first row.

 

[rhombus4]

Have you got data in column 1

In your first post you posted
Dim lastrow As Integer
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

If you haven't got data in 1st column that's why it only runs to the 1st row

When trying to find the last row you need to use a column that has data in the last row of your data. Has any column got some data on the last row you want to use

You could always use code below and manually adjust how far you want to loop

For i = 1 To 100
If Cells(i, 4).Value <> "" And Cells(i, 7) <> "False" Then
Cells(i, 7).Interior.Color = vbRed
End If
Next i

 

[Kat31409]

Have you got data in column 1

In your first post you posted
Dim lastrow As Integer
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

If you haven't got data in 1st column that's why it only runs to the 1st row

When trying to find the last row you need to use a column that has data in the last row of your data. Has any column got some data on the last row you want to use

You could always use code below and manually adjust how far you want to loop

For i = 1 To 100
If Cells(i, 4).Value <> "" And Cells(i, 7) <> "False" Then
Cells(i, 7).Interior.Color = vbRed
End If
Next i

Thanks it works now! The issue was that I was referencing the first column, instead of the 4th. Thanks for bringing that out and helping me!

 

[rhombus4]

Your welcome. Thanks for letting me know it works ?

PS, you could have avoided VBA altogether and done a conditional format for column G