Ok mas, Ijin untuk dipelajari lebih dahulu.. Wassalam -zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Kid Mr. Sent: Thursday, September 29, 2011 10:43 AM To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Update Tabel dari sheet lain... Pada xl2003 tidak ada remove duplicate. Jadi perlu kolom bantu (temporary) yang di-create dengan vba, sebagai flag record yang akan di delete. Proses delete dibantu dengan autofilter lebih dulu. Memang tidak secepat menggunakan remove duplicate, tetapi sepertinya untuk data updater yang banyak, cukup cepat juga (ya cepat karena dengan i5, gimana jika P4 ya). Dengan konsep penggunaan kolom bantu seperti ini, maka dimungkinkan juga untuk update data dengan banyak kriteria, seperti kemampuan remove duplicate. Kelebihan konsep ini dibanding fitur remove duplicate adalah bisa diterapkan pada data yang membolehkan adanya key fields yang duplicate. Konsep ini membutuhkan formula yang sederhana (jika mungkin, tanpa array formula). Seperti countif untuk 1 kriteria dan Match untuk multi kriteria. Agar match tidak membutuhkan array formula, maka digunakan named range yang menjadi array_lookup, yang disusun dengan VBA Biasanya, sebuah prosedur yang melibatkan formula dalam jumlah banyak, kalkulasi excel di-manual-kan untuk meningkatkan kecepatan proses. Justru pada konsep penggunaan kolom bantu seperti ini, malah harus automatic untuk mendapatkan kecepatan proses yang baik. Ketika workbook telah berisi banyak formula yang bersifat volatile, maka memanualkan setting kalkulasi excel tetap lebih baik dibanding tetap bekerja pada setting automatic. Wassalamualaikum Wr. Wb. Kid. 2011/9/29 zainul ulum <<yahoo>> <zainul_u...@yahoo.com> Makasih mas Kid, RemoveDuplicates apakah ada di excel 2003? Salam -zainul- From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Kid Mr. Sent: Thursday, September 29, 2011 7:28 AM To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Update Tabel dari sheet lain... Mas Zain, File terlampir mencoba memanfaatkan fitur remove duplicate. Karakteristik remove duplicate adalah mempertahankan data pertama yang ditemukan. Jadi prosesnya didahului dengan copas seluruh data peng-update ke sheet data di awal record sheet data (insert copied cells) Bunyinya si prosedur begini : Public Sub UpdateData() Dim rngInput As Range, rngData As Range Dim lRowsInput As Long 'init Set rngData = Sheets("data").Range("a1") Set rngInput = Sheets("update").Range("a1").CurrentRegion lRowsInput = rngInput.Rows.Count - 1 'error trap :: no data If lRowsInput = 0 Then MsgBox "Tidak ada data." Exit Sub End If 'proses update rngData.Offset(1).Resize(lRowsInput).EntireRow.Insert 'siapkan baris paste rngInput.Offset(1).Resize(lRowsInput).Copy rngData.Offset(1) 'copas rngData.CurrentRegion.RemoveDuplicates Array(1, 2), xlYes 'remove duplicate rngData.CurrentRegion.Sort rngData, xlAscending, Header:=xlYes 'sort (bila perlu) End Sub Wassalam. Kid. 2011/9/28 zainul ulum <<yahoo>> <zainul_u...@yahoo.com> Be-exceler, Misalnya saya mempunyai table di [sheet 1] dan [Sheet 2]. Table di [sheet 1] akan diupdate berdasarkan record dari [Sheet 2]. Bagaimanakah codenya (macro) agar record di [sheet 1] bisa terupdate berdasarkan perubahan di [Sheet 2]? Terimakasih, -zainul-
