program next column

[ChuckS]

Hello,
I have a couple of user forms including text boxes that I would like to use
to complete cells in a spreadsheet. I need to look for the next empty cell to
start the data in column a. I have this code working fine but is there a
simple way to increment the c.address by one column marker to shift from a to
b, b to c and so on.

 

[Barb Reinhardt]

Lets say c.address = C1

c.offset(0,1).address = D1
c.offset(0,2).address = E1

Make sense?

 

[Dave Peterson]

I use this kind of thing:

Dim NextCell as range
with worksheets("somesheetnamehere")
set Nextcell = .cells(.rows.count,"A").end(xlup).offset(1,0)
end with
with nextcell
.value = "stuff in column A"
.offset(0,1).value = "stuff in B"
.offset(0,2).value = "stuff in C"
end with

=====
Sometimes, I use:
Dim NextRow as long
with worksheets("somesheetnamehere")
NextRow = .cells(.rows.count,"A").end(xlup).row + 1
.cells(nextrow,"A").value = "a"
.cells(nextrow,"B").value = "B"
.cells(nextrow,"C").value = "C"
end with

 

[ChuckS]

Barb,
Thank you I knew I had done this before but I was going brain dead, it works
perfectly as you suggested
c.offset(0,1).value = Textbox2.value

Chuck