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