tüm sayfalarda mükerrer arama ve sayma sayma

[acar6783]

Kolay gelsin arkadaşlar.

A1 hücresini diğer sayfalarda aratıp kaç adet olduğunu yani mükerrer sayısını nasıl bulabilirim.
Kod olarak ihtiyacım var. Her türlü araştırmayı yaptım ama bir fikir elde edemedim.
Yardımlarınız için teşekkürler.

Sub bul()
For i = 2 To Sheets.Count
Set s1 = Sheets(Sheets(i).Name)

[b2] = WorksheetFunction.CountIf(s1.Range("A1:K9993"),[a1])

Next
End Sub

Bu şekişde birşey düşündüm ama haliyle sadece son sayfadaki adeti veriyor..

 

[mancubus]

aslında çok örnek var forumda.

A1 kitaptaki ilk (en soldaki) sayfada anladığım kadarı ile...

Sub sayf_a1_say()
    
    Dim i As Integer

    With Worksheets(1)
        For i = 2 To Worksheets.Count
            .Range("B" & i) = Worksheets(i).Name
            .Range("C" & i) = Application.CountIf(Worksheets(i).UsedRange, .Range("A1"))
        Next
    End With

End Sub

 

[acar6783]

Sanırımyanlış anlattım ;
A1 hücresindeki değerin tüm sayfalarda arayıp kaçtane olduğunu bulacak yani sayacak.
tek sayfa için kolay da birden fazla sayfada çokesay yapamadım.
Sizin kodda sanırım hengi sayfada kaç adet olduğunu buluyoruz.

 

[ÖmerBey]

Kodunuzu aşağıdaki şekilde deneyiniz.

Sub bul()
For i = 2 To Sheets.Count
Set s1 = Sheets(Sheets(i).Name)
say = WorksheetFunction.CountIf(s1.Range("A1:K9993"), [a1])
toplam = toplam + say
Next
[B2] = toplam
End Sub

 

[acar6783]

Teşekkürler Sn mucit.
Hiç aklıma gelmemişti

 

[mancubus]

ben yanlış anlamışım.

şöyle, yabancı sitelerde gördüğüm, güzel bir formül var. ilk kimin aklına geldi ise fikrine sağlık.

Verilerin bulunduğu sayfa isimlerinin Sayfa2, Sayfa3, Sayfa4, Sayfa5 olduğu varsayımı ile

=SUM(COUNTIF(INDIRECT("Sayfa"&{2;3;4;5}&"!A1:Z1000");"="&A1))

=TOPLA(EĞERSAY(DOLAYLI("Sayfa"&{2;3;4;5}&"!A1:Z1000");"="&A1))

yok bir makronun parçası olacak, illa makro lazım dersek formülü makroya da yazdırabiliriz. son derece hızlıdır.

    With Range("B2")
        .Formula = "=SUM(COUNTIF(INDIRECT(""Sayfa""&{2;3;4;5}&""!A1:Z1000""),""=""&A1))"
        .Value = .Value
    End With

VBA'de formül ayracının ";" den "," e dönüştüğüne, içerideki mevcut çift tırnakların her birinin bir adet arttığına bilvesile dikkat çekelim.