How to count number of times a cell is changed in Excel?

For counting number of times a cell is changed in Excel, this article can help you.

Count number of times a cell is changed with VBA code

Count number of times a cell is changed with VBA code

Amazing! Using Efficient Tabs in Excel Like Chrome, Firefox and Safari!

Save 50% of your time, and reduce thousands of mouse clicks for you every day!

Please do as follows to count number of times a cell is changed in Excel.

1. In the worksheet you need to count total changes of a specified cell, right-click the sheet tab, and then click View Code from the context menu. See screenshot:

2. In the opening Microsoft Visual Basic for Applications window, please copy and paste below VBA code into the Code window.

VBA code: Count number of times a cell is changed in Excel

Dim xCount As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If Target = Range("B9") Then
        xCount = xCount + 1
        Range("C9").Value = xCount                                     
    End If
    Application.EnableEvents = False
    Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
    If Not xRg Is Nothing Then
        xCount = xCount + 1
        Range("C9").Value = xCount
    End If
    Application.EnableEvents = True
End Sub

Note: In the code, B9 is the cell you need to count its changes, and C9 is the cell to populate the counting result. Please change them as you need.

From now on, when changes made in cell B9, its total number of changes will be superposed and populated in cell C9 automatically.

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Read More... Free Download... Purchase...

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
Open and create multiple documents in new tabs of the same window, rather than in new windows.
Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!

Read More... Free Download... Purchase...

12 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest ( Sign Up? )

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Mason · 1 years ago
Can anyone help me achieve the coding for Counting the time a cell has been changed to "Revalidate" and can that be applied down the entrieity of a column.
- Reply
To post as a guest, your comment is unpublished.
JediTrader · 1 years ago
Team,

When I tried using :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range, xCell As Range
Dim xSRg, xRRg As Range
Dim xFNum As Long

Set xSRg = Range("B9:B1000")
Set xRRg = Range("C9:C1000")

carefully changing the Range and Target cells vis a vis P2:P200 and X2:X200 respectively, I dont the change-count in X Column despite myself trying to change cells across multiple rows across P2:P200.

Any help would be greatly appreciated.

Regards
JT
- Reply
To post as a guest, your comment is unpublished.
cherias · 1 years ago
Hello All,

The solution as provided under "Count Number Of Times A Cell Is Changed With VBA Code" is good if we are only tracking changes to ONE CELL. Please suggest, what modifications are needed, if the tracking is to be done for multiple cells. In case of multiple cells, the incremental counter should appear next to the cell for which the change in value is being tracked.
- Reply
- To post as a guest, your comment is unpublished.
  Shiju · 1 years ago
  
  Looking forward for help and assistance to have a specific VBA code, which can be applied to multiple cells in one worksheet.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Shiju,
  Please try the below VBA code. Thanks for commenting.
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim xRg As Range, xCell As Range
  Dim xSRg, xRRg As Range
  Dim xFNum As Long
  
  Set xSRg = Range("B9:B1000")
  Set xRRg = Range("C9:C1000")
  
  Application.EnableEvents = False
  On Error Resume Next
  For xFNum = 1 To xSRg.count
  If Target = xSRg.Item(xFNum) Then
  xRRg.Item(xFNum).Value = xRRg.Item(xFNum).Value + 1
  Application.EnableEvents = True
  Exit Sub
  End If
  Next xFNum
  Application.EnableEvents = True
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
lewiskj · 2 years ago
Did you figure this out. I too am interested in this for checking multiple cells. Haven’t tried it yet.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Kevin,
  
  The following code can help you solving the problem. Thanks for your comment.
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim xRg As Range, xCell As Range
  Dim xSRg, xRRg As Range
  Dim xFNum As Long
  
  Set xSRg = Range("B9:B1000")
  Set xRRg = Range("C9:C1000")
  
  Application.EnableEvents = False
  On Error Resume Next
  For xFNum = 1 To xSRg.count
  If Target = xSRg.Item(xFNum) Then
  xRRg.Item(xFNum).Value = xRRg.Item(xFNum).Value + 1
  Application.EnableEvents = True
  Exit Sub
  End If
  Next xFNum
  Application.EnableEvents = True
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Jan · 2 years ago
Thank you very much ! This works great.

But how do you get the same function/rule to work for a range of cells, along an entire column, for example?

I have a list of my business' contacts on different rows, with their contact details in different columns, and I want a add a column that registers and counts the number of times a given cell along each row is changed. The code you gave works great, but only for one cell at a time !

I'm new to VBA, so I would greatly appreciate your support.

I tried adding a range of cells into the code, so instead of "B9" and "C9", as given in the example above, I played around with variations like "B:B", "C:C", or "B9:B1000" and "C9:C1000", without any success.

Thanks in advance,
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Jan,
  Please try the below VBA code. Hope it can help. Thanks for your comment.
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim xRg As Range, xCell As Range
  Dim xSRg, xRRg As Range
  Dim xFNum As Long
  
  Set xSRg = Range("B9:B1000")
  Set xRRg = Range("C9:C1000")
  
  Application.EnableEvents = False
  On Error Resume Next
  For xFNum = 1 To xSRg.count
  If Target = xSRg.Item(xFNum) Then
  xRRg.Item(xFNum).Value = xRRg.Item(xFNum).Value + 1
  Application.EnableEvents = True
  Exit Sub
  End If
  Next xFNum
  Application.EnableEvents = True
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  RedDragon · 5 months ago
  
  Hi crystal,
  
  I am having an issue with the code. If the cell for example, if I enter
  
  B9 as "Apple" then it increments C9 by 1
  B10 as "Ball" then it increments C10 by 1
  However, if I enter
  B11 as "Apple" again then C9 will be incremented by 1, and not C11
  
  It seems like it increments the row with the 1st occurrence of the value and not the actual edited row.
  
  Is there a way to just increment the cell in the same row and not a previous row?
  
  Thanks.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Jonathan · 2 years ago
  
  Hi Crystal,
  
  This is brilliant, on my matrix I have used this on one of the columns but I have struggled to duplicate this across multiple columns. Do you have a solution?
  
  Thanks in Advance
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Tom Cappelletti · 1 years ago
  
  Could you provide the entire code set? I'm assuming Crystal's code gets integrated with other code? Thanks
  
  Reply