Seçime göre değer toplama

[betoncu]

C2 hücresinde aile mahkemesine ait sonuçlanan ve sonuçlanmayan dosya sayısını sıra ile e2 ve f2 hücrelerine nasıl yazdırabiliriz?

Dosya ektedir..

 

[Merhum İdris SERDAR]

C2 hücresinde aile mahkemesine ait sonuçlanan ve sonuçlanmayan dosya sayısını sıra ile e2 ve f2 hücrelerine nasıl yazdırabiliriz?

Dosya ektedir..

Dosyanız ekte.

.

 

[Orion1]

Sizin için bir ktf hazırladım.
Kullanımını dosya içersinde anlattım.
Dosyanız ekte.

Function mahkeme(alan As Range, olcut As Byte)
Dim kriter As String, hcr As Range, say As Long
If olcut = 0 Then
    kriter = "Dosya Sonuçlanmadı"
    ElseIf olcut = 1 Then kriter = "Dosya Sonuçlandı"
End If
For Each hcr In alan
    If Right(hcr.Value, 14) = "Aile Mahkemesi" Then
        If hcr.Offset(0, 1).Value = kriter Then say = say + 1
    End If
Next
mahkeme = say
End Function

 

[betoncu]

Rica etsem dosyayı sıkıştırmadan gönderebilirmisiniz.

 

[betoncu]

fORMÜL İLE BU SORUNU ÇÖZEMEZMİYİZ?

 

[Orion1]

Sıkıştırmadan yoldım ktfyi

 

[betoncu]

Dosyayı yükleyemiyorum. Rica etsem makro ile çözmek yerine formül ile çözebilirmisiniz?

 

[Merhum İdris SERDAR]

Dosyayı yükleyemiyorum. Rica etsem makro ile çözmek yerine formül ile çözebilirmisiniz?

Dosyanız ekte.

.

 

[Orion1]

Dosyayı yükleyemiyorum. Rica etsem makro ile çözmek yerine formül ile çözebilirmisiniz?

Verdiğm KTF kodlarını bir modüle yapıştırınız.Ve formülleri giriniz.
E2 hücresine
=mahkeme($C$2:$C$1000;1)
F2 hücresine
=mahkeme($C$2:$C$1000;0)
Yazınız.

 

[betoncu]

Anladığım kadarıyla ktf kodları olmadan bu işi çözemeyeceğiz. Üzüldüm. Direk formül ile çözebilseydik güzel olurdu.
Teşekkür ederim...

 

[Merhum İdris SERDAR]

Anladığım kadarıyla ktf kodları olmadan bu işi çözemeyeceğiz. Üzüldüm. Direk formül ile çözebilseydik güzel olurdu.
Teşekkür ederim...

Benim eklediğim dosyayı bakmadınız herhalde...

http://www.excel.web.tr/attachment.php?attachmentid=53316&d=1228141821

.

 

[betoncu]

Sn. yurttaş sizede ayrıca teşekkür ederim...