Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Problem !
Hi Guys, Can anybody help me with the following piece of code !?. It works to a point, but I keep getting the error message "Type Mismatch, run error 13" after execution. Also if I change any cell on the worksheet the macro executes!, even though i have specified the target cell. Basically the macro should on run based on a value a user enters in "J13". Any help very much appreciated Mike R Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.ScreenUpdating = False With Application .Calculation = xlManual .MaxChange = 0.001 End With ActiveWorkbook.PrecisionAsDisplayed = False If Target.Value = "$j$13" Then Range("c13").ClearContents Range("j13").Select Application.CutCopyMode = False Selection.Copy Range("c13").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ Application.EnableEvents = True Application.ScreenUpdating = False With Application .Calculation = xlAutomatic .MaxChange = 0.001 End With ActiveWorkbook.PrecisionAsDisplayed = False End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code problem | Excel Discussion (Misc queries) | |||
Alt Code Problem | Excel Discussion (Misc queries) | |||
Code problem | Excel Discussion (Misc queries) | |||
VB Code Problem | Excel Discussion (Misc queries) | |||
Little problem with this code... | Excel Discussion (Misc queries) |