listede yer alan vade dağılımı

[emrexcel123]

arkadaşlar ve üstadlar selamlar kolay gelsin,
bir listede yer alan farklı vadelere sahip tarihlerin benzersiz ve aynı ay ve yıllara sahip olanlarının başka bir yere aktarılmasını nasıl sağlayabiliriz yardımcı olacak arkadaşlara teşekkürler ii çalışmalar...
dosya ektedir...
NOT : bu yöntemi vadelerin yanına ayları yazarak gelişmiş filtre ile yapabiliyorum fakat takdir edersiniz ki bu bayağı bir zaman alıyor kayıtların 11.000 satır küsür olması göz önünde bulundurulursa...

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub AktarTopla()
Dim a, i As Long, b(), n As Long
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
a = s1.Range("a2").CurrentRegion.Resize(, 3)
ReDim b(1 To UBound(a, 1), 1 To 3)
With CreateObject("Scripting.Dictionary")
     .CompareMode = vbTextCompare
     For i = 1 To UBound(a, 1)
     If IsDate(a(i, 1)) Then
     z = Format(Month(a(i, 1)) & " " & Year(a(i, 1)), "mmmm yyyy")
          If Not .exists(z) Then
               n = n + 1
               .Add (z), n
               b(n, 1) = n
               b(n, 2) = (z)
          End If
        b(.Item(z), 3) = b(.Item(z), 3) + a(i, 2)
    End If
    Next
    With s2.Range("a2")
        .Resize(, 3).ClearContents
        .Resize(n, 3).Value = b
    End With
End With
MsgBox "Bitti"
s2.Select
[a1].Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[Merhum İdris SERDAR]

Bu da formüllerle yapılmış hali.



..

 

[emrexcel123]

teşekkür ediyorum...

ikiside birbirinden güzel ve mükemmel örnekler çok teşekkür ediyorum formun güzel insanları size minnettarım sn ripek hocam yazdığınız kodların anlamlarını tam çözemedim yardımcı olabilirseniz sevinirim olamazsanız canınız sağolsun ii çalışmalar...