Quote:
Originally Posted by Claus Busch
Hi Alberto,
Am Fri, 8 Mar 2013 11:17:34 +0000 schrieb Alberto Viveiros:
for each cel in range("a:a")
if isempty(cel) then exit for ' finish on empty cell
if isempty(cel.offset(,1)) then cel.offset(,1).value = msgbox("enter
a quantity for " & cel)
next
try:
Dim rngC As Range
For Each rngC In Range("A1:A12")
If IsEmpty(rngC.Offset(0, 1)) Then
MsgBox "enter a quantity for " & _
rngC.Offset(0, 1).Address(0, 0)
End If
Next
Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
|
Hi Claus.
Many thanks for your input.
However, this is returning a question for every line even though they are either full or empty.
The macro must look at all full cells on A1:A10 and then if A1 has text or data then B1 must have numeric value, if A2 has text or data then B2 must have numeric value and so on until last empty line found.
If possible a input box, with the possibility of Cancel, asking for value and then macro would fill in the empty cell.
Hope anybody out there has got the answer for this one.
Many thanks for your time and a very nice weekend to everybody.
Cheers,
Albert