Re: ]] XL-mania [[ Mengambil Nilai yang di filter

 

(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 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

~Rr

On Tue, Apr 24, 2012 at 11:41 AM, Ki Semprul <semprul.ki@gmail.com> wrote:
> Rara, nduk anakku cah ayu..
> yen wektumu lego, kowe sing maju ya nduk..
>
> ---------- Forwarded message ----------
> From: Maryanto <maryanto@stanley.co.id>
> Date: 2012/4/23
> Subject: ]] XL-mania [[ Mengambil Nilai yang di filter
> To: XL-mania@yahoogroups.com
> 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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 44

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___