Skip line if cell is empty

Good afternoon folks,

I'm struggling to find a solution to a problem and was wondering if anyone knew how I would get round this, I'm learning and utilising this forum to the best extent I can but this little step doesn't work for me.

I have a macro (one I found and changed to my needs), that calls another macro (that I recorded/edited). The Macro is a loop that loops, performs a task, and steps down to perform again.

Sub UpdateProgress()

    Application.ScreenUpdating = True
    
    Call ALL
    
      ' Select cell H10, *first line of data*.
      Range("H10").Select
      ' Set Do loop to stop when an last cell is reached.
      Do Until ActiveCell.FormulaR1C1 = "End"
         ' Insert your code here. Call Macro Needed
         Call CombineUpdates
         ' Step down 1 row from present location.
         ActiveCell.Offset(1, 0).Select
      Loop
      
    Application.ScreenUpdating = True
    
      MsgBox "Update Complete"
    
    
   End Sub

I think the solution may be something like: if cells(a,1) = "" then goto lastline

From what I understand it will step down a cell, if it is blank then it will go back a line in my code and not perform the task, stepping down another line and checking if blank and repeating.

Thanks in advance to anyone that can help!

Krist

Originally Posted by Norie

Do you want the sub CombineUpdates not to be called and the code to move on to the next row?

Exactly this, it skips calling the sub CombineUpdates and moves on to next row to check if that one is empty, if populated it will run, if not it will skip to the next line.


Sent from my iPhone using Tapatalk

Maybe:

Sub Krist2()

    Application.ScreenUpdating = True
    
    Call ALL
    
      ' Select cell H10, *first line of data*.
      Range("H10").Select
      ' Set Do loop to stop when an last cell is reached.
      Do Until ActiveCell.FormulaR1C1 = "End"
      If ActiveCell.Value = "" Then GoTo zz
         ' Insert your code here. Call Macro Needed
         Call CombineUpdates
         ' Step down 1 row from present location.
zz:
         ActiveCell.Offset(1, 0).Select
      Loop
      
    Application.ScreenUpdating = True
    
      MsgBox "Update Complete"
    
    

End Sub

Originally Posted by Norie

All you need is an If.

Sub UpdateProgress()

    Application.ScreenUpdating = True

    Call ALL

    ' Select cell H10, *first line of data*.
    Range("H10").Select
    ' Set Do loop to stop when an last cell is reached.
    Do Until ActiveCell.Value = "End"
        ' Insert your code here. Call Macro Needed
        If ActiveCell.Value <> "" Then
            Call CombineUpdates
        End If
        '  Step down 1 row from present location.
        ActiveCell.Offset(1, 0).Select
    Loop

    Application.ScreenUpdating = True

    MsgBox "Update Complete"


End Sub

Great, I will try this today and post the results.

Thanks


Sent from my iPhone using Tapatalk

@Norie works a treat! Perfect thank you.


Sent from my iPhone using Tapatalk

Further to the above guys, I tried to create an active x check box that when checked it will hide all the lines with "yes" in the column.

It works until it reaches the first "yes" when I step through it. It successfully checks for the yes and skips over if it isn't a "yes", once it comes to the "yes" it has a Runtime Error '424' Object required.

My code is here:

Private Sub CheckBox1_Click()

Application.ScreenUpdating = True
If CheckBox1.Value = True Then

    Rows.EntireRow.Hidden = False

  
    ' Select cell L10, *first line of data*.
    Range("L10").Select
    ' Set Do loop to stop when an last cell is reached.
    Do Until ActiveCell.Value = "End"
        ' Insert your code here. Call Macro Needed
            If ActiveCell.Value = "Yes" Then
            
            cell.EntireRow.Hidden = True
            
        End If
        '  Step down 1 row from present location.
        ActiveCell.Offset(1, 0).Select
    Loop

Else

Rows.EntireRow.Hidden = False

End If

Application.ScreenUpdating = True

End Sub

I dont know if will have an effect but I am using a named list for the inputs Yes/No for the column.

Again, any help would be awesome!