sayfalardaki belirli bir sütundaki isimlerin adetini ayrı sayfada toplama

[amoretr]

Merhaba aylık iş programı için hazırladığımız bir excel dosyası içinde ; ayın her gününe ait sayfalardaki A sütunun satırlarında; örneğin "soner" isminin geçtiği ve bu ismin geçmediği satır adetlerini ,baktığımız güne kadarki adetlerini verebilecek bir makro gerekli , yardımcı olurmusunuz?

 

[Orion1]

Merhaba aylık iş programı için hazırladığımız bir excel dosyası içinde ; ayın her gününe ait sayfalardaki A sütunun satırlarında; örneğin "soner" isminin geçtiği ve bu ismin geçmediği satır adetlerini ,baktığımız güne kadarki adetlerini verebilecek bir makro gerekli , yardımcı olurmusunuz?

Oluruz!
Örnek dosya ekleyiniz.

 

[amoretr]

içeriği içerik bilgileri yüzünden değiştirmek zorunda kaldım. yeni gün planında 1 önceki gün bir sonraki günün planı için yeni sayfa açarak hazırlıyoruz. Yani gerekli olan ; "Güncel" sayfası öncesinde her yeni sayfadaki A sütunundaki "soner" yazan satır ve soner harici yazan satır sayılarını güncelde görmek. Şimdiden çok teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub soner_59()
Dim deg As String, sat As Long, sonucad As Long
Dim sh As Worksheet, i As Integer, digerleri As Long
Sheets("güncel").Select
deg = InputBox("KİŞİ SAY", "Lütfen kişi adı giriniz:")
Range("C4:C5").ClearContents
Range("B4").Value = deg
If deg = "" Then
    MsgBox "Bir isim girilmedi." & vbLf & "İşlem İptal oldu!", vbCritical, "U Y A R I"
    Exit Sub
End If
For i = 1 To Worksheets.Count - 1
    Set sh = Sheets(i)
    sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
    sonucad = sonucad + WorksheetFunction.CountIf(sh.Range("A2:A" & sat), deg)
    digerleri = digerleri + WorksheetFunction.CountIf(sh.Range("A2:A" & sat), "<>" & deg)
Next
Cells(4, "C").Value = sonucad
Cells(5, "C").Value = digerleri
MsgBox "İşlem Tamamdır." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[amoretr]

çok teşekkür ederim emeğinize sağlık