Tecnologia, programação e muito Visual FoxPro.

terça-feira, 21 de dezembro de 2010

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

 

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.


2010/12/21 <agung_widodo@sanyo.com>
 

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 AMSubject: 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

 



__._,_.___
Recent Activity:
+-:: 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.


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


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

.

__,_._,___

Nenhum comentário:

Arquivo do blog