Finding Next empty +1

[Guest]

is it possible to find next empty row and enter data into the next row??

 

[Bob Phillips]

Cells(Rows.Count,"A").End(xlUp).Offset(1,0).Value = "some value"

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Nick Hodge]

There are a ton of ways

I always go to the bottom up in a column with contiguous data (Up to 2003)

Dim lLastRow as Long
lLastRow=Range("A65536").End(XlUp).Row

lLastRow will now contain the number of the last row which can be used as a
range address

Range("A"&lLastRow).Copy

etc

For 2007 use 1048576 as the last row or for a mixed environment test for
version

If Application.Version>11 Then
lLastRow=Range("A1048576").End(xlUp).Row
Else
lLastRow=Range("A65536").End(xlUp).Row
End If



--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)
web: www.nickhodge.co.uk
blog (non-tech): www.nickhodge.co.uk/blog/

 

[Ron de Bruin]

See
http://www.rondebruin.nl/last.htm

If you want a database example see
http://www.rondebruin.nl/copy1.htm

 

[Guest]

Thank you to all who replied
here's the thing this is an order form. can get it to enter data into
every second row but it misses the start of the column "B16"
The 1 st range goes from "B16:B74" entering data into every second row.
the 2nd range goes form l16:l60 again entering data into every second row
starting afterB16:B74 is filled with data then starting at "L16".

Thank you in advance

 

[Bob Phillips]

Show your code.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)