İki Sayfa Karşılaştır Verileri Say

[emreyılmaz]

Excel iki sayfasında kayıtlı verilerin bazı kriterlere göre saydırmak... İşletme Sayfasında kayıtlı işletmelerin Ana sayfada yapılan aylık kayıtlarının sayılması çok uzun sürmektedir.. Makro ile daha hızlı ( İhbar, İhlal, Denetim Sayısı ) nasıl sayım yaptırabilirim. Şimdiden yardım ve önerileriniz için şükranlarımı sunuyorum..

 

[Muzaffer Ali]

Merhaba.

Private Sub CommandButton1_Click()
    Dim Dakika As Date
    Dim syfAna As Worksheet
    Dim SayIsletme As Long
    
    Dakika = Now
    Set syfAna = Sheets("ANASAYFA")
    SayIsletme = Worksheets("İŞLETMELER").Cells(Rows.Count, "D").End(xlUp).Row
    
    Range("E2:E" & SayIsletme).Formula = "=countifs(ANASAYFA!J:J,D2,ANASAYFA!H:H,""İhbar"")"
    Range("F2:F" & SayIsletme).Formula = "=countifs(ANASAYFA!J:J,D2,ANASAYFA!H:H,""Rutin"")"
    Range("G2:G" & SayIsletme).Formula = "=E2+F2"
    Range("E2:G" & SayIsletme).Value = Range("E2:G" & SayIsletme).Value
    
    MsgBox "Sorgulama Tamamlandı." & Chr(13) & _
        "İşlem süresi ; " & Format(Now - Dakika, "hh:mm:ss"), vbInformation, "Bilgilendirme!"
End Sub