Tüm Sayfalarda Tekrar Sayısını Sayma/Veri Getirme

[Katip36]

İyi günler
Bir tablomuz var. Sürekli sayfa ekleyerek bu sayfa içerisine isim listesi hazırlıyoruz. (isimler sürekli sabit bir satıra yazılmamış)
Hangi ismin kaç kere tekrar ettiğini bulmamız gerekiyor ama nasıl bir yol izleyeceğimi bilmiyorum.
Dosya içerisinde onlarca sayfa var ve isimleri birbirinden farklı, belli bir düzende değil.
Örneğin; yeni bir sayfa açtım ve bu sayfanın A1 hücresine Ahmet yazdığımda B1 hücresine Ahmet'in tüm dosya içerisinde kaç defa isminin geçtiğini öğrenebilir miyiz?
Ya da bir tık daha ileri giderek, Ahmet yazdığımda Ahmet'in isminin hangi sayfalarda geçtiğini bulabilir miyiz?
Öncelikli istediğim ilki, ama ikincisi de olursa fena olmaz.

 

[muhasebeciyiz]

CTRL+ F ile tüm sayfalarda arama ve listeleme

Merhaba, CTRL+F komutuyla tüm sayfalarda tümünü bul dedikten sonra çıkan arama sonuçlarını raporlamak listelemek istiyorum, mutalak sorulmuştur ama ben bulamadım arşivden saygılar herkese.

www.excel.web.tr

Bu sayfada Necdet hocamızın verdiği kod tüm sayfalarda arama yapmaktadır.Kullanıma ait tarif bu linktedir.

 

[dEdE]

Merhaba,
Yıllar önce hazırladığım ve buraya yüklediğim dosya silinmiş.
İstediğinizi tam olarak yaptığını düşündüğüm dosyayı yeniden ekliyorum.

Harici Link, bir hafta içinde silinir.

Download files - Filemail

Click here to view and download these shared files from Filemail.com

www.filemail.com

 

[Katip36]

Geri dönüşler için teşekkür ederim. her iki yöntem de çok güzel çalışıyor.
Peki bu işlemleri hücreye uyarlamak mümkün mü ?
Örneğin; B2 hücresine Ahmet yazdığımda C2 hücresinde Ahmet'in tüm sayfalarda kaç tekrar yaptığını direk sayı olarak alabilir miyiz? yani arama yapmadan direk o hücreye girilen ismin sonucunu verecek. bu sayede bu liste şeklini şablon oluşturup onu kullanmaya başlayacağım. her liste hazırladığımda o kişinin daha önce kaç defa listede adının geçtiğini görmüş olmam gerekiyor.
Mümkünse C sütunundaki hücrelere ne yapmam gerekiyor.
Yani isim karşısında sayı yazacak, detaya ihtiyaç olduğunda üstteki yöntemle detay aranacak.

 

[dEdE]

Merhaba,
Aşağıdaki kodu Sayfa1 in kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        If Target.Cells.Value = " " Or IsEmpty(Target) Then Exit Sub
        Bulunacak = Range("B2").Value
        Call Ara
    End If
End Sub

Aşağıdakini ise bir modüle yapıştırarak dener misiniz?
B2 ye yazdığınız sözcüğün tüm dosyada kaç kez geçtiğini C2 ye yazar.

Public Bulunacak As String
Sub Ara()
For i = 1 To Worksheets.Count
    Set Aranan = Sheets(i).Cells.Find(Bulunacak, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        adres = Aranan.Address
        Do
            s = s + 1
            Set Aranan = Sheets(i).Cells.FindNext(Aranan)
        Loop While Not Aranan Is Nothing And Aranan.Address <> adres
    End If
    Range("C2") = s - 1
Next i
End Sub

 

[Korhan Ayhan]

Merhaba,

İşinize yararsa formülle alternatif..

Harici Link (Silinebilir) ; https://dosya.co/b6muntruwjox/Sayfalardan_Kritere_Göre_Sayma.xlsx.html

 

[Katip36]

Merhaba,

İşinize yararsa formülle alternatif..

Harici Link (Silinebilir) ; https://dosya.co/b6muntruwjox/Sayfalardan_Kritere_Göre_Sayma.xlsx.html

Hocam emeğinize sağlık güzel olmuş ama bir küçük düzeltme istesem sizden.
Elimizdeki mevcut listedeki sayfa isimleri çok karışık. Kimisi tarih, kimisi isim, isim ve tarih bir arada olan var. Hazırladığınız örnekte D sütununda yazan sayfa isimlerine bağlı arama yapıyor. Buna bağlı olmadan mevcut tüm sayfalarda arama yapamaz mıyız ?

 

[Katip36]

Merhaba,
Aşağıdaki kodu Sayfa1 in kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        If Target.Cells.Value = " " Or IsEmpty(Target) Then Exit Sub
        Bulunacak = Range("B2").Value
        Call Ara
    End If
End Sub

Aşağıdakini ise bir modüle yapıştırarak dener misiniz?
B2 ye yazdığınız sözcüğün tüm dosyada kaç kez geçtiğini C2 ye yazar.

Public Bulunacak As String
Sub Ara()
For i = 1 To Worksheets.Count
    Set Aranan = Sheets(i).Cells.Find(Bulunacak, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        adres = Aranan.Address
        Do
            s = s + 1
            Set Aranan = Sheets(i).Cells.FindNext(Aranan)
        Loop While Not Aranan Is Nothing And Aranan.Address <> adres
    End If
    Range("C2") = s - 1
Next i
End Sub

Hocam geri dönüş için teşekkür ederim ama yapamadım. Kusura bakmayın.

 

[Korhan Ayhan]

Benim önerdiğim yöntemde sayfa isimleri bir yerde listelenmelidir. Yapmanız gereken tek işlem budur. Gerekirse bu işlemi makro ile yapabilirsiniz.

Sub Sheets_Name_List()
   Dim Sh As Worksheet
 
   Sheets("Rapor").Range("D:D").ClearContents
   Sheets("Rapor").Range("D:D").NumberFormat = "Q"
   X = 1

   For Each Sh In ThisWorkbook.Worksheets       
       If Sh.Name <> "Rapor" Then
          Sheets("Rapor").Range("D" & X) = Sh.Name
          X = X + 1
       End If
   Next

   MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[Katip36]

tamamdır hocam teşekkür ederim. elinize sağlık.