(Siap PakDhe !) Kasus spt ini sudah pernah muncul beberapa kali, antara lain: http://tech.groups.yahoo.com/group/XL-mania/message/11305
Tulis RUMUS di D5 (atau cell lain yg dikehendaki) =Kriteria_AutoFilter(B8) B8 adaklah Heading AutoFilter di salah satu kolom Saat ini, Fungsi *Kriteria_AutoFilter* itu hanya ada di woribook ini karena dibaut sendiri dengan bantuan vba: Function Kriteria_AutoFilter(Header As Range) As String ' ~Rr : 24 apr 2012: XL-mania Case# 20291 ' Get Namakriteria AutoFiter yg sedang diberlakukan pada (header) kolom tertentu, ' termasuk jika diberlakukan Custom Filter '------------------------------------------------ Dim sKrite1 As String, sKrite2 As String Application.Volatile With Header.Parent.AutoFilter With .Filters(Header.Column - .Range.Column + 1) If Not .On Then Exit Function sKrite1 = .Criteria1 If .Operator = xlAnd Then sKrite2 = " AND " & .Criteria2 ElseIf .Operator = xlOr Then sKrite2 = " OR " & .Criteria2 End If End With End With Kriteria_AutoFilter = Replace(sKrite1 & sKrite2, "=", "") End Function '---------------------- FileLampran <https://www.box.com/s/9567cd76d14bf79a3674> dapat diunduh di sini: https://www.box.com/s/9567cd76d14bf79a3674 Contoh file lain, dengan UDF Versi Ringkas dapat anda unduh di sini https://www.box.com/s/f7015cb41e1a96c80c95 <http://goog_1129110161> ~Rr On Tue, Apr 24, 2012 at 11:41 AM, Ki Semprul <[email protected]> wrote: > Rara, nduk anakku cah ayu.. > yen wektumu lego, kowe sing maju ya nduk.. > > ---------- Forwarded message ---------- > From: Maryanto <[email protected]> > Date: 2012/4/23 > Subject: ]] XL-mania [[ Mengambil Nilai yang di filter > To: [email protected] > mohon bantuannya para suhu excel, > saya ingin mengambil nama dari suatu data, tapi data itu berubah > dengan adanya filter, > bisakah data paling atas dalam filter di link walaupun filter diubah? > maaf jika membingungkan, newbie di dunia excel. > file terlampir > trima kasih
