RE: [belajar-excel] Update Tabel dari sheet lain...

[zainul ulum <<yahoo>>]

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-

 

 

<<image001.jpg>>

<<image002.jpg>>