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: image.png] >> >> Message 1 >> [image: image.png] >> >> 2.. Waktu hyperlink di klik, akan keluar Ok or Cancel, dan waktu cancel >> di klik, maka yang muncul adalah seperti ini : >> >> [image: image.png] >> >> Message 2 >> [image: 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 >> >> >
