Terima kasih Mas Anton atas ilmunya, ternyata di situ ya salahnya... Kalau saya ingin meng-eksekusi dari periode tertentu, katakanlah dari 1-5, ecriptnya harus diubah seperti apa ya..? jadi ndak bolak-balik me-rekap satu persatu dengan mengganti WeekID secara manual, cukup kita tentukan rentangnya, dan macro langsung dijalankan untuk periode tersebut
Mohon maaf belum bisa meberikan file contoh. Paling tidak, script yang bisa digunakan agar bisa saya ketahui, sambil dicoba-coba sendiri biar paham berikut adalah list detail scriptnya, buat bahan menghayal :-) ===================================================== Sub RekapDEx() Dim r As Long Dim MyStr r = [WeekID].Value 'Nilai Week ID mengambil dari sheet active cell tententu MyStr = Format(r, "0#") Workbooks.Open Filename:="C:\Data\W" & MyStr & "\DExDashboard W" & MyStr & ".xls" [A6].Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Windows("RekapDEx_Module.xlsm").Activate Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues [AA1].Select Cells(Application.Rows.Count, 27).End(xlUp).Offset(1, 0).Select Do While IsEmpty(ActiveCell.Offset(0, -2)) = False ActiveCell.Value = "W" & MyStr ActiveCell.Offset(1, 0).Select Loop End Sub ===================================================== terima kasih sebelumnya salam -priel- 2010/9/1 anton suryadi <summon...@yahoo.com> > > > ganti: > Workbooks.Open Filename:="C:\Data\W" & r & "\DExDashboard W" & r & ".xls" > > menjadi: > Workbooks.Open Filename:="C:\Data\W" & *MyStr* & "\DExDashboard W" & * > MyStr* & ".xls" > > > >semoga bermanfaat > > -- http://www.facebook.com/maspriel