VBA code to send data to different sheets slow refresh

**covershaker** · 01-24-2010, 05:49 PM

Hello, I received help with attached workbook from a forum member. The workbook has several sheets. The first sheet (All Students) has a table / range of student information. There are several other sheets one for each teacher, that would contain the student information from first sheet (All Students) for that teacher. Teacher name is in the last column on the first sheet(All Students). Data will be entered into first sheet by teachers. When I click on teacher tabs excel gets data from All Students tab / sheet and populates teacher sheet with data for that teacher based on teacher column in All Students. The workbook performs the required task. The only problem is performance, it runs slow. It can take several seconds to refresh with small table. Can someone help me code a faster refresh method?

Thanks for any help.
covershaker

**JBeaucaire** · 01-25-2010, 03:00 AM

Must be something with your system. On my 6 year old laptop, each sheet updates in less than 1 second. Could be anything.

**JBeaucaire** · 01-25-2010, 03:09 AM

Here's a mild update of your Workbook_SheetActivate() macro, it will not make any changes to the merged cell at the top, perhaps this will do better on your system. They perform the same on mine, less than a second.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
Dim r As Range, ws As Worksheet
Application.ScreenUpdating = False

Set ws = Worksheets("All Students")
Set r = ws.Range("A2", ws.Range("H" & Rows.Count).End(xlUp))

If Sh.Name <> ws.Name Then
    Range("A3", Range("H3").End(xlDown)).ClearContents
    r.AutoFilter Field:=8, Criteria1:=Sh.Name
    On Error Resume Next
    ws.Range("A3", ws.Range("H3").End(xlDown)).SpecialCells(xlCellTypeVisible).Copy Range("A3")
    r.AutoFilter
End If

Cells.Columns.AutoFit
Application.ScreenUpdating = True

End Sub