Dear pak Anton dan master master xl-mania Saya sudah coba cara pak Anton dengan mengganti alamat dengan IP addrresnya. Dari pc lain sudah ok , dapat membuka file pdfnya, tetapi saya coba di pc saya sendiri kok tidak bisa ya?muncul exception file tidak ditemukan . Pendapat saya kalaupun code nya salah pasti di pc lain tidak jalan. Tapi ini hanya di pc saya saja . Saya menggunakan excel 2007 dan file excel dan pdfnya terletak di pc saya.
Mohon pencerahannya dari para master Terimakasih Salam Denny Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT -----Original Message----- From: anton suryadi <[email protected]> Sender: [email protected] Date: Tue, 11 May 2010 09:54:48 To: <[email protected]> Reply-To: [email protected] Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf coba lakukan hyperlink manual terhadap file tersebut, lakukan hal ini dari komputer user yang lain ya,, dan lihat hyperlink Addressnya, apakah sama dengan alamat yang ada di makro-nya. saya mencoba dengan IP Address, dengan susunan seperti ini: x = "\\12.34.56.789\Folder\File.pdf" hasilnya excel bisa membuka file pdf langsung ke halaman tertentu. selamat mencoba... >semoga bermanfaat ________________________________ From: "[email protected]" To: [email protected] Sent: Mon, May 10, 2010 11:36:51 AM Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf Dear all mas anton and xl-mania member Kalau file ini saya sharing, dan user lain menggunakan file ini, maka muncul message box "file tidak ditemukan". Foldernya sudah saya share dan alamatnya pun sudah saya ganti seperti ini : " x = "\\d02910\E: \folder\source. pdf" . D02910 itu adalah nama pc saya di dalam network kantor. Apa yang salah ya? Mohon pencerahan para master... Terimakasih Salam Denny Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT ________________________________ From: anton suryadi Date: Sat, 8 May 2010 11:25:57 +0800 (SGT) To: Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf Ganti saja: If Target.Address = "$B$2" Then misal, menjadi: If Target.Value = "blablabla" Then ini coding lengkapnya (plus perubahan dikit yaitu untuk tidak memunculkan Blank Internet Explorer apabila File tidak ditemukan) Sheet1: Private Sub Worksheet_BeforeDou bleClick( ByVal Target As Range, Cancel As Boolean) If Target.Value = "blablabla" Then Target.Offset( 1).Activate GoToPdfPage End If End Sub Module1: Sub GoToPdfPage( ) Dim IE As Object, x As String, y As Integer, z As String On Error Resume Next x = "E:\Folder\Source. pdf" 'Ganti dengan alamat file y = 3 'ke hal 3 z = GetAttr(x) And 0 If Err = 0 Then Set IE = CreateObject( "InternetExplore r.Application" ) IE.Navigate x "#Page=" y IE.Visible = True Else MsgBox "File tidak ditemukan!" End If On Error GoTo 0 End Sub File terlampir >semoga bermanfaat ________________________________ From: "denny_4milanisti@ yahoo.com" To: xl-ma...@yahoogroup s.com Sent: Fri, May 7, 2010 9:04:34 AM Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf Dear mas anton and master master xl-mania Bagaimana jika hyperlinknya tidak merujuk ke alamat cell tetapi valuenya. Contoh, saya ingin meng-hyperlink kode " 1234" ke halaman 120 file pdf "source". Jadi di seluruh worksheet yang isi cellnya "1234" akan hyperlink ke halaman 120 file pdf "source". Mohon pencerahannya, terimakasih atas jawaban sebelumnya.. . Salam Denny Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT ________________________________ From: anton suryadi Date: Thu, 6 May 2010 13:51:50 +0800 (SGT) To: Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf Tinggal ditemplokin ke worksheet event Worksheet_BeforeDou bleClick, Sheet1: Private Sub Worksheet_BeforeDou bleClick( ByVal Target As Range, Cancel As Boolean) If Target.Address = "$B$2" Then Target.Offset( 1).Activate GoToPdfPage End If End Sub Module1: Sub GoToPdfPage( ) Dim IE As Object, x As String, y As Integer x = "E:\Folder\File. pdf" 'Ganti dengan alamat file y = 3 'ke hal 3 On Error Resume Next Set IE = CreateObject( "InternetExplore r.Application" ) IE.Navigate x "#Page=" y IE.Visible = True On Error GoTo 0 End Sub File terlampir >semoga bermanfaat ________________________________ From: "denny_4milanisti@ yahoo.com" To: xl-ma...@yahoogroup s.com Sent: Wed, May 5, 2010 2:02:44 PM Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf Dear all xl-mania member... Pertanyaan tambahan Kalo saya ingin membuat hyperlink dari cell saja tanpa object shape,dll. Contohnya di cell B1 saya ketik "link" dan mau saya hyperlink ke halaman tertentu file pdf dengan tambahan vba code bisa tidak ya? Mohon bantuannya master-master Terimakasih Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT ________________________________ From: anton suryadi Date: Mon, 3 May 2010 09:05:46 +0800 (SGT) To: Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf ADA, Sub GoToPdfPage( ) Dim IE As Object, x As String, y As Long x = "E:\Folder\File. pdf" 'Ganti dengan alamat file y = 11 'ke hal 11 Set IE = CreateObject( "InternetExplore r.Application" ) IE.Navigate x "#Page=" y IE.Visible = True End Sub >semoga bermanfaat ________________________________ From: denny_4milanisti To: xl-ma...@yahoogroup s.com Sent: Fri, April 30, 2010 7:06:14 PM Subject: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf Dear master-master excel..... Mohon bantuannya dong,ada yang tau gak vba codenya hyperlink dari excel 2007 ke file pdf. Hyperlink ini langsung merujuk ke halaman tertentu pada file pdf yang di hubungkan. Terimakasih salam denny
