Solusi Mencegah Input Data Ganda

Input data ganda memang terkadang terlupakan dalam mengolah atau mengentri data yang kita masukan ke dalam Ms. Excel. Tentu bagi sebagian orang hal ini akan bermasalah ketika adanya duplukasi data ganda dan akan lebih baik Anda harus mengantisipasi terjadinya duplikasi data ganda. Sebanrnya untuk mencegah terjadinya entri data ganda ada banyak cara salah satunya adalah dengan validasi data, namaun saya akan membahas bagaimana cara mencegah input/entri data ganda dengan menggunakan macro / VBA.

langkah-langkah untuk mencegah terjadinya entri data ganda yaitu silakan Anda masuk ke dalam VBA editor dengan menekan tombol ALT+F11 kemudian pada Sheet1(Sheet1) silakan ketikkan script VBA / coding berikut

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Value
    Case "": Case Else
        If Not Application.Intersect(Target, [A:A]) Is Nothing Then ' Silakan ganti kolom
            Select Case Application.WorksheetFunction.CountIf([A:A], Target)
            Case 1: Case Else
                Ditemukan = Application.WorksheetFunction.Match(Target, [A:A], 0)
                alamat = "Data sudah ada pada cell $A$" & Ditemukan & _
                Chr(10) & "Silakan masukan data lain"
                myDefault = Target
                Inputdata = InputBox(Prompt:=alamat, Default:=myDefault, Title:="Peringatan")
                Target = Inputdata
            End Select
        End If
    End Select
End Sub


Coba perhatikan coding diatas, terdapat tagert A:A hal ini akan menentukan Anda apakah anda akan mencegah data ganda pada range / kolom apa ? Pada contoh ini saya mencegah data ganda pada kolom A Anda dapat merubah atau menentukan sendiri dimana pencegahan entri data ganda tersebut dilakukan.

Untuk mengetes apakah berhasil atau tidak silakan masuk ke Sheet1 dan ketikkan di cell A1 data sembarang misalnya A1, A2, A3, A4, A2

Data A2 sudah ada pada cell A2 silakan masukan data lain, sebuah pesan yang tampil akibat Anda memasukan data yang sama dan dimasukan kembali, hal ini akan berulang-ulang apabila Anda tetap memasukan data yang sama pada kolom A.

Baca Juga tulisan

Cara Menghapus Data Ganda / Duplicate

Mencari Data Ganda dengan Rumus

Bagaimana Cara Memberi tanda Ganda pada data yang sama

Memberi tanda Ganda dengan Macro VBA


Referensi diatas bisa Anda pelajari dan ternyata duplikasi data ganda memang sangat bermasalah dalam pengolahan data di Ms. Excel.

Semoga bermanfaat

Tweet