terlampir On Mon, Jul 29, 2019 at 4:05 PM Stephen Saputro [email protected] [belajar-excel] <[email protected]> wrote:
> > > Hanya ada ini aja Pak Kid, > > [image: image.png] > > On Mon, Jul 29, 2019 at 2:18 PM 'Mr. Kid' [email protected] > [belajar-excel] <[email protected] > <[email protected]>> wrote: > >> >> >> 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 >>>>>>> >>>>>>> >
pvthyperlink.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
