Dear pak Heru,
coba tulis script ini ke dalam sebuah module VBE
Option Explicit
Sub UpDateData()
Dim hdId As Range, rgId As Range, cId As Range
Dim cMatch As Integer, lRow As Long
Application.ScreenUpdating = False
Set hdId = Range("a1")
Set rgId = Range(hdId.Offset(1), hdId.End(xlDown))
For Each cId In rgId
With Sheets("data A")
cMatch = Application.WorksheetFunction.CountIf(.Range("a:a"),
cId)
If cMatch = 1 Then
lRow = Application.WorksheetFunction.Match(cId,
.Range("a:a"), 0)
If cId.Offset(, 3).Value <> .Cells(lRow, 4).Value Then
cId.Offset(, 3).Interior.ColorIndex = 6
End If
If cId.Offset(, 4).Value <> .Cells(lRow, 5).Value Then
cId.Offset(, 4).Interior.ColorIndex = 6
End If
Else
Range(cId, cId.End(xlToRight)).Interior.ColorIndex = 8
End If
End With
Next cId
Application.ScreenUpdating = True
End Sub
lalu insert sebuah shape di sheet "data A ok" dan assign macro di atas ke
dalam shape tersebut
Best Regards,
-Miss Jan Raisin-
Pada 5 Februari 2013 08.50, hendrik karnadi <[email protected]>menulis:
> **
>
>
> Coba dibuat kolom bantu berupa tanggal Input_Update yang kemudian bisa
> dijadikan dasar untuk sortir.
> Untuk melihat bagian atau sel mana yang diupdate saya masih belum
> menemukan caranya, barangkali ada rekan Be_Exceller lain yang bisa membantu.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* heru Purnomo <[email protected]>
> *To:* milis excel <[email protected]>
> *Sent:* Tuesday, 5 February 2013, 5:10
> *Subject:* [belajar-excel] update data yang jumlahnya ribuan
>
>
> selamat pagi, dear pakar excel
>
> saya kebingungan untuk mengupdate data yang jumlahnya ribuan
> setiap bulan data tersebut bertambah, atau data exsisting mengalami
> perubahan (update). jikalau tiap bulan saya update ke sistem (data dari
> awal yg jumlahnya puluhan ribu) maka akan memerlukan loading yang lama.
> saya masih kesulitan mencari data mana yang baru dan mengalami perubahan
> (terupdate). data yang baru dan mengalami perubahan saja yang sebetulnya di
> masukan kedalam sistem sehingga jumlahnya tidak terlalu banyak dan tidak
> memberatkan sistem.
>
> mudah2an ada teman2 yang bisa membantu
>
> thanks
> heru purnomo
>
>
>
>
