Mbak Siti dan pak Hendrik, Menambah wawasan saya.
Sebelumnya code yang aku buat alurnya adalah:
1. cari id di [sheet1] yang mempunyai id nya sama dengan [sheet2]
2. jika ditemukan id tersebut, row di [sheet1] dihapus
3. copy data [sheet2] ke [sheet1]
Procedure yang aku buat untuk mencari id dan menghapus record adalah:
Public Sub DeleteRecordInDatabaseWhichHasSame(findWhat As String, _
atColumn As Integer, onSheet As Worksheet)
Dim c As Range
With onSheet.UsedRange.Columns(atColumn)
Set c = .Find(findWhat, LookIn:=xlValues, SearchOrder:=xlByColumns)
If Not c Is Nothing Then
c.EntireRow.Delete shift:=xlUp
Exit Sub
End If
End With
End Sub
Sedangkan untuk copy data menggunakan method range.copy destination seperti di
code pak Hendrik.
Terimakasih banyak atas masukannya.
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On
Behalf Of hendrik karnadi
Sent: Wednesday, September 28, 2011 10:39 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Update Tabel dari sheet lain...
Pak Zainal,
Ada sedikit kesalahan teknis dalam No ID pada Sheet Update, tertulis 1 untuk C
seharusnya 3
Berikut adalah lampiran file sebelum dan sesudah Update.
Salam,
Hendrik Karnadi
_____
From: "zainul ulum <<yahoo>>" <zainul_u...@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 28 September 2011 9:53 AM
Subject: [belajar-excel] Update Tabel dari sheet lain...
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>>
