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

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

Please Login or Register  to view this content.

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

[davesexcel]

Welcome to the forum

Please attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

[Marc L]

As a VBA beginner starter :

Sub Demo1() 
    [H10] = [COUNTA(Deviations!$F$8:$F$2200)] 
    [H11] = [COUNTIFS(Deviations!$J$8:$J$2100,"<16",Deviations!$F$8:$F$2100,"<>")] 
    [H12] = [COUNTIFS(Deviations!$J$8:$J$2100,"<25",Deviations!$F$8:$F$2100,"<>")-J11] 
    [H13] = [J10-J11-J12] 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄