İki tarih arası makro ile toplam

[anit35]

slm arkadaşlar
iki tarih arası toplam almam lazım bir çalışma buldum ancak kendime göre uygulayamadım


bana yardımcı olursanız sevinirim

dosya ekte

 

[Orion1]

slm arkadaşlar
iki tarih arası toplam almam lazım bir çalışma buldum ancak kendime göre uygulayamadım


bana yardımcı olursanız sevinirim

dosya ekte

Lütfen sorunuzu ilgili bölüme yazınız(VBA Makrolar)
dosyanız ektedir.

Option Base 1
Sub Button_Click()
Dim z As Object, sat As Long, i As Long
Dim liste(), myarr()
Sheets("Sheet1").Select
sat = Cells(Rows.Count, "A").End(xlUp).Row
Range("J2:M" & sat).ClearContents
liste = Range("A16:G" & sat).Value
ReDim myarr(1 To 4, 1 To sat)
Set z = CreateObject("scripting.dictionary")
sat = UBound(liste)
For i = 1 To sat
    If Not z.exists(liste(i, 1)) Then
        n = n + 1
        z.Add (liste(i, 1)), n
        myarr(1, n) = liste(i, 1)
        myarr(2, n) = liste(i, 1)
    End If
    myarr(3, z.Item(liste(i, 1))) = myarr(3, z.Item(liste(i, 1))) + CDbl(liste(i, 6))
    myarr(4, z.Item(liste(i, 1))) = myarr(4, z.Item(liste(i, 1))) + CDbl(liste(i, 7))
Next i
Erase liste
ReDim Preserve myarr(1 To 4, 1 To n)
Range("J2").Resize(n, 4) = Application.Transpose(myarr)
Set z = Nothing
Erase myarr
MsgBox "İşlem Tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[mgurten]

formüller dizin formülüdür