Hanya ada ini aja Pak Kid, [image: image.png]
On Mon, Jul 29, 2019 at 2:18 PM 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote: > > > di cek di worksheet yang ada pivot table-nya... > > > On Mon, Jul 29, 2019 at 1:49 PM Stephen Saputro stephensapu...@gmail.com > [belajar-excel] <belajar-excel@yahoogroups.com> wrote: > >> >> >> Pak Kid, >> >> Sudah saya cek tapi gak ada, saya cuman pake 1 event di thisworkbook >> >> [image: image.png] >> >> Sebenar nya masih bisa di skip sih masalah ini, hanya saja sedikit >> mengganggu, >> >> On Mon, Jul 29, 2019 at 10:52 AM 'Mr. Kid' mr.nm...@gmail.com >> [belajar-excel] <belajar-excel@yahoogroups.com >> <belajar-ex...@yahoogroups..com>> wrote: >> >>> >>> >>> Mungkin ada 2 event di sheet itu. >>> >>> Sent from my smart enough phone >>> >>> On Jul 29, 2019, at 10:11, Stephen Saputro stephensapu...@gmail.com >>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote: >>> >>> >>> >>> Pak Kid, >>> >>> Saya coba script di bawah ini dan berhasil : >>> >>> Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal >>> Target As Range, Cancel As Boolean) >>> >>> On Error Resume Next >>> If Left(Target.Value, 2) = "\\" Then >>> ActiveWorkbook.FollowHyperlink Address:=Target.Value, NewWindow:=True >>> End If >>> >>> End Sub >>> >>> Tapi setelah saya melakukan script yang sama di kertas kerja yang >>> sesungguhnya, kenapa kotak dialog di bawah ini jadi muncul dua kali ya Pak ? >>> >>> <image.png> >>> >>> On Thu, Feb 21, 2019 at 2:46 PM Stephen Saputro < >>> stephensapu...@gmail.com> wrote: >>> >>>> Pak Kid, >>>> >>>> Terima kasih untuk clue nya. Akan coba saya cerna dulu ya Pak. >>>> >>>> >>>> Regards >>>> Adi >>>> >>>> On Thu, Feb 21, 2019 at 1:49 PM 'Mr. Kid' mr.nm...@gmail.com >>>> [belajar-excel] <belajar-ex...@yahoogroups..com >>>> <belajar-excel@yahoogroups.com>> wrote: >>>> >>>>> >>>>> >>>>> harus tahu nama field yang berisi teks url nya >>>>> supaya bisa membatasi kerja event di area field itu saja. >>>>> pakai error trap juga, supaya gak ribet harus periksa apakah cells >>>>> yang ditunjuk berisi url atau sekadar teks biasa. >>>>> >>>>> Regards, >>>>> Kid >>>>> >>>>> >>>>> On Wed, Feb 20, 2019 at 12:10 PM Stephen Saputro >>>>> stephensapu...@gmail.com [belajar-excel] < >>>>> belajar-ex...@yahoogroups...com> wrote: >>>>> >>>>>> >>>>>> >>>>>> Dear Teman2 Milis, >>>>>> >>>>>> Mohon dapat di bantu kasus saya, Saya sedang membuat pivot, yang di >>>>>> dalamnya ada hyperlink yang jika di klik akan membuka suatu document. >>>>>> Untuk >>>>>> mengaktivkan hyperlink di pivot, saya menggunakan script di bawah ini : >>>>>> >>>>>> >>>>>> ------------------------------------------------------------------------------------------------------------------------------------------------ >>>>>> Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal >>>>>> Target As Range) >>>>>> >>>>>> Dim ptc As PivotTable, Value As Variant, Rng As Range >>>>>> For Each ptc In Worksheets(Sh.Name).PivotTables >>>>>> If Not Intersect(Target, Range(ptc.....TableRange1.Address)) Is >>>>>> Nothing Then >>>>>> If Left(Target.Value, 2) = "\\" Then >>>>>> ActiveWorkbook.FollowHyperlink Address:=Target.Value, NewWindow:=True >>>>>> End If >>>>>> End If >>>>>> Next ptc >>>>>> End Sub >>>>>> >>>>>> >>>>>> ------------------------------------------------------------------------------------------------------------------------------------------------- >>>>>> >>>>>> Hanya saja ada beberapa masalah yang saya hadapi. >>>>>> >>>>>> 1. ketika saya melakukan select range di pivot, maka yang muncul >>>>>> adalah seperti ini : >>>>>> >>>>>> Select range >>>>>> <image.png> >>>>>> >>>>>> Message 1 >>>>>> <image.png> >>>>>> >>>>>> 2.. Waktu hyperlink di klik, akan keluar Ok or Cancel, dan waktu >>>>>> cancel di klik, maka yang muncul adalah seperti ini : >>>>>> >>>>>> <image.png> >>>>>> >>>>>> Message 2 >>>>>> <image.png> >>>>>> >>>>>> Mohon bantuan teman teman semuanya, bagaimana agar cara nya >>>>>> menghilangkan error ini agar message 1 dan juga message 2 tidak muncul >>>>>> lagi >>>>>> >>>>>> >>>>>> Terima kasih >>>>>> >>>>>> >