[belajar-excel] Digest Number 2683

Milis Belajar Microsoft Excel Group

1 New Message

Digest #2683

1a

Re: Code VBA mengkopi data berdasarkan header text/ judul kolom by "Odhy" odhyz83_assasaky

Message

1a

Re: Code VBA mengkopi data berdasarkan header text/ judul kolom

Fri Dec 6, 2013 7:39 pm (PST) . Posted by:

"Odhy" odhyz83_assasaky

Dear Mr. Kid,
 Begini pak...
Saya
inginmencopy data dari file luar (tetap file
excel), kemudian saya masukkan ke  workbook template ini, data yang ingin saya copy itu berdasarkan
header/judul kolom (bukan posisi kolom) karena terkadang posisi kolom pada file
luar itu berubah. data yang ingin saya copy itu yaitu dengan header : Plant,
Material dan ClosingBalQty.
 

Terima Kasih atas pencerahannya,
 
Odhy.

On Friday, December 6, 2013 11:39 PM, Mr. Kid <mr.nmkid@gmail.com> wrote:

 
Hai Odhy,

Bisa diperjelas bagaimana cara meng-copy manualnya ?

Jika isi file A berisi 5 record akan di copy ke file B berisi 19 record hanya pada kolom Kol1,kol9,kol13 saja, apa saja yang menjadi kolom-kolom kunci dari tabel data tersebut ?

Bagaimana nasib sisa 14 record yang sudah ada di file B ?

Wassalam,
Kid.

2013/12/4 Odhy <odhyz83_assasaky@yahoo.com>

> 
>Dear Para Master,
>1.         Dibawa ini code VBA yang saya gunakan untuk
mengcopy data pada kolom yang sudah saya tentukan, akan tetapi ternyata posisi
kolom yang saya copy posisinya berubah-rubah, yang ingin saya tanyakan
bagaimana caranya mengcopy kolom berdasarkan Header / judul kolom (3 kolom):
>Misalnya saya mau mengcopy semua data pada kolom |Plant|, |Material|,|ClosingBalQty|,
>Private Sub
CommandButton9_Click()
>FileTerpilih =
Application.GetOpenFilename _
> ("Excel 2003(*.xls),*.xls, Excel 2010
(*.xlsx),*.xlsx&quot;, Title:="Open file", MultiSelect:=True)
>    If VarType(FileTerpilih) = vbBoolean Then
> Exit Sub
>    End If
>    NamaFileUtama = ActiveWorkbook.Name
>    JumlahFile = UBound(FileTerpilih)
>    Application.DisplayAlerts = False
>    For i = 1 To JumlahFile
>    Workbooks.Open FileTerpilih(i)
>        With ActiveWorkbook.Worksheets(1)
>            Selection.AutoFilter Field:=3,
Criteria1:=1000
>            BarisTerakhirFilePilihan =
.Cells(.Rows.Count, 1).End(xlUp).Row
>            BarisTerakhirFileUtama =
Workbooks(NamaFileUtama).Worksheets(1) _
>            .Cells(Workbooks(NamaFileUtama).Worksheets(1).Rows.Count,
1).End(xlUp).Row
>.Range("A2:A100,A2:A100,X2:X100&quot;).Copy
> 
>//bagaimana mengcopy 3 kolom??
>
> 
>
>
>
> 
>End With
>
> 
>With
Workbooks(NamaFileUtama).Worksheets("DATA";)
>            Range("A4").PasteSpecial
Paste:=xlValues      
> End With
>            ActiveWorkbook.Close
>    Next i
>    Application.DisplayAlerts = True
>End Sub
>
>
>2.         Kalau saya menggunakan code : Application.Quit
maka semua workbook akan tertutup semua, atau kadang2 worbook yang lain
terhide, nah bagaimana caranya agar apabila menutup sebuah workbook menggunakan
code VBA hanya workbook tersebut yang tertutup/ diclose.
>
>Terima Kasih atas pencerahannya,
> 
>Odhy.

Reply to sender . Reply to group . Reply via Web Post . All Messages (9) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

8 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>