Page 2 of 2 FirstFirst 1 2
Results 11 to 13 of 13

Thread: Calculating in the backround

  1. #11
    Super Moderator JoePublic's Avatar
    Join Date
    Sep 2011
    Location
    Askew
    Posts
    194
    Articles
    0
    Excel Version
    2010


    Register for a FREE account, and/
    or Log in to avoid these ads!

    Oh, I see. In that case the code should be:
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    On Error GoTo oops
    
        If Not Intersect(Target, Range("b1")) Is Nothing Then
            Application.EnableEvents = False
            Range("C1").Value = Range("B1").Value
            Application.EnableEvents = True
        End If
        If Not Intersect(Target, Range("B3").Precedents) Is Nothing Then
            Application.EnableEvents = False
            Range("C3").Value = Range("B3").Value
            Application.EnableEvents = True
        End If
    
        Exit Sub
    
    
    oops:
        Application.EnableEvents = True
    End Sub
    This website wants to know your momentum - | Deny | | Allow |

  2. #12
    Thanks a million JoePublic, it works like a charm.

  3. #13
    Super Moderator JoePublic's Avatar
    Join Date
    Sep 2011
    Location
    Askew
    Posts
    194
    Articles
    0
    Excel Version
    2010
    Great - thanks for letting me know.
    This website wants to know your momentum - | Deny | | Allow |

Page 2 of 2 FirstFirst 1 2

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •