VBA Loop Based on Cell Value

[The Power Loon]

I have been trying to loop a macro i have based on a cell value, but it it constantly failing. I've looked around and tried various looping examples i've found, but must not be applying them properly.

What I'm trying to do is get it to loop until Cell Z1 in the "Multipliers" sheet is blank.


'Start of Loop

Sheets("DataSheet").Select

Call Compile_1st
Call Compile_2nd
Call Compile_3rd

Sheets("Multipliers").Select
Range("A1:Z1").Select
Selection.Delete Shift:=xlUp

'Loop if Cell Z1 has a value


Can anyone help me out?

 

[Joe4]

One way:

Do

    Sheets("DataSheet").Select

    Call Compile_1st
    Call Compile_2nd
    Call Compile_3rd

    Sheets("Multipliers").Select
    Range("A1:Z1").Delete Shift:=xlUp

    If Sheets("Multipliers").Range("Z1") = "" Then Exit Do

Loop

I am assuming that you mean cell Z1 on your "Multipliers" sheet.
If not, then change the sheet name reference.

 

[The Power Loon]

One way:

Do

    Sheets("DataSheet").Select

    Call Compile_1st
    Call Compile_2nd
    Call Compile_3rd

    Sheets("Multipliers").Select
    Range("A1:Z1").Delete Shift:=xlUp

    If Sheets("Multipliers").Range("Z1") = "" Then Exit Do

Loop

I am assuming that you mean cell Z1 on your "Multipliers" sheet.
If not, then change the sheet name reference.

This worked perfect. Thank you for you help.
Also, infinitely easier than some of the methods i tried.

 

[Joe4]

You are welcome!