Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macros Running Slow in a Shared workbook
This is one of the Macro's that runs extremely slow in my
workbook when it is in shared format. Sub ProductsUpdate() Application.ScreenUpdating = False Dim myRng As Range Dim lastRw As Long 'get the last row with an entry If ActiveSheet.[B11] = 0 Then ActiveSheet.[B11].Formula = "1" End If ActiveSheet.[B9:B10].Formula = "1" lastRw = ActiveSheet.[B9].End(xlDown).Row ActiveSheet.[B12:AS400].Sort Key1:=Range("B12"), Order1:=xlDescending, Orientation:=xlTopToBottom With ActiveSheet.[BF11] .Formula = "=IF(AND($B11=$AT$1,$B11<=$AU$1),L11,)" .AutoFill Destination:=ActiveSheet.[BF11:CM11] End With With ActiveSheet.[CN11] .Formula = "=IF(AND($B11=$AT$1,$B11<=$AU$1),D11,)" .AutoFill Destination:=ActiveSheet.[CN11:CU11] End With ActiveSheet.[BF11:CU11].Copy Destination:=ActiveSheet.Range("BF12:BF" & lastRw&) ActiveSheet.[BF6:CU6].Copy ActiveSheet.[BF7].PasteSpecial Paste:=xlValues ActiveSheet.Range("BF11:CU" & lastRw&).ClearContents Application.CutCopyMode = False End Sub -----Original Message----- Hi no way to 'fool' the system. You may post the relevant part of your code which runs so slow -- Regards Frank Kabel Frankfurt, Germany "MichaelLove" schrieb im Newsbeitrag news:01F13054-E32A-40CE-B6E2- ... When I run my Macros in a workbook that is in Shared form it causes my system to run extremely slow. If the workbook is not in shared form the Macros run faster and my system doesn't freeze. Is there a way to fool the system into thinking the workbook is not in shared form which may help it run faster? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macros Running Slow in a Shared workbook
Hi Michael
probably not much you can do about it (you may set the calculation mode to 'manual' at the beginning of your macro and to 'automatic' at the end of your macro). But I assume that this is a problem of shared workbooks -- Regards Frank Kabel Frankfurt, Germany MichaelLove wrote: This is one of the Macro's that runs extremely slow in my workbook when it is in shared format. Sub ProductsUpdate() Application.ScreenUpdating = False Dim myRng As Range Dim lastRw As Long 'get the last row with an entry If ActiveSheet.[B11] = 0 Then ActiveSheet.[B11].Formula = "1" End If ActiveSheet.[B9:B10].Formula = "1" lastRw = ActiveSheet.[B9].End(xlDown).Row ActiveSheet.[B12:AS400].Sort Key1:=Range("B12"), Order1:=xlDescending, Orientation:=xlTopToBottom With ActiveSheet.[BF11] .Formula = "=IF(AND($B11=$AT$1,$B11<=$AU$1),L11,)" .AutoFill Destination:=ActiveSheet.[BF11:CM11] End With With ActiveSheet.[CN11] .Formula = "=IF(AND($B11=$AT$1,$B11<=$AU$1),D11,)" .AutoFill Destination:=ActiveSheet.[CN11:CU11] End With ActiveSheet.[BF11:CU11].Copy Destination:=ActiveSheet.Range("BF12:BF" & lastRw&) ActiveSheet.[BF6:CU6].Copy ActiveSheet.[BF7].PasteSpecial Paste:=xlValues ActiveSheet.Range("BF11:CU" & lastRw&).ClearContents Application.CutCopyMode = False End Sub -----Original Message----- Hi no way to 'fool' the system. You may post the relevant part of your code which runs so slow -- Regards Frank Kabel Frankfurt, Germany "MichaelLove" schrieb im Newsbeitrag news:01F13054-E32A-40CE-B6E2- ... When I run my Macros in a workbook that is in Shared form it causes my system to run extremely slow. If the workbook is not in shared form the Macros run faster and my system doesn't freeze. Is there a way to fool the system into thinking the workbook is not in shared form which may help it run faster? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Slow Opening Shared Workbook | New Users to Excel | |||
Macros Running Sometimes Slow Sometimes Fast | Excel Discussion (Misc queries) | |||
Workbook running VERY slow | Excel Discussion (Misc queries) | |||
Why are macros running slow aftrer being switched to XP? | Excel Discussion (Misc queries) | |||
Macros running slow in Excel 2003 | Excel Discussion (Misc queries) |