Need a macro instead of SUMIF & COUNTIFS formula

Hi
I have 400 csv file that they are output of a program and now I need calculate something on them
first of all I find a code to import all of my csv to an excel file
then by using SUMIF and COUNTIF I calculate my needs But I Need to know if there are better way

I Used Something like this

=IF(J2=$E$2,COUNTIFS($A$3:$A$38,$A$43,E3:E38,"c")/(COUNTIFS($A$3:$A$38,$A$43,E3:E38,"c")+COUNTIFS($A$3:$A$38,$A$43,E3:E38,"w")))

and

=IF(F2=$F$2,SUMIF($A$3:$A$38,$A$44,F3:F38))

ExcelForum.xlsx
and as you see in the attached file the output is not suitable for bigger file
is there any better solution ?

thank you in advanced
Keyvan,

Hi Keyvan

It's not apparent to me what you wish to SUM nor where you wish to put it but you'll need this kind of Code. Perhaps this'll get you started.

Sub keyvan()
    Dim i As Long, j As Long, x As Long, lColumn As Long

    Range("A3").Select

    lColumn = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    x = ActiveCell.CurrentRegion.Rows.Count
    For i = 2 To lColumn Step 5
        '        Dim timecell As String
        '        timecell = x & "," & i
        '        timecell = i & x
        Cells(x, i).Offset(2).Formula = "=SUMIF($A$3:$A$38,""A""," & Range(Cells(3, i), Cells(38, i)).Address & ")"
        Cells(x, i).Offset(3).Formula = "=SUMIF($A$3:$A$38,""B""," & Range(Cells(3, i), Cells(38, i)).Address & ")"
        Cells(x, i).Offset(4).Formula = "=SUMIF($A$3:$A$38,""C""," & Range(Cells(3, i), Cells(38, i)).Address & ")"
        '                Cells(x, i).Offset(2).Formula = "=SUMIF($A$3:$A$38,Positive,i&3 : i&38)"
        '                Range(timecell).Offset(2).Formula = "=SUMIF($A$3:$A$38,Positive,i&3 : i&38)"
        '                Range(timecell).Offset(3).Formula = "=SUMIF($A$3:$A$38,Negative,i&3 : i&38)"
        '                Range(timecell).Offset(4).Formula = "=SUMIF($A$3:$A$38,Neutral,i&3 : i&38)"
    Next i

You're welcome...glad I could help. Thanks for the Rep.

You're welcome
just another question
could you please help me about this formula too ?!

=COUNTIFS($A$3:$A$38,""Positive"",D3:D38,'c')/(COUNTIFS($A$3:$A$38,Neutral,D3:D38,'c')+COUNTIFS($A$3:$A$38,Neutral,D3:D38,'w'))

Thank you again

P.S. absolutely the firs part is enough

COUNTIFS($A$3:$A$38,""Positive"",D3:D38,'c')

Edit : I think I solve it

=COUNTIFS($A$3:$A$38,""Positive""," & Range(Cells(3, j), Cells(38, j)).Address & ",""c"")

Hi Keyvan

Good for you

Edit : I think I solve it

You're welcome...glad I could help. Thanks for the Rep.