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]> 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]> 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 >>>> >>>> >
