Kalau mau direkalkulasi ulang secara otomatis setiap ada perubahan boleh ditambahkan Application.Volatile pada bagian awal code. Namun harus berhati-hati agar tidak tejadi "calculation lag", seperti catatan di bawah ini:
This example marks the user-defined function "My_Func" as volatile. The function will be recalculated when any cell in any workbook in the application window changes value. Recalculation of the function is not restricted to changes or calculation cycles in the worksheet for which this function applies. Therefore, use it moderately to avoid calculation lag. Function My_Func() Application.Volatile ' ' Remainder of the function ' End FunctionSalam,HK On Monday, July 31, 2017, 9:47:46 AM GMT+7, hendrik karnadi <hendrikkarn...@yahoo.com> wrote: Jangan lupa aktifkan Macronya..... ----- Forwarded Message -----From: hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: Zerlinda Seismica seism...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>Sent: Monday, July 31, 2017, 9:46:51 AM GMT+7Subject: Re: [belajar-excel] Look Up Nilai Yang Tidak Unik Sambil menunggu jawaban Mr. Kid, sila coba UDF nya pak Anton (salah satu bang Momod juga). Copas UDF di bawah ini pada module di VBE Sheet, Function vlookupgab(x As Range, y As Range, z As String) As String 'anton suryadi 1/Des/2010 For Each a In x If a.Text = y.Text Then b = b & a.Offset(, 1).Text & z End If Next vlookupgab = Left(b, Len(b) - 1) End Function dan ketik UDF di bawah ini, =vlookupgab($A$3:$A$9,D3,",") pada Range E3, kemudian copy ke bawah. Salam,HK On Sunday, July 30, 2017, 9:38:56 PM GMT+7, Zerlinda Seismica seism...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote: Assalamualaikum wrwb Bapak dan ibu wabil khusus Mr Kid hehe...menurut asumsi saya fungsi look hanya untuk cari data yang unik.Sementara cari data yang ga unik apa ada sintaknya ya...Seperti biasa akan lebih jelas kalau bapak ibu bisa cek dulu lampiran saya... Salam hormat buat bapak ibu Wassalam Seismica