Find Last Column

[Myke_Griffin]

Hey Everybody,

Trying to design a unique application. I'm pretty new to the VBA world. I know how to do somethings but I'm no seasoned pro.

What I'm trying to do is kind of like a checkbook register but only vertical instead of horizontal. With each entry from my userform, I need it to fill in the next empty column to the right.

Any help would be great appreciated. Thanks in advance.

[Mrrrr]

You could use the following snippet in your code:

Please Login or Register  to view this content.

[Myke_Griffin]

I'm trying to adapt it to this code for rows. How do I do the same thing but for columns?

Please Login or Register  to view this content.

[Leith Ross]

Hello Myke_Griffin,

Using Mrrrr's suggestion, your code would look like this to append the data in the last row starting with next available column.

Please Login or Register  to view this content.

[bakerman2]

vertical instead of horizontal. With each entry from my userform, I need it to fill in the next empty column to the right.

Reading this, this is my understanding of the question.

Please Login or Register  to view this content.

[jolivanes]

Please Login or Register  to view this content.

Another solution, for all Columns, could be

Please Login or Register  to view this content.

If Row 15 would be the last used row, you would use Cells(lr, 2) instead of Range("B15")

For values

Please Login or Register  to view this content.

If your last used column would be column J, the result of the above would be 10 (=Column J)
If you would want to refer to Cell K1, you would use Cells(1, 11) '1 for Row1 and 11 for ColumnK

You can also use

Please Login or Register  to view this content.

but that would find the last used column for the first row only.

If there are formulas included

Please Login or Register  to view this content.

From Post #3:
If "LastRow" would be B10, then
Offset(1, 0) would be B11
Offset(1, 1) would be C11
Offset(1, 2) would be D11
Offset(1, 3) would be E11
etc etc
Offsets go by (Rows offset, Columns offset)

[Myke_Griffin]

Reading this, this is my understanding of the question.

Please Login or Register  to view this content.

This code works. I just have to modify it a little to the specific application. Thank you so much.

Quick question. A little off topic. My apologies offered.

Is it possible to have csv format on one sheet in a workbook and have the standard xls form in another sheet within the same workbook?