Membuat Validasi Input Data Ganda Melalui Pesan di UserForm

Jika Anda membuat sebuah input data melalui UserForm yang nantinya hasil entri dimasukan ke dalam Sheet tentu tidak ingin bahwa data yang di input terjadi duplikasi alias data ganda. Hal ini akan menjadi permasalahan ketika input data ganda.

Simak tulisan mengenai Form Input Data Siswa Berbasis Excel Versi Update Maret 2015 dengan VBA

Posting kali ini terinspirasi dari salah satu komentar yang masuk melalui link diatas dan mudah-mudahan ini akan menjadi salah satu jawaban dari pertanyaan pengunjung setia Excel-Id. Lalu apa pertanyaannya

"bagaimana cara membuat data yang sudah di input tidak bisa di input lagi (double)..makasih..."

Pertanyaan dari Mas Donie Savitra ini akan saya jawab, bahwa untuk mengatasi hal tersebut misalnya saya mempunyai sebuah UserForm dengan 2 buah TextBox seperti berikut ini. Namun sebelumnya silakan tuliskan data angka pada kolom A tepatnya di cell A1 sampai dengan A10 dengan data 1, 2, 3, 4, 5, 6, 7, 8, 9, 10

Dari UserForm diatas silakan klik kanan kemudian pilih View Code

Kemudian setelah itu silakan tuliskan Script dibawah ini

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Application.CountIf(Range("A:A"), TextBox1) > 0 Then
MsgBox "Data Sudah Ada"
End If

End Sub

Dariscript VBA diatas bahwa apabila TextBox1 keluar maka akan memanggil data atau kolom A apabila data yang dimasukan pada TextBox1 ternyata ada yang sama misalnya saya masukan angka 2 maka akan setelah kursor dipindahkan ke Textbox2 akan muncul sebuah pesan bahwa "Data Sudah Ada".

Hal ini setidaknya akan memperingatkan kepada kita bahwa data yang dimasukan atau di Input sudah pernah di entri sebelumnya sehingga kita tidak usah lagi mengentri data yang sama.

Demikian, Mas Doni Savitra semoga bisa membantu dan terimakasih telah berkunjung ke blog ini

Tweet