is there a way to find an empty cell

[jkpd2000]

Hi
I have a few columns in my excel. they grow every day.
I have to find a column which is empty.

[Brian from Maui]

Try this thread:

http://www.mrexcel.com/board/viewtop...c=7715&forum=2

or this

http://www.mrexcel.com/board/viewtop...c=7309&forum=2

or this

http://www.mrexcel.com/board/viewtop...c=5493&forum=2




[ This Message was edited by: Brian from Maui on 2002-05-16 15:51 ]

[ This Message was edited by: Brian from Maui on 2002-05-16 15:56 ]

[Chris Davison]

couldn't you just insert one ?

[Nimrod]

Hi jp:
I find the "end" function can be quite useful in writing macros. It will find the limits of a specified range. This range may be an entire sheet or a "grouping" of numbers on a sheet. I wrote this little procedure for you to investigate this with.

Good Luck !

Public Sub FindRangeLimits()
RefPt = InputBox("Enter Ref Cell ex: A1", "Find Limits")

    Up = Range(RefPt).End(xlUp).Row
    Down = Range(RefPt).End(xlDown).Row
    Rt = Range(RefPt).End(xlToRight).Column
    Lft = Range(RefPt).End(xlToLeft).Column
    NL = Chr(13) & Chr(10)
    TB = Chr(9)

prmt = MsgBox("Limit Up:" & TB & TB & Up & NL & _
            "Limit Down :" & TB & Down & NL _
            & "Limit Left :" & TB & Lft & NL _
            & "Limit Right :" & TB & Rt, , "Find Limits ")

End Sub

Quote from excel help :

End Property Example

This example selects the cell at the top of column B in the region that contains cell B4.
Range("B4").End(xlUp).Select

This example selects the cell at the end of row 4 in the region that contains cell B4.
Range("B4").End(xlToRight).Select

This example extends the selection from cell B4 to the last cell in row four that contains data.
Worksheets("Sheet1").Activate
Range("B4", Range("B4").End(xlToRight)).Select

[ This Message was edited by: Nimrod on 2002-05-16 17:05 ]

[ This Message was edited by: Nimrod on 2002-05-16 17:05 ]

[ This Message was edited by: Nimrod on 2002-05-16 17:06 ]