Counta & Countifs in VBA

[Danfrancozola]

Hello all,

I love using excel but really struggle with VBA - very hard to teach yourself - I am in the process of it.

Anyway, would anyone please be able to re-write the below formulas into VBA so I can assign and run them all with one button click.

Also can you please let me know the best place to find the info to continue my learning.

=COUNTA(Deviations!$F$8:$F$2200)
=COUNTIFS(Deviations!$J$8:$J$2100,"<16",Deviations!$F$8:$F$2100,"<>")
=COUNTIFS(Deviations!$J$8:$J$2100,"<25",Deviations!$F$8:$F$2100,"<>")-J11
=J10-J11-J12

Thank you so much in advance, this has been driving me crazy for days no so thought I should ask for some help!!

 

[Danfrancozola]

For the first I have managed to come up with this that seems to work, no idea what to do next though.

Sub Example_MONDAY1()

Dim rng_1 As Range
Dim op_cell As Range
Set rng_1 = Range("Deviations!F8:F2200")
Set op_cell = Range("H10")
op_cell = WorksheetFunction.CountA(rng_1)

End Sub

 

[Fluff]

How about

op_cell.Offset(, 1) = Application.CountIfs(rng_1.Offset(, 4), "<16", rng_1, "<>")