JENIS NAMA
HARGA
MINUMAN JUS JERUK
10,000
MINUMAN JUS JAMBU
12,000
MAKANAN SOTO AYAM
10,000
MINUMAN ES TEH
5,000
BUAH STRAWBERRY
25,000
MAKANAN BAKSO
10,000
Sub mc_Filternya()
Range("B2").Select
Selection.AutoFilter
Selection.CurrentRegion.Select' atau gunakan cara ini
' Range(Selection, Selection.End(xlToRight)).Select ' Kolom terakhir
' Range(Selection, Selection.End(xlDown)).Select ' Baris terakhir'-------
Selection.AutoFilter Field:=1, Criteria1:="=*MAKANAN*" _
, Operator:=xlAnd
jumbaris = Selection.Rows.Count
jumkolom = Selection.Columns.Count
Dim posisiakhir as range
Set posisiakhir = Selection.Offset(jumbaris, jumkolom - 1).Resize(1, 1)
posisiakhir.Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & jumbaris & "]C:R[-1]C)"
End Sub
To: belajar-excel@yahoogroups.com
From: ryn.herlamb...@yahoo.co.id
Date: Tue, 13 Mar 2012 02:48:41 +0000
Subject: [belajar-excel] Pengambilan data auto filter dengan macro
Dear Milis,
Mohon petunjuk bagaimana perintah macro untuk mengambil data suatu field di
auto filter misalnya dengan data sederhana sbb:
JENIS NAMA HARGA
MINUMAN JUS JERUK 10000
MINUMAN JUS JAMBU 12000
MINUMAN ES TEH 5000
MAKANAN SOTO AYAM 10000
MAKANAN BAKSO 10000
Bila data tsb di auto filter bagaimana perintah dalam macro untuk menjumlahkan
semua nilai total yang ada dalam kategori MINUMAN saja?
Terima kasih sebelumnya
