Dear all mas anton and xl-mania member Sent from my BlackBerry® Dear mas anton and master master xl-mania Sent from my BlackBerry® Dear all xl-mania member... Sent from my BlackBerry® Dear master-master excel.....
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:
Apa yang salah ya?
Mohon pencerahan para master...
Terimakasih
Salam
Denny
powered by Sinyal Kuat INDOSAT
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)
Private Sub Worksheet_BeforeDou
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.
y = 3 'ke hal 3
z = GetAttr(x) And 0
If Err = 0 Then
Set IE = CreateObject(
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@
To: XL-mania@yahoogroup
Sent: Fri, May 7, 2010 9:04:34 AM
Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf
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
powered by Sinyal Kuat INDOSAT
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-mania@yahoogroup s.com
Sent: Wed, May 5, 2010 2:02:44 PM
Subject: Re: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf
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
powered by Sinyal Kuat INDOSAT
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-mania@yahoogroup s.com
Sent: Fri, April 30, 2010 7:06:14 PM
Subject: ]] XL-mania [[ vba code hyperlink from excel 2007 to pdf
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
| uaaaaa... mau game maeeemoooooooo.... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário