Turn the Code for each cell in the selected Columns

[danielpt78]

Hi,

Could you please help me, I have a counter that counts each time that the cell A2=D2 but i would like to recreate this for the whole columns. The following code is this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C2") = Range("D2") Then
Application.EnableEvents = False
Range("K2") = Range("K2") + 1
Application.EnableEvents = True
End If
End Sub

Thanks for the help!!

[protonLeah]

Private Sub CountDups()
    Dim LastRow         As Long, _
        RefCol          As String, _
        CmprCol         As String, _
        SumProductArgs  As String
        
    LastRow = Range("C2").CurrentRegion.Rows.Count + 1
    RefCol = "C2:C" & LastRow
    CmprCol = "D2:D" & LastRow
    SumProductArgs = "=SUMPRODUCT(--(" & RefCol & "=" & CmprCol & "))"
    Range("K2").Value = Evaluate(SumProductArgs)
End Sub

[protonLeah]

duplicate post

[danielpt78]

Hi, this code works however I wanted it to have a counter in each cell. For example if C2=D2 two Times K2=2 and if C3=D3 One time then K3=1.

Is it possible, thanks for the Help!!

[Richard Buttrey]

Hi, this code works however I wanted it to have a counter in each cell. For example if C2=D2 two Times K2=2 and if C3=D3 One time then K3=1.

Is it possible, thanks for the Help!!

Is it possible, thanks for the Help!![/QUOTE]

Ben has pointed out that this is a duplicate thread. You are allowed only ONE thread per issue here.

Please see Forum Rule #5 about thread duplication.

I am closing this thread, but you may continue here in the original thread: https://www.excelforum.com/excel-pro...ml#post5646146