veri süzme

[LeVeLuP]

veri süzüp alt toplam almayı makro ile yapmaya çalıştım sonuç alamadım.ekteki dosyaya bir bakarmısınız?

 

[Orion1]

veri süzüp alt toplam almayı makro ile yapmaya çalıştım sonuç alamadım.ekteki dosyaya bir bakarmısınız?

Dosyanız ektedir.

Sub Makro1()
'evrengizlen@hotmail.com
Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=1, Criteria1:=">=" & CLng(DateValue("01.01.2010")), Operator:=xlAnd _
        , Criteria2:="<=" & CLng(DateValue("02.02.2010"))
    toplam = WorksheetFunction.Subtotal(9, Range("B2:B65536"))
    Range("D1").Value = toplam
        MsgBox "ALTTOPLAM : " & toplam, vbOKOnly + vbInformation, "evrengizlen@hotmail.com"

End Sub

 

[LeVeLuP]

teşekkür ederim.sonuç olmuş.
bu makroyu yazarak mı yoksa işlemleri yaparak mı oluşturuyoruz?
(işlem yaparak oluşturmaya çalıştım olmadı)

 

[Orion1]

teşekkür ederim.sonuç olmuş.
bu makroyu yazarak mı yoksa işlemleri yaparak mı oluşturuyoruz?
(işlem yaparak oluşturmaya çalıştım olmadı)

Yazdım ben.