Messagebox that checks and tells me what cells have not been filled in?

[tonywatsonhelp]

Hi Everyone,

OK so on my welcome sheet I have 6 questions all need to be answered before you can move on.
so what I need is this.

The Titles are in column D
in colum G I have a 1 if its not filled in and a 2 if it is.

So I want a macro that when runs looks at these cells G14,G16:G18,G20 only.

If any of them don't =2 the add the Title to a message box giving each one its own rows.

Example.

	A	B	C	D	E	F	G
13				Title			score
14				Left			1
15
16				right			2
17				Up			2
18				Down			1
19
20				Out			1

<tbody>
</tbody>

So in this case message bow would say

"You Can not proceed until the following areas have been completed."
"Left"
"Down"
"out"
"Thank You"

please help if you can
Tony

 

[Fluff]

Re: Messagebox that checks and tells me what cells have not been fiolled in?

Something like

Sub Answers()
   Dim txt As String
   Dim Rng As Range
   txt = "You Can not proceed until the following areas have been completed."
   For Each Rng In Range("G14,g16,g18,g20")
      If Rng.Value = 1 Then txt = txt & vbLf & Rng.Offset(, -3).Value
   Next Rng
   If Len(txt) > 68 Then MsgBox txt
End Sub

 

[tonywatsonhelp]

Re: Messagebox that checks and tells me what cells have not been fiolled in?

Hi Fluff,
Thank you.
That will do the job just great
Tony

 

[Fluff]

Re: Messagebox that checks and tells me what cells have not been fiolled in?

Glad to help & thanks for the feedback