okay..now i know how to take text content and add it to cells.

i need the Sheets("blah").Range("A1") to change cells to the next row.
how would i go about doing that?

in other words...i need it to write to cell A1, then A2 the next time
enter is pushed, A3, the third time, etc...

thanks!
john

If "blah" is your active sheet and Cell A1 is the active cell and starting
point, then you may try using:

ActiveCell.Value = "text"
ActiveCell.Offset(1, 0).Select

If you always want the next empty cell in column A, then you may try
something like:

ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select

HTH,
Paul


"unclescrooge" wrote in message
ups.com...
okay..now i know how to take text content and add it to cells.

i need the Sheets("blah").Range("A1") to change cells to the next row.
how would i go about doing that?

in other words...i need it to write to cell A1, then A2 the next time
enter is pushed, A3, the third time, etc...

thanks!
john

On Mar 6, 11:54 am, "PCLIVE" wrote:
If "blah" is your active sheet and Cell A1 is the active cell and starting
point, then you may try using:

ActiveCell.Value = "text"
ActiveCell.Offset(1, 0).Select

If you always want the next empty cell in column A, then you may try
something like:

ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select

HTH,
Paul

"unclescrooge" wrote in message

ups.com...



okay..now i know how to take text content and add it to cells.

i need the Sheets("blah").Range("A1") to change cells to the next row.
how would i go about doing that?

in other words...i need it to write to cell A1, then A2 the next time
enter is pushed, A3, the third time, etc...

thanks!
john- Hide quoted text -

- Show quoted text -

Hi Paul,

Thanks, just so I'm clear...

after the Sheets("blah").Range("A1") = textbox.Value

i would add the

ActiveCell.Value = "text"
ActiveCell.Offset(1, 0).Select

portion to the coding?

thank you again!
john

Try this:

Sheets("blah").Range("A" & ActiveCell.row + 1).Select
Selection = textbox.Value



"unclescrooge" wrote in message
ups.com...
On Mar 6, 11:54 am, "PCLIVE" wrote:
If "blah" is your active sheet and Cell A1 is the active cell and
starting
point, then you may try using:

ActiveCell.Value = "text"
ActiveCell.Offset(1, 0).Select

If you always want the next empty cell in column A, then you may try
something like:

ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select

HTH,
Paul

"unclescrooge" wrote in message

ups.com...



okay..now i know how to take text content and add it to cells.

i need the Sheets("blah").Range("A1") to change cells to the next row.
how would i go about doing that?

in other words...i need it to write to cell A1, then A2 the next time
enter is pushed, A3, the third time, etc...

thanks!
john- Hide quoted text -

- Show quoted text -

Hi Paul,

Thanks, just so I'm clear...

after the Sheets("blah").Range("A1") = textbox.Value

i would add the

ActiveCell.Value = "text"
ActiveCell.Offset(1, 0).Select

portion to the coding?

thank you again!
john