KODE MACRO MENCEGAH INPUT DATA GANDA DI EXCEL (VBA EXCEL)

Mencegah Data Ganda Saat Input Data Lewat Userform.
Anda dapat menggunakan beberapa jenis kode macro excel untuk Mencegah Data Ganda Saat Input Kedalam Sheet/Database.
Pada kesempatan ini, kami memilih kode macro dibawah ini untuk mencegah data ganda saat input data melalui userform excel.
Berikut langkah-langkahnya :

1. Buka excel
2. Tekan ALT+F11 pada keyboard Anda atau klik menu Developer > Visual Basic
3. Buat 1 buah userform yang didalamnya terdapat 3 buah label dan 3 buah textbox dan 1 buah commandbutton

4. Copy kode makro dibawah ini
With Sheets("Sheet1").Range("A1:A1000")
Set c = .Find(TextBox1.Value, LookIn:=xlValues)
If c Is Nothing Then
Sheets("Sheet1").Range("D1") = 1
Else
MsgBox "Maaf " & TextBox1 & " sudah ada"
Exit Sub
End If
End With
Dim kosong As Long
Sheet1.Activate
kosong = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(kosong, 1).Value = TextBox1.Value
Cells(kosong, 2).Value = TextBox2.Value
Cells(kosong, 3).Value = TextBox3.Value
5. Pastekan kedalam commandbutton 1

Untuk mencobanya silahkan tekan F5 pada keyboard Anda atau klik RUN.
Kode macro untuk mencegah data ganda saat input sebagai berikut :

With Sheets("Sheet1").Range("A1:A1000")
Set c = .Find(TextBox1.Value, LookIn:=xlValues)
If c Is Nothing Then
Sheets("Sheet1").Range("D1") = 1
Else
MsgBox "Maaf " & TextBox1 & " sudah ada"
Exit Sub
End If
End With

Sedangkan kode macro untuk input data userform ke dalam database/sheet sebagai berikut :

Dim kosong As Long
Sheet1.Activate
kosong = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(kosong, 1).Value = TextBox1.Value
Cells(kosong, 2).Value = TextBox2.Value
Cells(kosong, 3).Value = TextBox3.Value

Share :