Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 12
Default 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.

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 12
Default For each row in a range...

I forgot to mention. I would like to do this using VBA. Thanks.

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 27
Default 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

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I enter formula sum(range+range)*0.15 sumif(range=3) tkw Excel Discussion (Misc queries) 2 October 1st 09 09:17 PM
Excel Addin:Setting the range to the Excel.Range object range prop Rp007 Excel Worksheet Functions 5 November 24th 06 04:30 PM
Range Question / error 1004: method Range of object Worksheet has failed Paul Excel Programming 3 April 7th 05 02:56 PM
Range.Find returns cell outside of range when range set to single cell Frank Jones Excel Programming 12 June 10th 04 04:22 AM
how to? set my range= my UDF argument (range vs. value in range) [advanced?] Keith R[_3_] Excel Programming 2 August 11th 03 05:55 PM


All times are GMT +1. The time now is 12:13 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"