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 / DuplicateMencari 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/