Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pth As String
Pth = ThisWorkbook.Path & "\"
On Error GoTo enddd
If Target.Cells.Count = 1 Then
If Target.Column = 2 Then
If Target.Row > 1 Then
If Len(Target.Value) > 0 Then
Workbooks.Open Filename:=Pth & Target.Text & ".xls"
End If
End If
End If
End If
enddd:
End Sub
2010/12/9 <agung_widodo@sanyo.com>
Para pemerhati Excel,
Saya ada tugas sering membuka file excel yang nama filenya ada dalam tabel
di Daftar File tersebut sudah disusun di folder yang sama dengan file itu sendiri.
Bila data sedikit atau tetap,Solusi bisa dengan hyperlink.
Namun masalahnya nama file diubah tiap hari.
Bagaimana cara membuka file2 yang terdaftar di kolom tersebut dengan menekan tombol / macro ataupun form
Adakah solusi selain dengan hyperlink?
Terimakasih.
Best regards
Agung Widodo
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momods mencari penerbit buku yang oke dan muantab.... adakah? |
| ayo silahkan coba lowongan yang momod kirim... |
| 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 |
+-------------------------------------------------------------------+
| momods mencari penerbit buku yang oke dan muantab.... adakah? |
| ayo silahkan coba lowongan yang momod kirim... |
| 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 |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário