Hi
The question is not clear.
may be.....I tried writing a code for each column from BR6 to DP20 to go to each section Cell and column starting at GU3 . One of the members at excel.com a while back show me how to write a on- going calculation to go To one cell , which is what I had asked for and it worked. But trying to write it for more than one cell...
Code:Private Sub Worksheet_Change(ByVal Target As Excel.Range) '//if the target range is in anywhere on range "BY6:DP20" If Not Intersect(Target, Range("BY6:DP20")) Is Nothing Then With Target If IsNumeric(.Value) Then Application.EnableEvents = False Range("GU3").Value = Range("HB3").Value + 1 Range("GB4").Value = Range("HB4").Value + 1 Range("GB5").Value = Range("HB5").Value + 1 Range("GB6").Value = Range("HB6").Value + 1 Range("GB12").Value = Range("HB12").Value + 1 Range("GB13").Value = Range("HB13").Value + 1 Range("GB14").Value = Range("HB14").Value + 1 Range("GB15").Value = Range("HB15").Value + 1 Application.EnableEvents = True End If End With End If End Sub




Reply With Quote
Bookmarks