di cek di worksheet yang ada pivot table-nya...
On Mon, Jul 29, 2019 at 1:49 PM Stephen Saputro [email protected] [belajar-excel] <[email protected]> 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' [email protected] > [belajar-excel] <[email protected] > <[email protected]>> wrote: > >> >> >> Mungkin ada 2 event di sheet itu. >> >> Sent from my smart enough phone >> >> On Jul 29, 2019, at 10:11, Stephen Saputro [email protected] >> [belajar-excel] <[email protected]> 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 <[email protected]> >> 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' [email protected] >>> [belajar-excel] <[email protected] >>> <[email protected]>> 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 >>>> [email protected] [belajar-excel] <[email protected]> >>>> 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 >>>>> >>>>> >
