Aynı değeri taşıyan ve yan yana bulunan hücre adedini bulmak

[Jeeday]

Bir satırda yan yana bulunan birçok verinin içinde aynı olan hücre adedini saydırmak istiyorum...

Detay ektedir...

 

[ÖmerBey]

KTF isterseniz;

Function ARKAARKAYA(alan)
For Each aln In alan
    If kişi = aln And aln <> "" Then
        say = say + 1
    Else
        If say > adt Then
            sonuç = kişi & ", " & say & " kere"
            adt = say
        ElseIf say = adt Then
            sonuç = kişi & " ve " & sonuç
            adt = say
        End If
        kişi = aln
        say = 1
    End If
Next
ARKAARKAYA = sonuç
End Function

=ARKAARKAYA(A2:AI2)

şeklinde kullanabilirsiniz.

 

[Jeeday]

müthiş....

 

[Jeeday]

peki ya kişi adını biz verirsek?

yani x kişi en fazla kaç kere arka arkaya kazandı gibi

 

[ÖmerBey]

Aşağıdakini deneyiniz.

Function PEŞPEŞE(alan, kişi)
For Each aln In alan
    If kişi = aln And aln <> "" Then
        say = say + 1
        If say > sonuç Then sonuç = say
    Else
        say = 0
    End If
Next
PEŞPEŞE = sonuç
End Function

=PEŞPEŞE(A2:AI3;"ALİ")

şeklinde kullanabilirsiniz.

 

[Jeeday]

bide sırtsırta yapsak )))

 

[ÖmerBey]

bide sırtsırta yapsak )))

Bir dahaki sefere unutmam inşallah.
İyi çalışmalar...

 

[Jeeday]

şöyle bir sıkıntı var. aynı çalışma kitabında farklı makro çalıştırdığımda ve adım adım izlediğimde PEŞPEŞE olan fonksiyonda çalışıyor ve boşu boşuna kasmalara neden oluyor. nasıl bu durumun önüne geçebiliriz?

 

[ÖmerBey]

KTF de bir tür formül olduğu için sayfada her değişiklik yapıldığında hesaplama seçenekleri otomatik ise formül hesaplaması yapacaktır.
Formüller sekmesinden hesaplama seçeneklerini manuel yaparsanız karşılaştığınız problemi önleyebilirsiniz.

 

[Jeeday]

başka bir yolu yok mu peki?

 

[Ömer BARAN]

Merhabalar. Dosyanızı incelemedim ve VBA kod'u da denemiş değilim.
Ancak belge yavaşlamasıyla ilgili olarak aşağıdaki hususu söylemek istedim.


Genel hesaplama ayarını "manual" yapıp;
-- ya Sheets("......").Calculate gibi bir kodla belli sayfayı/sayfaları hesaplatmak
-- ya da Range("....").Calculate gibi bir kodla belli alanı/alanları hesaplatmak
şeklinde bir şeyler işinize yarayabilir.