Excel vba status bar screenupdating diego luna is dating

23-Oct-2017 18:41

The copying of cells can best be done afterwards in 1 go by copying whole rows.

I was just hoping there was an easy fix that someone knew, like "force update" or some command that would ensure it actually showed the silly status bar. Since it takes like 5 hours to run though I don't want to try it again just for fun :) edit: I appreciate your help, but don't worry about it too much. I managed to overcome the problem by adding the command Do Events after changing the statusbar. Seems to only happen in Excel 2010 and not in previous version.Ok here goes the code dump basically the idea is to find skipped records and insert the known values as well as copy the included records to another sheet. What it doesn't do is update the status bar when run for 600,000 records. Row 'this is the maximum row in the load work book Application. Cells(copy_row, 1) End If 'Data is unknown put in -1 Output Data_worksheet. It does update the status bar when run on short sections. Calculation = xl Calculation Manual Dim Input Data_worksheet As Worksheet Set Input Data_worksheet = Active Sheet Dim Output Data_worksheet As Worksheet Set Output Data_worksheet = Active Workbook. Status Bar = "Number of rows " & max_row Dim current_percent As Integer, next_percent As Integer current_percent = 0 read_row = 2 Dim VID_used_col As Integer VID_used_col = 77 Dim copy_row As Long copy_row = 2 read_row = 2 Dim VID_used() As Integer Dim temp_read_row As Long While read_row current_percent Then Application.

I was just hoping there was an easy fix that someone knew, like "force update" or some command that would ensure it actually showed the silly status bar. Since it takes like 5 hours to run though I don't want to try it again just for fun :) edit: I appreciate your help, but don't worry about it too much.

I managed to overcome the problem by adding the command Do Events after changing the statusbar.

Seems to only happen in Excel 2010 and not in previous version.

Ok here goes the code dump basically the idea is to find skipped records and insert the known values as well as copy the included records to another sheet. What it doesn't do is update the status bar when run for 600,000 records. Row 'this is the maximum row in the load work book Application. Cells(copy_row, 1) End If 'Data is unknown put in -1 Output Data_worksheet.

It does update the status bar when run on short sections. Calculation = xl Calculation Manual Dim Input Data_worksheet As Worksheet Set Input Data_worksheet = Active Sheet Dim Output Data_worksheet As Worksheet Set Output Data_worksheet = Active Workbook. Status Bar = "Number of rows " & max_row Dim current_percent As Integer, next_percent As Integer current_percent = 0 read_row = 2 Dim VID_used_col As Integer VID_used_col = 77 Dim copy_row As Long copy_row = 2 read_row = 2 Dim VID_used() As Integer Dim temp_read_row As Long While read_row current_percent Then Application.

When you run this example, you can compare the respective running times, which are displayed in the message box. Screen Updating = True For i = 1 To 2 If i = 2 Then Application.