RE: ]] XL-mania [[ RE: Input file dari Summary

 

Wah malah tambah bingung Mas Kid, Otak saya buntu lantaran kebanyakan kerjaan,

Berikut ini saya kirimkan saja kembali gambaran keinginan saya

Agar Solusi yang sudah susah -susah dicarikan bisa match dengan keinginan saya.

 

Nggak enak ngrepotin minta bantu terus nih.

 

Tugas saya ngeprint PO request, Banyaknya setumpuk

 

Daftar PO Request yang mau di print ada di PO List

Di tiap PO Request Ada beberapa Cell yang dirubah dulu sebelum Print.

Meliputi :

Tanggal

Jumlah

Shift

dll.

 

Semua value bersumber di File Induk di PO List.

Data sumber kolomnya tersimpan Horizontal

Sel 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 List

 

Langkah2.

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 tersebut

 

Langkah 4.

Saya Print dan close file PO Request tersebut.

 

Dst

 

 

Kiranya ada yang bisa bantu bikinkan.

Sangat saya hargai bantuannya

Wasalam
Agung Widodo

 

---

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Mr. Kid
Sent: Tuesday, December 21, 2010 7:31 AM
To: XL-mania@yahoogroups.com
Subject: Re: ]] XL-mania [[ RE: Input file dari Summary

 

Hai 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 List

 

Berikut ini sudah saya buatkan makronya untuk menyalinkan data (Paste special Value)dari File PO list ke dalam file baru yang dibuka

 

Tampaknya 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 Sub

Nah 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 Summary

 

Para 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, Thanks

 

Tinggal bagaimana memindahkan datanya otomatis.

 

Silahkan buka File Tanya.xls dahulu di dalam lampiran,

Baru buka file PO List.xls

 

Disana dijelaskan lebih detail

 

Mohon bantuannya , please.

Wassalam

Agung Widodo

 

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 99

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___