program next column

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

ChuckS - 27 Mar 2008 01:57 GMT

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.

Reply to this Message

Barb Reinhardt - 27 Mar 2008 02:11 GMT

Lets say c.address = C1

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

Make sense?

Signature

HTH,
Barb Reinhardt

> 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.

Reply to this Message

ChuckS - 27 Mar 2008 02:58 GMT

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

> Lets say c.address = C1
>
[quoted text clipped - 9 lines]
> > simple way to increment the c.address by one column marker to shift from a to
> > b, b to c and so on.

Reply to this Message

Dave Peterson - 27 Mar 2008 02:26 GMT

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

Signature

Dave Peterson

Reply to this Message