if ve countif i birlikte kullanma

[09efe72]

ek'teki dosya da bulunan b2;e7 aralığındaki tarihler ve "A" ve "Ö" gibi değerler var. c10 hücresine yazdığım tarih b2:e7 aralığındaki tarih ile eşitse b2:e7 aralığındaki Ö harfini nasıl saydırabilirim. Şİmdiden teşekkürler.

 

[Ayşavkı]

Merhaba sayın 09efe72!!! sorunuzu doğru anladı isem; D12 Hücresine =EĞER($B$2:$E$7=C10;EĞERSAY($B$2:$E$7;D11)) formülünü C12 Hücresine =EĞER($B$2:$E$7=C10;EĞERSAY($B$2:$E$7;C11)) formülünü uygulamanızı ve formülleri girdikten sonra ise DİZİ formülüne çevirmenizi öneririm.saygılar!!!

 

[hamitcan]

Alternatif;

Sub test()
For Each hcr In [b2:e7]
If [c10] = hcr.Value Then
If [c11] = Cells(hcr.Row + 1, hcr.Column) Then s = s + 1
If [d11] = Cells(hcr.Row + 1, hcr.Column) Then k = k + 1
End If
Next
[c12] = s
[d12] = k
End Sub

 

[09efe72]

Merhaba sayın 09efe72!!! sorunuzu doğru anladı isem; D12 Hücresine =EĞER($B$2:$E$7=C10;EĞERSAY($B$2:$E$7;D11)) formülünü C12 Hücresine =EĞER($B$2:$E$7=C10;EĞERSAY($B$2:$E$7;C11)) formülünü uygulamanızı ve formülleri girdikten sonra ise DİZİ formülüne çevirmenizi öneririm.saygılar!!!

hocam öncelikle ilginize teşekkür ederim. dizi formülüne çevirmek nedemek biraz daha bilgi verebilirmisiniz. şu anda formülün içerisinde sayıyor ama hücrede #değer! olarak gösteriyor

 

[İhsan Tank]

ek'teki dosya da bulunan b2;e7 aralığındaki tarihler ve "A" ve "Ö" gibi değerler var. c10 hücresine yazdığım tarih b2:e7 aralığındaki tarih ile eşitse b2:e7 aralığındaki Ö harfini nasıl saydırabilirim. Şİmdiden teşekkürler.

Sorunuzda tek tarih var o tarihte başka giriş olacak sanırım.

=TOPLA.ÇARPIM(($B$2:$E$2=$C$10)*($B$3:$E$3=C$11))+TOPLA.ÇARPIM(($B$4:$E$4=$C$10)
*($B$5:$E$5=C$11))+TOPLA.ÇARPIM(($B$6:$E$6=$C$10)*($B$7:$E$7=C$11))

Bu formülü dener misiniz_?

 

[09efe72]

sorunuzda tek tarih var o tarihte başka giriş olacak sanırım.

=topla.çarpım(($b$2:$e$2=$c$10)*($b$3:$e$3=c$11))+topla.çarpım(($b$4:$e$4=$c$10)
*($b$5:$e$5=c$11))+topla.çarpım(($b$6:$e$6=$c$10)*($b$7:$e$7=c$11))

bu formülü dener misiniz_?

hocam topla.çarpım fomülünü bilmiyorum ama formülü yazınca istediğim sonuç çıkmadı. Benim istediğim alta (c10) hücresine yazılan tarihe bağlı olarak üst taraftaki tablodaki o tarihin altındaki "a" ve "ö" değerlerini sayması. Yani oraya herhangi bir tarih yazdığımda o tarihe ait "a" ve "ö" değerlerinin kaçartane olduğunu bulmak. Ilginize teşekkürler.

 

[İhsan Tank]

hocam topla.çarpım fomülünü bilmiyorum ama formülü yazınca istediğim sonuç çıkmadı. Benim istediğim alta (c10) hücresine yazılan tarihe bağlı olarak üst taraftaki tablodaki o tarihin altındaki "a" ve "ö" değerlerini sayması. Yani oraya herhangi bir tarih yazdığımda o tarihe ait "a" ve "ö" değerlerinin kaçartane olduğunu bulmak. Ilginize teşekkürler.

Dosyanızda bir örnek yazarak ekler misiniz_?

 

[09efe72]

dosyanızda bir örnek yazarak ekler misiniz_?

en üstteki ilk konuda var hocam dosya

 

[İhsan Tank]

en üstteki ilk konuda var hocam dosya

Ben formülü o dosyada yazdım zaten. Anlamadığım bir şey var. Sizin yazdığınız tarihte kaç tane A varsa sayılacak Ö varsa sayılmayacak mıydı benim verdiğim formül bu işi gayet güzel yapıyor ondan dolayı formülü uyguladığınız dosyayı ve görmek istediğiniz sonuçları istedim sizden ama siz zahmet edip göndermiyorsunuz bile ondan sonra yardım gelmeyince hemen serzenişte bulunursunuz niye yardım etmiyorsunuz diye biraz da sorunu kendinizde ararsınız artık.
Not : Kırmızı olan yazı genel olarak yazılmıştır şahsi angılanmasın

 

[09efe72]

Ben formülü o dosyada yazdım zaten. Anlamadığım bir şey var. Sizin yazdığınız tarihte kaç tane A varsa sayılacak Ö varsa sayılmayacak mıydı benim verdiğim formül bu işi gayet güzel yapıyor ondan dolayı formülü uyguladığınız dosyayı ve görmek istediğiniz sonuçları istedim sizden ama siz zahmet edip göndermiyorsunuz bile ondan sonra yardım gelmeyince hemen serzenişte bulunursunuz niye yardım etmiyorsunuz diye biraz da sorunu kendinizde ararsınız artık.
Not : Kırmızı olan yazı genel olarak yazılmıştır şahsi angılanmasın

hocam ben örnek dosya derken nasıl bir şey istediğimi sordunuz zanndettiğim için eklemedim yoksa zahmet etmekle alakası yok. yardım almak isteyen benim neden böyle bir saçmalık yapayım. verdiğiniz formülü yazınca ekteki sonuç çıkıyor. 8 tane "A" harfi saymalıyken 1 tana sayıyor.

 

[İhsan Tank]

hocam ben örnek dosya derken nasıl bir şey istediğimi sordunuz zanndettiğim için eklemedim yoksa zahmet etmekle alakası yok. yardım almak isteyen benim neden böyle bir saçmalık yapayım. verdiğiniz formülü yazınca ekteki sonuç çıkıyor. 8 tane "A" harfi saymalıyken 1 tana sayıyor.

Merhaba
Siz tüm harfleri toplamak istiyorsunuz.

Türkçe
=EĞER($C$10="";"";EĞERSAY($B$3:$E$7;C$11))
İngizlizce
=IF($C$10="";"";COUNTIF($B$3:$E$7;C$11))

Şeklinde dener misiniz_?
Yan tarafa çekmeyi unutmayın.

 

[09efe72]

merhaba
siz tüm harfleri toplamak istiyorsunuz.

türkçe
=eğer($c$10="";"";eğersay($b$3:$e$7;c$11))
ingizlizce
=ıf($c$10="";"";countıf($b$3:$e$7;c$11))

şeklinde dener misiniz_?
Yan tarafa çekmeyi unutmayın.

hocam bu formül countıf in yaptıgını yapıyor gibi geldi bana ama ben c10 hücresinde yazılan tarihin "ö" ve "a" harflerini saysın istiyorum.

Yani ekteki tabloya göre 01.09.2011 tarihinde 1 tane "a" 2 tane "b" çıkması lazım.

 

[İhsan Tank]

hocam bu formül countıf in yaptıgını yapıyor gibi geldi bana ama ben c10 hücresinde yazılan tarihin "ö" ve "a" harflerini saysın istiyorum.

Yani ekteki tabloya göre 01.09.2011 tarihinde 1 tane "a" 2 tane "b" çıkması lazım.

Topla.çarpım olarak verdiğim formülü deneseniz.
Topla.çarpım ~ Sumproduct

 

[09efe72]

hocam yardımlarınız için ekrar teşekkür ederim ama benim bu formülü kullanacağım dosya 551 satırlık bir excel dosyası bu formülü tek satıra sığdırmam mümkün değil birde diğer satırlara yazarken benim hata payım da artıyor. tek satırda apabileceğim bir formül yokmu acaba.

 

[İhsan Tank]

hocam yardımlarınız için ekrar teşekkür ederim ama benim bu formülü kullanacağım dosya 551 satırlık bir excel dosyası bu formülü tek satıra sığdırmam mümkün değil birde diğer satırlara yazarken benim hata payım da artıyor. tek satırda apabileceğim bir formül yokmu acaba.

Merhaba
Eki inceler misiniz_?
Butona Tıkladığınızda sayım yapmaya başlıyor.

 

[09efe72]

hocam sizin macro kodunu farklı bir excel dosyasına aktarmak mecburiyetinde olduğum (veri çok fazla olduğu için)için kodda gerekli değişiklikleri yaptım ama çalıştırdığımda "Run-time error '13' type mismatch uyarısı veriyor.

H1 : G320
H2 : G321
I2 : H321
H3 : G329
I3 : H329 değişiklikleri yaptım.














Sub tarihli_sayım_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim asi, kral
trabzonspor = MsgBox(Format(Range("G320"), "dd.mm.yyyy") & vbLf _
& "Tarihli Sayıma Başlıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
trabzonspor = 0: kaplan = 0
For ts = 2 To Cells(Rows.Count, "A").End(xlUp).Row
For asi = 2 To 5
If CDate(Cells(ts, asi)) = CDate(Range("G320")) And _
Cells(ts + 1, asi) = Range("G321") Then
kaplan = kaplan + 1
Range("G329") = kaplan
ElseIf CDate(Cells(ts, asi)) = CDate(Range("G320")) And _
Cells(ts + 1, asi) = Range("H321") Then
trabzonspor = trabzonspor + 1
Range("H329") = trabzonspor
End If
Next
ts = ts + 1
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & " Sürede" & vbLf _
& Format(Range("G320"), "dd.mm.yyyy") & " Sayımı" & vbLf _
& "Gerçekleştirdim", , "Bitiş"
MsgBox Format(Range("G320"), "dd.mm.yyyy") & " Tarihinde" & vbLf _
& "Ö " & kaplan & " Adet var" & vbLf _
& "A " & trabzonspor & " Adet var", vbInformation, "Bilgi"
End Sub

 

[İhsan Tank]

Dosya ekleyin.

 

[09efe72]

hocam internet bil. ile çalıştığımız iş bilgisayarı farklı ve cd, mem.stick vs imkanı olmadığı için dosyayı buraya aktaramıyorum ama hemen aynı satırlarda bir tane rnek dosya yapıp koyuyorum.

 

[09efe72]

hocam formun örneğini yaptım elimdeki form la yaptığım örnek form un yerleşim şekli bire bir aynı oldu.

 

[İhsan Tank]

hocam formun örneğini yaptım elimdeki form la yaptığım örnek form un yerleşim şekli bire bir aynı oldu.

İyi güzelde nerede toplam alınacak onu yazmamışsınız.