Süzme ve Alttoplam alma

[muratcan01]

Merhabalar;
Benim 4adet çalışma sayfam var.1.sayfa data veri girşleri yaptığım,ikinci sayfa bu data sayfasındaki kayıtlarda tarih sutununda bugünün tarihi olan kayıtları,2.sayfada bu ay olan kayıtlar,3.sayfada ise bu yıl olan kayıtları almasını istiyorum.
Yalnız girilen data kayıtlarında aynı isimler var.mesela bir günde bir işçi iki defa çalışabiliyor böylede olunca iki defa kayıt giriliyor.Benim yapmayı istediğim örneğin günlük raporlarken ali ismi iki defa yazıyorsa sadece ismini yazıp toplam tutarı yazacak.
Şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Butona aşağıdaki kodu kopyalayarak deneyin. Kodu çalıştırmadan önce tüm sayfalara A1: D1 arasındaki başlıkları kopyalayın. Data sayfasındaki verileri ilk butona bastığınızda ilgili tablolara aktarır. Yeni data sayfasındaki tabloyu silerek yeniden girmelisiniz. Aksi takdirde ilk verileri tekrar kaydeder. Eğer bu şekilde istemezseniz kod içine önce diğer sayfalardaki verileri silen kodlar ilave etmek gerekecektir.

Private Sub CommandButton1_Click()
Set s1 = Sheets("data")
sayfa = Array("gunlukrapor", "aylıkrapor", "yıllıkrapor")
For a = 2 To s1.[b65536].End(3).Row
deg = s1.Cells(a, "c")
kriter = Array(Date, Month(deg), Year(deg))
For b = 0 To 2
Select Case b
Case 1: deg = Month(Date)
Case 2: deg = Year(Date)
End Select
If deg = kriter(b) Then
say = WorksheetFunction.CountIf(Sheets(sayfa(b)).[b:b], s1.Cells(a, "b"))
If say > 0 Then
sat = WorksheetFunction.Match(s1.Cells(a, "b"), s1.[b:b], 0)
Sheets(sayfa(b)).Cells(sat, "d") = Sheets(sayfa(b)).Cells(sat, "d") + s1.Cells(a, "d")
GoTo 10
End If
sat = Sheets(sayfa(b)).[a65536].End(3).Row + 1
Sheets(sayfa(b)).Cells(sat, "a") = sat - 1
Sheets(sayfa(b)).Cells(sat, "b") = s1.Cells(a, "b")
Sheets(sayfa(b)).Cells(sat, "c") = s1.Cells(a, "c")
Sheets(sayfa(b)).Cells(sat, "d") = s1.Cells(a, "d")
End If
10 Next
Next
MsgBox "Aktarma tamamlandı"
End Sub

 

[muratcan01]

Hocam çok teşekkür ederim oldu gibi ,ben detaulı inceleyip tekrar bilgi vereceğim.Allah Razı Olsun