2 Hücre Değerini Saydırabilmek

[giwara]

Merhaba

Elimizde tarihler ve sayılar şeklinde 2 tane sütun bulunuyor.

2017 1
2017 1
2017 2
2016 1
2016 2
2016 3

Şeklinde bulunuyor. 2017 ile 1'in yan yana olduğu hücreleri sayıp 2 sonucunu yazdırabileceğimiz bir formül var mıdır?

Teşekkürler şimdiden.

 

[çıtır]

Deneyiniz.

TOPLA.ÇARPIM((A1:A6=2017)*(B1:B6=1))

 

[TanerSaydam]

Formülü bilmiyorum ama makrosu şu

Private Sub CommandButton1_Click()
son = Range("A65652").End(3).Row

y = 0
For a = 1 To son
If Range("A" & a).Value = 2017 And Range("b" & a).Value = 1 Then
y = y + 1
End If
Next a

Range("C2").Value = y
End Sub

 

[giwara]

Sütunun bazı yerlerinde metinler bulunuyor. O zaman sıkıntı çıkmaya başlıyor. Örneğin;

A T
A T
B T
A Y
C Y
D T

A ile Y nin olduğu satırları saydırmamız gerekiyor. Ve 1 yazdırmamız lazım. O zaman sıkıntı çıkıyor.

 

[Ömer BARAN]

Sütunun bazı yerlerinde metinler bulunuyor. O zaman sıkıntı çıkmaya başlıyor. Örneğin;

A T
A T
B T
A Y
C Y
D T

A ile Y nin olduğu satırları saydırmamız gerekiyor. Ve 1 yazdırmamız lazım. O zaman sıkıntı çıkıyor.

Merhaba.

Aranan/sayılacak şey METİN ise bunları aşağıdaki gibi ÇİFT TIRNAK ARASINDA yazarak, formülü aşağıdaki gibi değiştirin.
.

=TOPLA.ÇARPIM((A1:A6=[B][COLOR="Red"]"A"[/COLOR][/B])*(B1:B6=[B][COLOR="red"]"Y"[/COLOR][/B]))

 

[YUSUF44]

Alternatif:

=ÇOKEĞERSAY(A1:A16;"A";B1:B16;"Y")

=ÇOKEĞERSAY(A1:A16;2017;B1:B16;1)

=ÇOKEĞERSAY(A1:A16;A1;B1:B16;B1)