How to Loop until Column is blank

tsxlee · Jul 31, 2011

Hello,

How can I make my macro stop when the column does not contain a value?
i.e. Column A = 1; Column B =2; Column C = blank

Any help would be appreciated.
[FONT=&quot][/FONT][FONT=&quot][/FONT]

Rick Rothstein · Jul 31, 2011

Not a very descriptive question there. One way to do what I think you ultimately want to do would be to calculate the last column containing data and then iterate the columns using a For..Next loop from 1 to that last column number...

Code:

Dim X As Long, LastColumn As Long
LastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, _
                   SearchDirection:=xlPrevious, LookIn:=xlFormulas).Column
For X = 1 To LastColumn
    '
    '  Your code would go here. Reference the
    '  column using the Columns property
    '
Next

How to Loop until Column is blank

tsxlee

New Member

Excel Facts

Rick Rothstein

MrExcel MVP

Similar threads

Forum statistics

Share this page

How to Loop until Column is blank

tsxlee

New Member

Excel Facts

Rick Rothstein

MrExcel MVP

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock