sprti ini maksudnya?
For r = 1 to 5
'Code
Next r
>semoga bermanfaat
________________________________
From: ..:: priel ::.. <xavr...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wed, September 1, 2010 3:03:05 PM
Subject: Re: [belajar-excel] Mengubah number menjadi text dengan format tertentu
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
