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

-----Original Message-----
From: anton suryadi <[email protected]>
Date: Sat, 8 May 2010 11:25:57 
To: <[email protected]>
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_BeforeDoubleClick( 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("InternetExplorer.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: "[email protected]" <[email protected]>
To: [email protected]
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 <summon...@yahoo. com> 
Date: Thu, 6 May 2010 13:51:50 +0800 (SGT)
To: <xl-ma...@yahoogroup s.com>
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" <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 <summon...@yahoo. com> 
Date: Mon, 3 May 2010 09:05:46 +0800 (SGT)
To: <xl-ma...@yahoogroup s.com>
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 <denny_4milanisti@ yahoo.com>
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




 


      

Kirim email ke