View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Bob Phillips[_6_] Bob Phillips[_6_] is offline
external usenet poster
 
Posts: 11,272
Default create a "check" macro

Greg,

Dim ans
For i = 9 To 133
If Not IsEmpty(Cells(i, "A").Value) And IsEmpty(Cells(i, "V")) Then
ans = ""
Do While ans = ""
ans = InputBox("Cell " & Cells(i, "V").Address(False, False)
& " needs data, please supply", _
"Data Completion")

Loop
End If
Next i

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Greg Liber" wrote in message
...
First off I really need to thank Frank, Tom and Ron! While some of the
others here have also helped out, these three have really stood out when
answering my questions! You're help has been amazing! Your patience with
the rest of us is very remarkable and much appreciated! Thanks for taking
your time to help us out!

Now to the question...
I want to write a macro that checks column "V" (or range "V9:V133") on a
payroll worksheet and then if there is nothing in a cell, the macro

returns
a message asking if this is correct... and then allows the user to change
the cell(s) and continues to check until the entire range has been

checked.
There might be instances of "0" hours so it's OK to have "0" but not a

blank
in the cell.

In the perfect world... the process would only check for the information

in
the range "V9:V133" that had information in range "A9:A133"

This is probably pretty easy but I'm not clear as to how to figure this

one
out... especially with the message box(es) that I would need to create...

All this because I have users who forget to put in total hours for

employees
on a worksheet... ohh wellll

I'm not sure if this can even be done... but any suggestions would be

great!
Thanks in advance for any and all assistance!

Greg