Countif in VBA wont work

[rubenidas]

Hi,
i am having a little trouble with my vba code. I seem to have an error in my countif vba formula. I need B2 to have the formula for countif on range D2 thru last row. The criteria will be D2 (for B2)...D3 (for B3)...D4 (for B4)...and so on.

Range("B1").Select
    ActiveCell.FormulaR1C1 = "CountIf"
    Range("B2").Formula = "=COUNTIF(D2:D"&lastrow",D2)"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B" & lastrow)

 

[Joe4]

You are missing an & in your formula:

Range("B2").Formula = "=COUNTIF(D2:D" & lastrow [COLOR=#ff0000][B]&[/B][/COLOR] ",D2)"

 

[rubenidas]

You are missing an & in your formula:

Range("B2").Formula = "=COUNTIF(D2:D" & lastrow [COLOR=#ff0000][B]&[/B][/COLOR] ",D2)"

Ahhhh! such a small error that caused me a big headache.. Thanks @Joe4 !!

 

[Joe4]

Ahhhh! such a small error that caused me a big headache.. Thanks @Joe4 !!

You are welcome!
The devil is often in the details!