Terima kasih pak Zainul.. Sdh memberikan alternatif menggunakan macro..
Alhamdulillah..
Regards
Agam
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: "zainul_ulum[at]yahoo[dot]com" <zainul_u...@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Sat, 22 Dec 2012 22:54:36
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Filter data dari Database
Pak Agam,
Saya coba bantu tetapi dengan menggunakan macro.
'========================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rgCriteria As Range, rgData As Range, rgTarget As Range
Set rgCriteria = Range("I1:I2")
'jika sheet terfilter, tampilkan semua data
With ActiveSheet
If .FilterMode Then
.ShowAllData
End If
End With
'jika ada perubahan di range kriteria jalankan proses filter
If Not Intersect(Target, rgCriteria) Is Nothing Then
'block database yang akan difilter
Set rgData = Range("A2:G" & Range("A2").End(xlDown).Row)
rgData.AdvancedFilter xlFilterInPlace, rgCriteria
End If
End Sub
'==============
Silakan dicoba file terlampir.
Thanks
-zainul-
Pada 22 Desember 2012 15:20, agam Tole <agam_t...@yahoo.com> menulis:
Dear Master Excel,
Mohon bantuan untuk jalan keluar permasalahan saya dalam Pembuatan rumus
pada File terlampir..
Pada Kolom pencarian, setelah kita ketik salah satu nama pada kolom
pencarian maka otomatis akan mengambil data dari database dan menginput data
sesuai dengan nama yg dicari di Tabel Filter berdasarkan nama,
Mohon kiranya dapat membantu, Terima Kasih Sebelumnya
Best Regard
Agam
