Application screenupdating in vba
This is because they only delete one row at a time! In some examples we turn off Calculation and Screenupdating. Cells(l Row2, 1) @@@@@@End If @@@@End With @@Next i @@Worksheets(1).
What happens is, any blank rows are placed at the bottom of the range should the entire row be blank. Enable Events = True ' Our code will only enter here if the selection is more than one cell. Screen Updating = Curr Screen Update End Sub Public Sub Un Filter_DB() Dim Active S As String, Curr Screen Update As Boolean Curr Screen Update = Application. Show All Data On Error Go To 0 Do Events Sheets(Active S). Screen Updating = Curr Screen Update End Sub Public Function Un Filter_Table(By Ref Sheet With Table As Worksheet, By Val Range Name As String) As Boolean On Error Go To Err Hdlr Dim a WB As Workbook, _ Active SH As Worksheet, _ Screen Update State As Boolean, _ Status Bar State As Boolean, _ Calc State As Xl Calculation, _ Events State As Boolean, _ Display Page Break State As Boolean Set a WB = Active Workbook Set Active SH = a WB. Private Sub Worksheet_Change(By Val Target As Range) ' Deletes blank rows as they occur. Enable Events = False ' They have more than one cell selected If Target. Count 1 Then Go To Selection Code If Worksheet Function. This was shown to me by my internet friend from Belgium, Geert Dumortier.