Thread
:
WTF?? Stange happings with a VB code
View Single Post
#
4
Posted to microsoft.public.excel.programming
Kent Prokopy
external usenet poster
Posts: 39
WTF?? Stange happings with a VB code
Application.Calculation = xlCalculationManual
This is telling Excel to stop updating formulas untill you change it back to:
Application.Calculation = xlCalculationAutomatic
or hit F9
"Don Guillett" wrote:
Perhaps
.Calculation = xlCalculationManual
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"pgarcia" wrote in message
...
Ok, I'm using the below
VB
code and to my surprise, none of my formulas
work.
Can any see why this is happing? When I remove the code, formulas work.
Strange.
Does it have to do with "With Application"?
Dim DeleteValue As String
Dim rng As Range
Dim calcmode As Long
With Application
calcmode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
DeleteValue = "Closed"
With ActiveSheet
.AutoFilterMode = False
.Range("AE1:AE" & .Rows.Count).AutoFilter Field:=1,
Criteria1:=DeleteValue
With .AutoFilter.Range
On Error Resume Next
Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng Is Nothing Then rng.EntireRow.Delete
End With
.AutoFilterMode = False
End With
Reply With Quote
Kent Prokopy
View Public Profile
Find all posts by Kent Prokopy