tek yada çift sayıları ayrı ayrı saymak

[dawner]

forumu oldukça karıştırdım ancak net bir cevap bulamayınca ustaların affına sığınarak şu soruyu sormak istiyorum. cevap verecek arkadaşlara şimdiden teşekkür ediyorum.
bir excel sayfasındaki tek rakamları hangi formülle bulabilirim. örnek olarak önümde şöyle bir liste var
2007 yılı
1,2,7,34,25,156,......1000
2008 yılı
4,5,9,13,55,,67,68.........500
2009 yılı
1,2,5,7,80,112,.........1300
amacım bu listedeki tek sayıların kaç tane olduğun bulmak boş hücre bulunması sorun teşkil edermi hangi formülü yazarsam tek sayıların(ya da çift sayıların) kaç tane olduğunu tespit edebiliriö

 

[Ömer]

Merhaba,

Bir çok yolu var. Bir tanesini yazayım..

A1:A10 aralığı için.

Tek sayılar için;

=TOPLA.ÇARPIM((((A1:A10)/2)<>NSAT((A1:A10)/2))*(A1:A10<>""))

Çift sayılar için;

=TOPLA.ÇARPIM((((A1:A10)/2)=NSAT((A1:A10)/2))*(A1:A10<>""))

.

 

[Orion1]

Bende KTF yaptım.
Fonksiyon kodlarını standart bir modüle yapıştırınız.
Kullanılışı:
tek sayılar için:

=tek_cift(A1:A28;1)

çift sayılar için:

=tek_cift(A1:A28;0)

Function tek_cift(alan As Range, tekcift As Byte) As Long
Dim hcr As Range, say As Long
For Each hcr In alan
    If hcr.Value <> "" And hcr.Value Mod 2 = tekcift Then say = say + 1
Next
tek_cift = say
End Function

 

[dawner]

verilen formüllerde bir sütundaki tek ve çftlerin toplamı yapılmış bendek iexcel belgesinde 10 sütun ve 152 satı var. yılları gösteren boşlukları sildim dosya aşağıdaki gibidir.

 

[Orion1]

verilen formüllerde bir sütundaki tek ve çftlerin toplamı yapılmış bendek iexcel belgesinde 10 sütun ve 152 satı var. yılları gösteren boşlukları sildim dosya aşağıdaki gibidir.

=tek_cift(A1:A28;1)
Yanlış söylüyorsunuz.En azından benim fonksiyonum için.
Bakın yukarıda A1:A28 yerine istediğiniz aralığı yazarak o aralıkata sonucu alabilirsiniz.

 

[Merhum İdris SERDAR]

verilen formüllerde bir sütundaki tek ve çftlerin toplamı yapılmış bendek iexcel belgesinde 10 sütun ve 152 satı var. yılları gösteren boşlukları sildim dosya aşağıdaki gibidir.

.

Dosyanız ekte.

.

 

[Ömer]

Alternatif olsun.

Tek sayılar için;

=TOPLA.ÇARPIM(ESAYIYSA(1/(MOD(A1:L152;2)=[COLOR=red][B]1[/B][/COLOR]))*(A1:L152<>""))

Çift sayıları bulmak için formülde kırmızı ile işaretli 1 sayısının yerine 0 yazmanız yeterli olacaktır..

.

 

[dawner]

Arkadaşlar ilginiz için teşekkür ediyorum. özellikle ömer Bey'in formülü işime yaradı formül satırına kopyaladım sonucu verdi. Tekrar teşekkür