Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C11")) Is Nothing Then
Range("C15") = Range("C11") * Range("D15")
Range("C19") = Range("C11") * Range("D19")
Range("C20") = Range("C11") * Range("D20")
Range("C12") = Range("C13") + Range("C14") + Range("C15")
Range("C16") = Range("C11") - Range("C12")
Range("C16") = Range("C18") + Range("C19") + Range("C20")
Range("C21") = Range("C16") - Range("C16")
End If
End Sub
i try this code, to do calculation every time the value in cells C11 changes, but in actual the calculation doesn't run, kindly help.
thank you & regards,
bigMe
If Not Intersect(Target, Range("C11")) Is Nothing Then
Range("C15") = Range("C11") * Range("D15")
Range("C19") = Range("C11") * Range("D19")
Range("C20") = Range("C11") * Range("D20")
Range("C12") = Range("C13") + Range("C14") + Range("C15")
Range("C16") = Range("C11") - Range("C12")
Range("C16") = Range("C18") + Range("C19") + Range("C20")
Range("C21") = Range("C16") - Range("C16")
End If
End Sub
i try this code, to do calculation every time the value in cells C11 changes, but in actual the calculation doesn't run, kindly help.
thank you & regards,
bigMe