Hai Tio,

Coba ubah codenya seperti ini,
Sub CariJumlah()
Dim p, q As Range
Set p = Range("I10")
Set q = Range("J10")

Range("E4").Select
Range(Selection, Selection.End(xlDown)).Name = "Barisku"
Range("C3:E18").Select
Range(Selection, Selection.End(xlDown)).Select 'apa ga dobel .. ?
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Range("H10")
Selection.AutoFilter Field:=2, Criteria1:=">=" & p, Operator:=xlAnd, _
Criteria2:="<=" & q
Range("L10").FormulaR1C1 = "=Subtotal(9,Barisku)"
End Sub

Supaya Kriteria dan Hasilnya terlihat coba geser ke baris 1 dan 2 dan sesuaikan baris pada Code nya (warna hijau).

Salam,
Hendrik Karnadi



From: "tio.ad...@ptssb.co.id" <tio.ad...@ptssb.co.id>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 26 February 2013, 17:18
Subject: [belajar-excel] Menjumlahkan hasil berdasarkan nama dan rentang tanggal yang ditentukan


Dear Be-Exceller,

Saya mau tanya, saya ingin menjumlahkan hasil perolehan dari 2 kriteria yaitu nama dan rentang tanggal yang ditentukan. Bagaimanakah caranya yah ? Untuk kriteria nama, saya sudah berhasil, tapi

kalau untuk kriteria tanggal kok gagal terus, gagal terus, kenapa yah ???




Ini tabel terlampir :




Terima kasih sebelumnya.

Wassalam,
Tio


Kirim email ke