View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Looking for easy way to add data to the first empty row from a for

I like to pick out a column that always has data in it if that row is used, then
I can use:

Dim NextRow as long
with worksheets("Somesheetnamehere")
nextrow = .cells(.rows.count,"A").end(xlup).row + 1
.cells(nextrow,"A").value = "something here"
end with

or

Dim NextCell as range
with worksheets("Somesheetnamehere")
set nextcell = .cells(.rows.count,"A").end(xlup).offset(0,1)
somerange.copy _
destination:=nextcell
end with



Gluefoot wrote:

I'm pretty new to using forms in Excel. I'm wondering if there's a simple way
to write to the last empty row in a sheet without having to use a DO - LOOP
to find it.

Thanks for any suggestions!


--

Dave Peterson