Pada file lampiran yang lalu,
ke VBE cari module1
cari tulisan
AdaError:
tambahkan dibaris sebelumnya
wbkMdl.Sheets(1).PrintOut preview:=True
copas aja biar gak pusing.
Asumsinya : file polist pada folder yang sama dengan file modelnya.
Regards.
Kid.
Wah malah tambah bingung Mas Kid, Otak saya buntu lantaran kebanyakan kerjaan,Berikut ini saya kirimkan saja kembali gambaran keinginan sayaAgar Solusi yang sudah susah -susah dicarikan bisa match dengan keinginan saya.Nggak enak ngrepotin minta bantu terus nih.Tugas saya ngeprint PO request, Banyaknya setumpukDaftar PO Request yang mau di print ada di PO ListDi tiap PO Request Ada beberapa Cell yang dirubah dulu sebelum Print.Meliputi :TanggalJumlahShiftdll.Semua value bersumber di File Induk di PO List.Data sumber kolomnya tersimpan HorizontalSel lokasi tujuan letaknya nyebar.Maunya saya :Langkah 1.Sedang Buka PO List nih, Klik Nama salah satu file,File tersebut langsung terbuka..(ini sudah OK)(Yang belum OK) :Value-value di PO request berubah sendiri sesuai data di Row aktif di File PO ListLangkah2.Saya tinggal Print dan close file PO Request tersebut.Langkah 3.(Di PO List nih),Klik Nama file berikutnya yang dibawahnya,File PO request yang dimaksud langsung terbuka dan terupdate sendiri sebagaimana langkah 1 dengan value yang sesuai dengan row tersebutLangkah 4.Saya Print dan close file PO Request tersebut.DstKiranya ada yang bisa bantu bikinkan.Sangat saya hargai bantuannyaWasalam
Agung Widodo
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Mr. Kid
Sent: Tuesday, December 21, 2010 7:31 AMSubject: Re: ]] XL-mania [[ RE: Input file dari SummaryHai Agung,
Misal A5 berisi nama file (tanpa extension)
Windows(range("a5").value & ".xls").Activate
Jika divariabelkan :
dim sFile as string
sfile=range("a5").value & ".xls"
windows(sfile).activate
Jika sumber data di file PO List.xls
Workbook tujuan telah terbuka.
Nama workbook di A5 file PO List.xls data yang dicopy ada di kolom C
Z31 cell tujuan di workbook lain dengan nama isi cell A5 file PO List
'copy paste all
range("c5").copy workbooks( range("a5").value & ".xls" ).sheets(1).range("z31")
'copy paste special -- misal values
range("c5").copy
workbooks( range("a5").value & ".xls" ).sheets(1).range("z31").pastespecial xlpastevalues
'tulis langsung
workbooks( range("a5").value & ".xls" ).sheets(1).range("z31").value = range("c5").value
Untuk kegiatan yang berulang, gunakan statement-statement loop seperti :
For Next, For Each Next, Do Loop, dsb
Penyusunan bebas ataupun karena diputuskan harus dalam komposisi kolom yang tidak sama antara source dan target, maka petakan sebagai array.
Semoga file terlampir bisa memberi gambaran yang lebih baik.
Salam.
Kid.
2010/12/20 <agung_widodo@sanyo.com>
Menyambung dari email terdahulu,tentang menyalinkan Isi dari Summary dalam PO ListBerikut ini sudah saya buatkan makronya untuk menyalinkan data (Paste special Value)dari File PO list ke dalam file baru yang dibukaTampaknya panjang, padahal cuma nyalin data satu persatu dipindahkan ke buku baru.Sub Pindahdata()
'
' Pindahdata Macro
' Macro recorded 18/12/2010 by AGUNG
''
Range("A5").Select
Selection.Copy
Windows("F1893.xls").Activate
Range("I3").Select
Selection.PasteSpecial Paste:=xlPasteValues
Windows("PO List.xls").Activate
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("F1893.xls").Activate
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues
Windows("PO List.xls").Activate
Range("E5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("F1893.xls").Activate
Range("I6").Select
Selection.PasteSpecial Paste:=xlPasteValues
Windows("PO List.xls").Activate
Range("F5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("F1893.xls").Activate
Range("I4").Select
Selection.PasteSpecial Paste:=xlPasteValues
Windows("PO List.xls").Activate
Range("G5").Select
Selection.Copy
Windows("F1893.xls").Activate
Range("I5").Select
Selection.PasteSpecial Paste:=xlPasteValues
Windows("PO List.xls").Activate
Range("I5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("F1893.xls").Activate
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues
Windows("PO List.xls").Activate
Range("K5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("F1893.xls").Activate
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues
End SubNah Masalahnya File tempat Paste value tuh ganti-ganti,
Nggak di file F1893.xls saja
Bagaimana menjadikannya sebagai Variable?
Best regards
Agung Widodo
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of agung_widodo@sanyo.com
Sent: Friday, December 17, 2010 7:41 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ Input file dari SummaryPara Pemerhati XL yang baik-baik hatinya.Saya mohon bantu makro untuk menginputkan data yang ada di FIle Rangkuman,Data dipindahkan ke kapling masing-masing sesuai nama file yang dibuka sesuai nama file di Rangkuman.Otomatisasi membuka File sudah dibuatkan Sdri STDVi, ThanksTinggal bagaimana memindahkan datanya otomatis.Silahkan buka File Tanya.xls dahulu di dalam lampiran,Baru buka file PO List.xlsDisana dijelaskan lebih detailMohon bantuannya , please.Wassalam
Agung Widodo
| sOrRy dOrRy j3K... m0m0dS LaGi HeC-tiC... waQaQaQa... |
| 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