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 (3)

Recent Activity:

• New Members 93

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              |
+-------------------------------------------------------------------+

MARKETPLACE

Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.

---

Be a homeroom hero! Help Yahoo! donate up to $350K to classrooms!

---

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

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

.

__,_._,___