Selecting next blank cell

[Yellowdude]

Ive got a table and i want excel to automatically go through all the table untill it finds a blank cell and then add an x to the empty cell. Is there a formula that can do this or a macro?

 

[Legacy 344]

To MarkW

Here's some shorter code (no loop required) :-

Dim cell As Range
Set cell = [A1:J10].Find("", After:=[J10], SearchOrder:=xlByColumns)
cell.Value = "X"

 

[Guest]

On 2002-03-06 17:28, Autolycus wrote:
To MarkW

Here's some shorter code (no loop required) :-

Dim cell As Range
Set cell = [A1:J10].Find("", After:=[J10], SearchOrder:=xlByColumns)
cell.Value = "X"

Or just in one line of code :-

[A1:J10].Find("", After:=[J10], SearchOrder:=xlByColumns).Value = "X"

 

[Tom Urtis]

Wow, I just got home after being out all day to see these great code suggestions. I really learned something from this thread. Thanks everyone.

Tom Urtis

 

[Mark W.]

On 2002-03-06 17:28, Autolycus wrote:
To MarkW

Here's some shorter code (no loop required) :-

Dim cell As Range
Set cell = [A1:J10].Find("", After:=[J10], SearchOrder:=xlByColumns)
cell.Value = "X"

Wicked! Thank you for your contribution.