search for next row

[damorrison]

I would like to have a macro that searches the range Say A10:A15 if
there is a value in A10 then goto B10 do what I have to do in a
userform then click ok, then it goes to see if there is a value in the
next row

[Tom Ogilvy]

for each cell in range("A10:A15")
if isempty(cell) then cell.offset(0,1).Select
userform1.show
end if
Next

--
Regards,
Tom Ogilvy

"damorrison" <davemcochrane@gmail.com> wrote in message
news:1147019627.915501.319970@i40g2000cwc.googlegroups.com...
> I would like to have a macro that searches the range Say A10:A15 if
> there is a value in A10 then goto B10 do what I have to do in a
> userform then click ok, then it goes to see if there is a value in the
> next row
>

[damorrison]

Thanks alot, what is the opposite of
IsEmpty
right now the macro stops at the first empty row
I need it to stop at the next row with a value in the A10:A15 range

[JimMay]

Not IsEmpty


"damorrison" <davemcochrane@gmail.com> wrote in message
news:1147023076.861859.240110@j73g2000cwa.googlegroups.com:

> Thanks alot, what is the opposite of
> IsEmpty
> right now the macro stops at the first empty row
> I need it to stop at the next row with a value in the A10:A15 range

[damorrison]

This what I am trying to do

For Each cell In Range("A10:A15")
If Not IsEmpty(cell) Then
cell.Offset(0, 1).Select
Application.SendKeys "%{down}"
End If
Next

when a selection is made in colmn B the userform shows

[damorrison]

now it stops at the last cell

[paulandrewmorgan@gmail.com]

something like this?

Dim r As Integer
r = ActiveCell.Row + 1
Do While (r <= 15)
If Not IsEmpty(Range("A" & r)) Then
Range("B" & r).Select
Application.SendKeys "%{down}"
Exit Do
End If
r = r + 1
Loop
The loop stops at row 15

[damorrison]

Hi Paul,

Yes that's it,
Thanks alot