Simple CountIf VBA

[beginvbaanalyst]

Hello,

I'd like to transfer this macro recorder into an unlimited cell countif in cell E2.
I don't see where my value in "a2" is being recorded?
Range("E2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=COUNTIF(C[2],RC[-4])"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E159")
Range("E2:E159").Select

 

[Fluff]

Can you please explain what you are trying to do?
At the moment your code is putting a countif formula into E2:E159

 

[beginvbaanalyst]

I would like the VBA to do a countif as
=COUNTIF(G:G,E2)
The data would be put into "F2" and then dropped down to the last filled cell.

 

[Fluff]

How about

   Range("F2:F" & Range("G" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=countifs(c[1],rc[-1])"

 

[beginvbaanalyst]

How about

   Range("F2:F" & Range("G" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=countifs(c[1],rc[-1])"

Hi Fluff,

For some reason it's just inserting "countifs(c[1],rc[-1])" into each cell.

What's the reason this could be happening?
I'm trying to check to see if the data in column G is in Column E using F2 as my start point.

 

[Fluff]

Can you please post your code using code tags, the <vba/> icon in the reply window.
Also check that column F isn't formatted as text.

 

[beginvbaanalyst]

Can you please post your code using code tags, the <vba/> icon in the reply window.
Also check that column F isn't formatted as text.

 Range("F2:F" & Range("G" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "COUNTIF(C[1],RC[-1])"

I can confirm Column F isn't formatted as text.

 

[Fluff]

You've removed the = sign from the formula.

 

[beginvbaanalyst]

You've removed the = sign from the formula.

I stared at the screen for 10 minutes straight trying to find that.
Thank you sir!

 

[Fluff]

You're welcome & thanks for the feedback.