Code in VBA loops and never ends. How to fix this?

by

Maybe you could union the rows and delete them at once? Something like this (untested). 

Dim myRow As Range
Dim toDelete As Range

For i = 2 To 500
    If Worksheets("Sales").Cells(i, 3).Value > -100 Then
       Set myRow = Worksheets("Sales").Rows(i)
       If toDelete Is Nothing Then
            Set toDelete = myRow
        Else
            Set toDelete = Union(toDelete, myRow)
        End If
    End If
Next i

If Not toDelete Is Nothing Then _
    toDelete.Delete

More Related Contents:

  1. How do I get values from a hidden worksheet using VBA [closed]
  2. Excel matching based on name date and copying data to another sheet
  3. How to copy cells that contain certain text to another worksheet [closed]
  4. VBA Macro for copying and pasting columns on same excel sheet
  5. Excel VBA, code to count the # of filled cells, then find highest and 2nd highest and subtract the corresponding column #’s [closed]
  6. Levenshtein Distance in VBA [closed]
  7. Can VBA Reach Across Instances of Excel?
  8. Excel VBA – Delete empty rows
  9. Efficient way to delete entire row if cell doesn’t contain ‘@’ [duplicate]
  10. Use autofilter on more than 2 criteria
  11. Building Undo Into an Excel VBA Macro
  12. Excel vba add code to sheet module programmatically
  13. Best workaround for VBA Transpose array length limit?
  14. How to Lock the data in a cell in excel using vba
  15. How to use Events with Option Button Controls on Userform [duplicate]
  16. Vba Excel do vlookup from a closed file
  17. excel hyperlink to nothing
  18. How do I use variables to set properties in VBA (Excel)
  19. VBA: Else without If Error
  20. Workbooks.Open Method in VBA
  21. Windows().Activate works on every computer except one
  22. How to highlight a cell using the hex color value within the cell?
  23. Convert RTF (Rich Text Format) code into plain text in Excel
  24. lastrow and excel table.
  25. Open a workbook from VBA and disable Workbook_Open() code?
  26. Creating form programmatically in the module using vba
  27. How to filter listbox values based on a Textbox value
  28. Excel VBA wildcard search
  29. Find and FindNext for Excel VBA
  30. VBA inheritance, analog of super

Leave a Comment