If ANY CELL is empty in Col "O", then run Module45... IF NONE are blank, run Module50

[ChrisOK]

Trying to figure out VBA Sub that will scan Column "O" starting at "O5" for any blanks/empty cells found.. <b>IF YES,</b> then run <u><i>Module45,</u></i> <b>IF NO,</b> then run <u><i>Module50.</u></i>

NOTE: (don't want to include the blanks that may be present at the base of the worksheet)...
<b>May need to refer to Col A to look for data present...</b> If yes, continue to scan down COLUMN O looking for blanks in O.
Once it sees that there is no more data in Col A, then stop looking. (don't want it to look at rows at the bottom of the sheet that don't hold any data)

Thanks!

 

[mumps]

Try:

Sub RunMod()
    Application.ScreenUpdating = False
    Dim bottomA As Integer
    bottomA = Range("A" & Rows.Count).End(xlUp).Row
    Dim rng As Range
    For Each rng In Range("O5:O" & bottomA)
        If rng = "" Then
            Call Module45
        Else
            Call Module50
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub

 

[ChrisOK]

Hi Mumps/All:
I tried it as is but got errors, so I attempted to adjust the way "Module45" and "Module50" were written.. still having issues..???
Got this error when done this way:, it highlighted "Module36" and gave this error: <b>"COMPILE ERROR: Expected Variable or Procedure, Not Module"</b>
Any ideas how to fix??

Sub RunMod()
    Application.ScreenUpdating = False
    Dim bottomA As Integer
    bottomA = Range("A" & Rows.Count).End(xlUp).row
    Dim rng As Range
    For Each rng In Range("O5:O" & bottomA)
        If rng = "" Then
            Call Module36
        Else
            Call Module36B
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub

When I try it this way (with underscores), I get <b>"COMPILE ERROR: Sub or Function Not Defined"</b>
Any ideas how to fix??

Sub RunMod()
    Application.ScreenUpdating = False
    Dim bottomA As Integer
    bottomA = Range("A" & Rows.Count).End(xlUp).row
    Dim rng As Range
    For Each rng In Range("O5:O" & bottomA)
        If rng = "" Then
            Call Module_36
        Else
            Call Module_36B
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub

 

[mumps]

Hi Chris. The "Call" command is used to run a macro. I assumed that when you said "Module45" and "Module50", you were referring to the macros contained in those modules. The "Call" command must be followed by the name of the macro you want to run. What are the names of the two macros you want the code to run?