Pak Kid, Problem Solved. Terima kasih Pak Kid.
On Tue, Jul 30, 2019 at 1:22 AM 'Mr. Kid' [email protected] [belajar-excel] <[email protected]> wrote: > > > 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] <[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 >>>>>>>> >>>>>>>> >
