Coba lakukan langkah2 berikut ini:
- Ganti nama sheet2 menajdi Rekonsiliasi
- Copy Paste Value I_EMP Data Lama dan Data Baru pada kolom A dan B Sheet
Rekonsiliasi.
- Tekan tombol Alt F11 untuk masuk ke VBE Sheet dan copas macro ini pada
module1 (akan muncul secara otomatis pada saat kita menginsert module):
Sub Rekon()
Dim a, b, x, y As Range
Set a = Range(Range("A1"), Range("A1").End(xlDown))
Set b = Range(Range("B1"), Range("B1").End(xlDown))
a.Interior.Color = xlNone
b.Interior.Color = xlNone
For Each x In a
If WorksheetFunction.CountIf(b, x) = 0 Then
x.Interior.Color = vbRed
End If
Next x
For Each y In b
If WorksheetFunction.CountIf(a, y) = 0 Then
y.Interior.Color = vbGreen
End If
Next y
End Sub
Jangan lupa aktifkan macro sebelum menjalankannya.
Setelah macro dijalankan maka akan tampak warga merah pada sebagian data yang
pada kolom A (data yang hilang)
dan akan tampak warna hijau pada sebagian data yang ada pada kolom B (data yang
ditambahkan)
Selamat mencoba.
Salam,
HK
On Tuesday, 22 October 2013, 12:58, roy sumarna <[email protected]>
wrote:
salam exseler semua,
mohn bantuannya cara membandingkan data lama dengan data baru untk pemutakhiran
data. dimana dalam data baru tersebut ada yg hilang dan ada juga yg
nambah....dan isi dari kolom dan dari data data tersebut banyak
terma kasih
