ralat / koreksi dikitts..
baris ke 38 / 39
CurRnge.Select
seharusnya tidak ada / harap dihapus
karena berpotensi memperlama proses dan juga
timbulnya error jika sheet induk CrRnge sedang tidak aktif
perintah itu dulunya dibuat hanya untuk keperluan test
--- In XL-mania@yahoogroups.com, "STDEV(i)" <setiyowati.devi@...> wrote:
>
> Sub Du_Sam_Ting()
> '------------------------------
> ' bluewater, 23 jun 2011
> '------------------------------
> Dim UnxFood(), AllData(), ArrShtNm()
> Dim CurRnge As Range, NewRnge As Range, NewHead As Range
> Dim NewBook As Workbook, CurBook As Workbook
> Dim ShtInBook As Integer, st As Integer
> Dim i As Long, n As Long, r As Long
> Dim FSO As Object, FOL As Object, F As Object
> Dim PathDirNm As String
> End Sub
> '-----------------------------------
>
>
> 2011/6/22 akbar arsyad <akbar_arsyad@...>
> > Dear All,
> > Saya mempunyai permasalahan, saya punya beberapa file, yaitu file tahun
> > 2003.xls, 2004.xls, dan 2005.xls
> > Masing-masing berisi satu sheet
> >
> > Saya ingin menggenerate file2 yang judulnya berdasarkan makanannya, jadi
> > ada file Ikan.xls, wortel.wls, rumput.xls, daging.xls, tulang.xls, dan
> > jagung.xls.
> > Masing2 file terdiri dari tiga sheet, yaitu 2003, 2004, dan 2005. Isin
> > rownya hanya header dan row yang pada kolom makanan sesuai dengan nama
> > filenya.
> > Terima Kasih,
> > Akbar Jamaluddin Arsyad
| tiap tanggal gajian, order buku "mengapa boss benci chart anda |
| membludak :) ayo2 pesan yang belum punya.... |
| 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 |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário