Dear Mr Toby,
Makasih atas masukannya, saya pelajari dulu. Salam, DD From: [email protected] [mailto:[email protected]] Sent: 07 Desember 2016 17:44 To: [email protected] Subject: Bls: [belajar-excel] BreakLink Dear DD, Coba Script ini : Dim a As Workbook Dim b As Long Dim c As Variant Set a = ActiveWorkbook c = a.LinkSources(Type:=xlLinkTypeExcelLinks) For b = 1 To UBound(c) a.BreakLink Name:=c(b), Type:=xlLinkTypeExcelLinks Next b Jika ada file link yang terprotect, maka tidak bisa nge-BreakLinks TerimaKasih. Pada Rabu, 7 Desember 2016 13:54, "'Dede Sulaeman' [email protected] [belajar-excel]" <[email protected]> menulis: Dear BeExceller, Berikut script yang saya pakai : Sub Macro2() FlNm = Range("A1").Value u = Range("F1").Value For x = 1 To u On Error Resume Next Sheets("Sheet1").Select Sheets("Sheet1").Move ActiveWorkbook.BreakLink Name:="" & FlNm & "", Type:=xlExcelLinks Sheets("Sheet1").Select Sheets("Sheet1").Move Before:=Workbooks("Book1").Sheets(1) Next x End Sub Script ini hanya untuk BreakLink satu file saja. Jadi kalau Tiga file gimana yah scriptnya? Salam, DD From: [email protected] [mailto:[email protected]] Sent: 07 Desember 2016 8:43 To: [email protected] Subject: [belajar-excel] BreakLink Dear Be Exceller, Saya mempunyai file (sebut saja File A) yang formulanya nge-Link ke (3)tiga file yang berbeda. Apa scriptnya yah kalau saya mau nge-BreakLink “File A” tersebut. Salam, DD
