Re: ]] XL-mania [[ Vlookup Pada Data yg di filter

 

Kasus persis seperti ini pernah muncul beberapa kali di milis
salah satunya dapat dilihat di message / posting no. 11290  

terjawab di msg no. 11305;  sekitar pertengahan bulan Agustus 2008
http://tech.groups.yahoo.com/group/XL-mania/message/11305

solusi waktu itu tetap dengan bantuan UDF, tetapi cara pencariannya 

di dalam UDF dgn memnfaatkan Object AutoFilter.Filters

bukan mencari Baris yg Unhidden pertamakai ditemukan

Function PilterKriteName(ColFilters As Range, ColLabel As Range) As String

   '------------------------------------------------

   'siti Vi // UDF menebak Criteria pada autofilter

   '------------------------------------------------

   Application.Volatile

   Dim AAF As Object, i As Integer

   Set AAF = ColLabel.Parent.AutoFilter.Filters

   i = WorksheetFunction.Match(ColLabel, ColFilters, 0)

   PilterKriteName = Replace(AAF.Item(i).Criteria1, "=", "")

End Function

Workbok solusi yg ada ( Kriteria_AutoFilter.xls ) masih bisa diunduh di sini
http://www.box.net/shared/pu408uyyua  (kalau mau..)

> 2011/4/2 STDEV(i) <setiyowati.devi@gmail.com>
>> halo mbak FeraRos,   ringkas ceritaknya adalah
>> "mencari alamat cell pertama YANG TIDAK HIDDEN  pada kolom yg
>> di-FILTER".. 
>> begitukah ?? 
>> ( mudah mudahan = 'begitu' )
>> Function FirstVisible(dRng As Range) As String
>> ' siti Vi / milis belajar-excel / 2 april 2011
>> '---------------------------------------------
>>    Dim cel As Range
>>    For Each cel In dRng
>>       If cel.EntireRow.Hidden = False Then
>>          FirstVisible = cel.Address
>>          Exit Function
>>       End If
>>    Next cel
>> End Function
>> "sanes kirang sono.." kita mau cabut segera,  tapi anda lihat dulu
>> selengkanya di sheet lampiran.. bgmana mengaplikasiikan udf ini...
>> kalau perlu bisa diganti
>> output UDF jangan string atetapi = object range....
>
>  
>> 2011/4/1 Fera Rosdiana <miss_purple2302@yahoo.co.id>
>> > Dear Pakar XL Mania,
>> > Aq mau menanyakan untuk problem saya,,,
>> > lbh jelasnya langsung ke TKP, lihat pada attachment.
>> > Smoga pakar2 XL mania bisa kasih solusi yg mantap.....
>> > Terimakasih,,

__._,_.___

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

Messages in this topic (4)

Recent Activity:

• New Members 75

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| insanbiasa : "member 17,000++ yang beli buku mengapa boss benci   |
| chart anda cuma segituhh? pokoknya™ yang nggak beli: BANNED :D :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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.friendster.com/xlmania atau...  |
| 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

.

__,_._,___