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.

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[TD]F[/TD]
[TD]G[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]13[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Title[/TD]
[TD][/TD]
[TD][/TD]
[TD]score[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]14[/TD]
[TD][/TD]
[TD][/TD]
[TD]
[/TD]
[TD]Left[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]15[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]16[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]right[/TD]
[TD][/TD]
[TD][/TD]
[TD]2[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]17[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Up[/TD]
[TD][/TD]
[TD][/TD]
[TD]2[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]18[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Down[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]19[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20[/TD]
[TD][/TD]
[TD][/TD]
[TD]
[/TD]
[TD]Out[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

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