ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   For each row in a range... (https://www.excelbanter.com/excel-programming/385356-each-row-range.html)

Faye[_2_]

For each row in a range...
 
I have a data range, B7:L38. Within this range, I want to check if
there is any value from F7 to L7. If there is a value on any cell
within F7 to L7, I want to make sure there is a value on B7 and E7. If
not, I will display a message in cell B7 and E7.

I need to do the above check from every row from 7 to 38.

How do I do this? Thanks.


Faye[_2_]

For each row in a range...
 
I forgot to mention. I would like to do this using VBA. Thanks.


[email protected]

For each row in a range...
 
Assuming your sheet name is "sheet2" if not pls change sheet2's to
your sheet name.
Right click your sheet tab and paste below code.
Will colour B:E range.You can change it to a message though.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim mnb As Double
Dim asd As Double

Application.EnableEvents = False
Application.ScreenUpdating = False

If Not Intersect(Target, Range("B7:L38")) Is Nothing Then

mnb = Application.CountA(Worksheets("sheet2").Range("f" & Target.Row &
":" & "l" & Target.Row))
asd = Application.CountA(Worksheets("sheet2").Range("b" & Target.Row &
":" & "e" & Target.Row))

If mnb 0 And asd = 0 Then
Worksheets("sheet2").Range("b" & Target.Row & ":" & "e" &
Target.Row).Interior.ColorIndex = 44
Else
Worksheets("sheet2").Range("b" & Target.Row & ":" & "e" &
Target.Row).Interior.ColorIndex = xlNone
End If
End If

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub



All times are GMT +1. The time now is 07:37 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com