tekrarlayan metin sayma

[entente]

ekli dosyamda koyu (bold) karakterle yazılan şoförlerin adları, onların altındaki daha küçük isimlerde taşıdıkları insanların adları.ben sayenizde eğersay formülüyle bir şoförün ogün kaç giriş ve çıkış yaptığını hesaplıyabiliyorum ancak her bir şoforun ogun toplamda kaç kişi taşıdığını hesaplıcak formülü bulamadım. yardımlarınıza ihtiyacım var hergün bunları toplamaktan sıkıldım

 

[Korhan Ayhan]

Selamlar,

İstediğiniz işlemi yerleşik işlevlerle yapmak zor görünüyor. Bu sebeple size kullanıcı tanımlı fonksiyon hazırladım. Yani çözüm makro ile yapılmıştır. Ekteki örnek dosyayı incelermisiniz.

Kullanılan fonksiyon;

Option Explicit
 
Private Function YOLCUSAY(Kriter As Range, Aralık As Range)
    Dim Hücre As Range, X As Byte
    
    For Each Hücre In Aralık
        If Hücre.Value = Kriter Then
            If Hücre.Font.Bold = True Then
                For X = 1 To 10
                    If Cells(Hücre.Row + X, Hücre.Column).Font.Bold = False And Cells(Hücre.Row + X, Hücre.Column) <> "" Then
                        YOLCUSAY = YOLCUSAY + 1
                    Else
                        GoTo Devam
                    End If
                Next
            End If
        End If
Devam: Next
End Function

Hücrede kullanım şekli;

[B]=YOLCUSAY([COLOR=red]Kriter[/COLOR];[COLOR=blue]Aralık[/COLOR])[/B]

 

[entente]

teşekkür ederim

gerçekten beni büyük bir külfetten kurtardınız, teşekkür ederim.
bu kodları nasıl makro yapıcağımı yazarsanız yada forumdada arayabilirim.

 

[entente]

eşleşme

toplamalarda bir sorun var.zahmet olmazsa tekrar inceleyip yardımcı olurmusunuz. birde formül alanını genişlettiğimde (yani B360 alanını B:3D70) sorun çıkar mı? ve düzenlemeleri makro kısmından mı yapmalıyım. İlginize tekrar teşekkürler

 

[Korhan Ayhan]

Selamlar,

Sorun yaşadığınız bir dosyayı ekleseydiniz inceleme fırsatımız olabilirdi. Ayrıca formül alanını dilediğiniz gibi genişletebilirsiniz bir sorun olmaz.

 

[entente]

Çok teşekkürler

kendi hatamdan olsa gerek, tekrar vakit ayırdığınız için sağolun