If in VBA

[eng_jamal]

hello :
I would ask you how can i write code vba for following:
I would to count within range(g3:g1000) which contain certain date and count range(p31000) which contain the "4130"
and put the results in cells in another sheets

I wrot this but don't work:
if range("g3:g1000")=date and range("p31000")="4130"
cells(2,2)=count(????) how to write this

 

[L. Howard]

Try this.

Howard

=SUMPRODUCT((ISNUMBER($G$3:$G$1000)*($P$3:$P$1000=4130)))

edit: overlooked VBA part

 

[Fluff]

Another option

Sub myCountif()

    Range("B2").Value = [COUNTIFS(G3:G1000,">=1/1/1900",P3:P1000,4130)]

End Sub

 

[oldbrewer]

for j= 3 to 1000
if cells(j,7)=cells(1,26) and cells(j,16)=4130 then sum=sum+1
next j
cells(2,2)=sum

the date is in Z1