silakan di oprex, Sub ling() For Each c In Range("B2:K5") If c <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=c, _ Address:="D:\Folder\Workbook" & c.Column - 1 & ".xls" End If Next End Sub
>semoga bermanfaat ________________________________ From: sepriansyah encep <citra_en...@yahoo.co.id> To: belajar-excel@yahoogroups.com Sent: Thu, April 15, 2010 10:48:04 AM Subject: [belajar-excel] belajar-excel] link dengan banyak wookbook Dear para Master Saya punya permasalahan dgn link di wookbook lain ex : 1 2 3 4 5 6 CSU 0 0 0 0 0 0 Planned Visit 0 0 0 0 0 0 Actual Visit 0 0 0 0 0 0 In Route Visit 0 0 0 0 0 0 di kolom 1 akan di link dengan doc wookbook1.xls di kolom 2 akan di link dengan doc wookbook2.xls dst... Permasalahan nya adalah bagaimana cara yg simple agar saya tdk kesulitan copy rumus di cell itu tapi pada wookbook yg tepat..karena bisa ratusan wookbook yg akan saya link Mohon bantuan & solusi para master semua Tx, Syepriansyah ____________ _________ _________ _________ _________ __ Apakah Anda Yahoo!? Lelah menerima spam? Surat Yahoo! memiliki perlindungan terbaik terhadap spam http://id.mail. yahoo.com