√ 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 dikala 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 ialah dengan validasi data, namaun saya akan membahas bagaimana cara mencegah input/entri data ganda dengan memakai macro / VBA.

langkah-langkah untuk mencegah terjadinya entri data ganda yaitu silakan Anda masuk ke dalam VBA editor dengan menekan tombol ALT+F11 lalu 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 memilih Anda apakah anda akan mencegah data ganda pada range / kolom apa ? Pada pola ini saya mencegah data ganda pada kolom A Anda sanggup merubah atau memilih 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 contohnya A1, A2, A3, A4, A2

Data A2 sudah ada pada cell A2 silakan masukan data lain, sebuah pesan yang tampil akhir 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 sanggup Anda pelajari dan ternyata duplikasi data ganda memang sangat bermasalah dalam pengolahan data di Ms. Excel.

Semoga bermanfaat
Sumber http://www.excel-id.com/