√ Menciptakan Validasi Input Data Ganda Melalui Pesan Di Userform

Jika Anda menciptakan 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 dikala input data ganda.

Simak goresan pena 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 tanggapan dari pertanyaan pengunjung setia Excel-Id. Lalu apa pertanyaannya

"bagaimana cara menciptakan data yang sudah di input tidak dapat di input lagi (double)..makasih..."

Pertanyaan dari Mas Donie Savitra ini akan aku jawab, bahwa untuk mengatasi hal tersebut contohnya aku memiliki sebuah UserForm dengan 2 buah TextBox menyerupai berikut ini. Namun sebelumnya silakan tuliskan data angka pada kolom A tepatnya di cell A1 hingga 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 sesudah 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 contohnya aku masukan angka 2 maka akan sesudah 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 biar dapat membantu dan terimakasih telah berkunjung ke blog ini
Sumber http://www.excel-id.com/