veri süzme

LeVeLuP · 01-04-2010, 13:44

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

**Orion1** · 01-04-2010, 14:01

Alıntı:

LeVeLuP tarafından gönderildi

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.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

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 · 01-04-2010, 14:21

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** · 01-04-2010, 15:03

Alıntı:

LeVeLuP tarafından gönderildi

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.

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç

01-04-2010, 14:21	#3
LeVeLuP Giriş: 10/07/2006 Mesaj: 48 Excel Vers. ve Dili: 2003	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ı)