Find and Select but how?

gina22 · August 20th, 2009, 08:19 PM

I need some help.

I receive lots of files that contain rows of data. The last column for the data is always column y.

In some of my files I need to find the cell that is in column Y in the last row of data and if it is empty I need to add A1 into the cell. If it already contains data I do not need to add A1.

Although Column Y in the last row may not contain data, there will be data in a number of the other cells in the last row.

all help is appreciated.

sektor · August 21st, 2009, 12:22 AM

The problem is that first you gotta define REAL last row. For instance, you can define last row in column X:

Code:

Dim lastRow As Long
lastRow = Range("X1").End(xlDown).Row

After that you can check your last cell in column Y:

Code:

Dim lastCell As Range
Set lastCell = Cells(lastRow, "Y")

And then you can check, whether this cell is empty, and if it is, then copy your A1 cell into that last cell in Y column:

Code:

If IsEmpty(lastCell) Then lastCell = Range("A1")

And that's all!

gina22 · August 21st, 2009, 08:31 AM

Thank You so much. It worked great!!!!!!!!! You are a STAR!

sektor · August 21st, 2009, 09:11 AM

If you need to do something else with your "lot's of files", then just write on [email protected]