Hey guys,
I am working on a sheet where I am trying to keep a running total in a single cell. The VBA code that I am using works, but it only works if I type a value in the cell. I need it to work when the value is based on a formula, not a value. Any suggestions? Here is the code that I am currently using.
Code
Private Sub Worksheet_Change(ByVal target As Range)
Select Case target.Address
Case "$F$7"
If target.Address <> "$F$7" Then Exit Sub
Range("h7") = Range("h7") + target
Case "$F$8"
If target.Address <> "$F$8" Then Exit Sub
Range("h8") = Range("h8") + target
Case "$F$9"
If target.Address <> "$F$9" Then Exit Sub
Range("h9") = Range("h9") + target
Case "$F$10"
If target.Address <> "$F$10" Then Exit Sub
Range("h10") = Range("h10") + target
Case "$F$11"
If target.Address <> "$F$11" Then Exit Sub
Range("h11") = Range("h11") + target
Case "$F$12"
If target.Address <> "$F$12" Then Exit Sub
Range("h12") = Range("h12") + target
Case "$F$13"
If target.Address <> "$F$13" Then Exit Sub
Range("h13") = Range("h13") + target
Case "$F$14"
If target.Address <> "$F$14" Then Exit Sub
Range("h14") = Range("h14") + target
Case "$F$15"
If target.Address <> "$F$15" Then Exit Sub
Range("h15") = Range("h15") + target
Case "$F$16"
If target.Address <> "$F$16" Then Exit Sub
Range("h16") = Range("h16") + target
Case "$F$17"
If target.Address <> "$F$17" Then Exit Sub
Range("h17") = Range("h17") + target
Case "$F$18"
If target.Address <> "$F$18" Then Exit Sub
Range("h18") = Range("h18") + target
Case "$F$19"
If target.Address <> "$F$19" Then Exit Sub
Range("h19") = Range("h19") + target
Case "$F$20"
If target.Address <> "$F$20" Then Exit Sub
Range("h20") = Range("h20") + target
Case "$F$21"
If target.Address <> "$F$21" Then Exit Sub
Range("h21") = Range("h21") + target
Case "$F$22"
If target.Address <> "$F$22" Then Exit Sub
Range("h22") = Range("h22") + target
Case "$F$23"
If target.Address <> "$F$23" Then Exit Sub
Range("h23") = Range("h23") + target
Case "$F$24"
If target.Address <> "$F$24" Then Exit Sub
Range("h24") = Range("h24") + target
Case "$F$25"
If target.Address <> "$F$25" Then Exit Sub
Range("h25") = Range("h25") + target
Case "$F$26"
If target.Address <> "$F$26" Then Exit Sub
Range("h26") = Range("h26") + target
Case "$F$27"
If target.Address <> "$F$27" Then Exit Sub
Range("h27") = Range("h27") + target
Case "$F$28"
If target.Address <> "$F$28" Then Exit Sub
Range("h19") = Range("h28") + target
Case "$F$29"
If target.Address <> "$F$29" Then Exit Sub
Range("h29") = Range("h29") + target
Case "$F$30"
If target.Address <> "$F$30" Then Exit Sub
Range("h30") = Range("h30") + target
Case "$F$31"
If target.Address <> "$F$31" Then Exit Sub
Range("h31") = Range("h31") + target
Case "$F$32"
If target.Address <> "$F$32" Then Exit Sub
Range("h32") = Range("h32") + target
Case "$F$33"
If target.Address <> "$F$33" Then Exit Sub
Range("h33") = Range("h33") + target
Case Else
Exit Sub
End Select
End Sub