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

 

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

Recent Activity:

• New Members 97

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

.

__,_._,___