重复宏，直到满足条件

Question

I am working on a macro to do a repetitive task for me. To give you a clear view, I have prepared my initial macro (vba) code below as well as the flow chart of what it suppose to do:

Here a narrative description of the macro:

1. Check all the cells in Column K if it contains the word "MERGED"
2. IF the macro found the word "Merged", it will call another macro (Macro_X)
3. After calling the Macro, it will check again all the cells in Column K if it still contains the word "MERGED"
4. If the macro still finds the word "Merged", it will call again the Macro_X.
5. The condition will only stop until the Column K doesn't contain the word "Merged".

6. If the macro didn't find any "Merged" word in column K, it will now call the Macro_Z.

    Last = Cells(Rows.Count, "K").End(xlUp).Row For i = Last To 1 Step -1 If (Cells(i, "K").Value) = "Merged" Then Call macro_x End If Next I 

Screen shot of column K

I already have the code above but it's not working. Not sure why. Could you please help to point out what's wrong or suggest a better code?

Answer 1

You can add simple Boolean variable to check if the word "MERGED" was found.

Dim Word_Found as Boolean

Last = Cells(Rows.Count, "K").End(xlUp).Row
For i = Last To 1 Step -1
    If (Cells(i, "K").Value) = "Merged" Then
        Call macro_x

        Word_Found = True
        i = LAST

    End If
Next I

If Not(Word_Found) Then Call macro_z

Above code is what can be modified from your code.

Below code is written looking at your flow chart.

While Not (Columns("K").Find("Merged") Is Nothing)
    Call macro_x
Wend
Call macro_z

Answer 2

You can call your initial macro at the end of your Macro_X. for the initial macro:

Sub checker()
Last = Cells(Rows.Count, "K").End(xlUp).Row
For i = 1 To Last Step -1
    If (Cells(i, "K").Value) = "Merged" Then

        Call macro_x

    End If
Next I
Call macro_z
End Sub

for macro_x:

Sub macro_x()
'DO SOMETHING HERE

Call checker
End Sub

EDIT:

For i = 1 To Last Step -1

Answer 3

First thing I see is "merged" in your cell doesn't start with capital letter but in your code does.

So please change to this.

Last = Cells(Rows.Count, "K").End(xlUp).Row
For i = Last To 1 Step -1
    If (Cells(i, "K").Value) = "merged" Then

        Call macro_x

    End If
Next I