'Compute countif in column Range & combine if with count if

New here :)

I have 2 formulas that I need to transfer to VBA but unfortunately, it is not working well.

On Excel, my formula would be =countif(A$2:A2,A2) so I transferred that using this formula but everything is returning to 1. The rows didn't become dynamic at all and I want only the values to be displayed.

For a = 2 To lrow
    ws.Range("T" & a).Formula = "=CountIf(A$2&"":""&A2)"",""&A2)"
Next a

Next formula that I use in Excel is

=IF(COUNTIF(A:A,A2)>Q2,"Check","Ok")

This I have no idea how to even fill everything with it.

*Edit

I tried this formula in VBA:

For i = 2 to lrow

If Countif(ws.Range("A2:A" & lrow), "A2") > ws.Range("Q2:Q", & lrow) Then
ws.Range("T" & i).Value = "Check"
Else
ws.Range("T" & i).Value = "Ok"

End If

Next i

I hope there is someone out there who can help me.

Solution 1:^[1]

You could populate column T with your first formula with this line of code:

ws.Range("T2:T" & lrow).FormulaR1C1 = "=COUNTIF(R2C[-19]:RC[-19],RC[-19])"

I can't advise on your second formula unless you clarify where you want to write it...

Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution	Source
Solution 1	Spectral Instance

'Compute countif in column Range & combine if with count if

Solution 1:[1]

Sources

Related Questions

Solution 1:^[1]