koşullu sayma

[mmuratakgul]

Arkadaşlar günaydın,

Benim problemim şöyle. sayfa1 de firma isimleri var. Bu firma ismini sayfa2 de A kolonunda arıyacak bulduğunda eğer C kolonunda H varsa sayacak E varsa saymayacak. Bu tarz birşey yapılabilir mi?

 

[Korhan Ayhan]

Selamlar,

Firma isminizin A1 hücresinde olduğunu varsayarsak B1 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=TOPLA.ÇARPIM((Sayfa2!$A$1:$A$1000=A1)*(Sayfa2!$C$1:$C$1000="H"))

 

[mmuratakgul]

teşekkürler modüle

Function notquoted(aaa)
Dim i, count As Integer
count = 0
Set s2010 = Worksheets("2010")
Set data = Worksheets("data")
For i = 4 To s2010.Range("H4:H65536").End(xlDown).Row
If aaa = s2010.Cells(i, 8) And s2010.Cells(i, 11) = "H" Then
count = count + 1
End If
Next
notquoted = count

End Function

yazarak hallettim.

 

[Korhan Ayhan]

Selamlar,

Kendinizin çözüm bulması çok güzel. Fakat bu işlem için bence makroya gerek yok. Zaten yerleşik işlevlerle halledebiliyoruz.