Add 1 to cell when another cell changes
 

How do I add 1 to cell "A1" if cell "B1" or "C1" changes?

Add 1 to cell when another cell changes
 

Right-click the sheet tab and choose "View Code". In that module, paste the
following code:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrH
If (Target.Address = Range("B1").Address) Or _
(Target.Address = Range("C1").Address) Then
Application.EnableEvents = False
Range("A1").Value = Range("A1").Value + 1
End If
ErrH:
Application.EnableEvents = True
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)



"Maddoktor" wrote in message
...
How do I add 1 to cell "A1" if cell "B1" or "C1" changes?

Add 1 to cell when another cell changes
 

Thanks Chip.

Would I need to change "Or" with "And" if I wanted A1 to increment by 1
if B1 and C1 both needed to be changed?

What I am trying to do is:

A1 = 0000
B1 = Blue
C1 = Large

I also have a button that will save the worksheet to an individual file
and print the worksheet.

I would like for the user to select a color ("B1") and size ("C1") and
then print out the requisition using the print button. The print button
should only be enabled once "B1" and "C1" have been modified and then
becomes disabled once again after the requisition has been printed.

Every time the user changes cells "B1" and "C1" and presses the print
button, then A1 is incremented by one prior to the requisition being
printed, else it does not increment and the print button is disabled.

Thanks in advance.



Chip Pearson wrote:
Right-click the sheet tab and choose "View Code". In that module, paste the
following code:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrH
If (Target.Address = Range("B1").Address) Or _
(Target.Address = Range("C1").Address) Then
Application.EnableEvents = False
Range("A1").Value = Range("A1").Value + 1
End If
ErrH:
Application.EnableEvents = True
End Sub