İşlem adedi sayma.

[sward175]

Herkese , Günaydınlar,

Belirli aralıktaki işlem adedini saymak istiyorum.
Örnek üzerinde yapmak istediğimi açıkladım.
Saygılarımla,
sward175

 

[Korhan Ayhan]

Merhaba,

Dosyanızda bir açıklamaya yok!

 

[sward175]

Korhan Bey, Günaydın.
İlginize teşekkür ederim.
Hata ile başka dosya eklemişim. Doğru dosyayı ekledim.
Saygılarımla.
sward175

 

[Korhan Ayhan]

Şimdi de dosya eklemeyi unutmuşsunuz!

 

[sward175]

Korhan Bey,
Çok Çok özür diliyorum.
Kaydet dememişim, Sonunda oldu !!
Saygılar.

 

[Korhan Ayhan]

Bildiğim kadarıyla istediğiniz işlem için normal fonksiyonlar yetersiz kalacaktır.

Değerler arasında hep "+" sembolümü kullanılıyor.

 

[sward175]

Korhan Bey,
Hücreler gün bazında ve 2, hatta 3 rakam bir hücrede toplanıyor.
Bu bağlamda böyle bir istekte bulundum.
Olmuyor ise yapacak bir şey yok, Yine de ilginize Teşekkür ederim.
Saygılarımla,
sward175

 

[Korhan Ayhan]

Olmuyor demedim ki, sadece fonksiyonlar ile çözümü olmayabilir dedim.

Makro ile yazılacak fonksiyon ile değerler saydırılabilir.

"+" sembolü olan değerleri sayar. Farklı sembollerde sonuç vermez. Koda ekleme yapmak gerekir.

Function K_SAY(Alan As Range, Optional Ayıraç As String = "+")
    Dim Veri As Range, Data As Variant, X As Integer
   
    Application.Volatile True
   
    For Each Veri In Alan
        Data = Split(Veri.Formula, Ayıraç)
        For X = 0 To UBound(Data)
            K_SAY = K_SAY + 1
        Next
    Next
End Function

 

[sward175]

Korhan Bey,
Kodu uygulayıp düğmeye bağladım, Fakat beceremedim galiba sonuç vermiyor.
Hatayı nerede yapıyorum acaba ?
Saygılarımla.
sward175

 

[YUSUF44]

Sayın Korhan Bey, kullanıcı tanımlı bir fonksiyon hazırlamış. Kodları bir modüle kopyalayın. Sonuıç alacağınız hücreye

=K_SAY(D4:N4;"+")

Şeklinde formül yazarak kullanabilirsiniz.

 

[sward175]

YUSUF44, Merhaba,
Ekte ki gibi yapıyorum ama maalesef olmuyor,
İlginizi rica ederim.
saygılarımla,
sward175

 

[YUSUF44]

Kodları sayfanın kod bölümüne yapıştırmışsınız. Modüle yapıştırmanız gerekir.

 

[sward175]

YUSUS44,
Çok teşekkür ederim. Sağ olun.
Gayet güzel çalışıyor.
sward175

 

[YUSUF44]

Teşekkürü bana değil sayın Korhan Bey'e etmemiz gerekiyor.

 

[sward175]

Korhan Bey,
YUSUF44,
Ayrı ayrı teşekkürler ederim.
sward175