VBA to add CountA formula style

[yukioh]

Hi all friends and experts,

I would like to ask your support,
I have some data, need to add VBA COUNTA formula, by count row in column D
also show CountA formula in the cell


Screenshot 2022-05-21 143338.png

[Marc L]

According to your attachment a VBA demonstration as a beginner starter :

Sub Demo1() 
    With Sheet1.UsedRange 
        .Cells(.Rows.Count, 6).Formula = "=COUNTA(" & .Columns(4).Address & ")-1" 
    End With 
End Sub  

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

[yukioh]

Hi Marc L
thank you for your code,

May I ask more, It's possible to add Total formula @ Column J with the same code?

[Marc L]

Yes you can ! Just duplicate the codeline and update it, no difficulty …

For more help if really necessary what is the formula you manually use ?

[yukioh]

I use =Sum(xx:xx)
Could you please help me on that...

[Marc L]

According to your attachment another beginner level VBA demonstration :

Sub Demo2() 
    With Sheet1.Cells(Rows.Count, 1).End(xlUp).CurrentRegion.Rows 
        .Cells(.Count, 6).Formula = "=COUNTA(D" & .Row + 1 & ":D" & .Row + .Count - 2 & ")" 
        .Cells(.Count, 12).Formula = "=SUM(J" & .Row + 1 & ":J" & .Row + .Count - 2 & ")" 
    End With 
End Sub  

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