The first cell from

MJA · Mar 6th, 2002, 06:17 AM

Hello All,

I have data in column A, e.g. in cell A1, A10, A76, a189, Ax, ... .

I want to know the first cell with data from the bottom up. So I don't want to start in A1 but in A1000.

Is that possible in VB!?

AJ · Mar 6th, 2002, 06:28 AM

Would something like this help...

Lastrow = Range("A65000").End(xlUp).Row

(Returns the row number of the last cell in column A with data in)

Mudface · Mar 6th, 2002, 06:31 AM

Use something like: -

For x = 1000 To 1 Step -1
If Not IsEmpty(Cells(x, 1)) Then Exit For
Next x

MsgBox "Cell A" & x & " is the first cell with data in."

Mudface · Mar 6th, 2002, 06:32 AM

AJ's is better

.

MJA · Mar 6th, 2002, 06:42 AM

Quote:

On 2002-03-06 05:28, AJ wrote:
Would something like this help...

Lastrow = Range("A65000").End(xlUp).Row

(Returns the row number of the last cell in column A with data in)

AJ thank U all tha way up!

Mar 6th, 2002, 06:17 AM	#1
MJA Board Regular Join Date: Feb 2002 Location: Hengelo Posts: 79	Hello All, I have data in column A, e.g. in cell A1, A10, A76, a189, Ax, ... . I want to know the first cell with data from the bottom up. So I don't want to start in A1 but in A1000. Is that possible in VB!? __________________ Best regards, Martin J.A. Maatman Oonk

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 6th, 2002, 06:28 AM	#2
AJ Board Regular Join Date: Mar 2002 Location: =ActiveCell.Address Posts: 478	Would something like this help... Lastrow = Range("A65000").End(xlUp).Row (Returns the row number of the last cell in column A with data in)

Mar 6th, 2002, 06:31 AM	#3
Mudface MrExcel MVP Join Date: Feb 2002 Location: Sunny, spring-like Hull Posts: 3,339	Use something like: - For x = 1000 To 1 Step -1 If Not IsEmpty(Cells(x, 1)) Then Exit For Next x MsgBox "Cell A" & x & " is the first cell with data in."

Mar 6th, 2002, 06:32 AM	#4
Mudface MrExcel MVP Join Date: Feb 2002 Location: Sunny, spring-like Hull Posts: 3,339	AJ's is better .