VBA Excel Menolak Input Data Ganda

• Tips Menolak Input Data Ganda Dengan VBA Macro Excel
• VBA Excel Menolak Data Ganda

Dalam sebuah Aplikasi Yang Berbasis Microsoft Excel terdapat menu-menu untuk melakukan aktifitas, termasuk Input Data.

Pada kesempatan kali ini Dolanan Excel ingin membahas Gimana Sih Rumus VBA Excel Untuk Menolak Input Data Ganda ?. Yok simak tutorial dibawah ini

Membuat Database

1. Langkah pertama kita buat database sederhana seperti dibawah ini

	A	B	C	D	E	F
1	Kolom 1	Kolom 2	Kolom 3	Kolom 4	Kolom 5	Kolom Bantu
2
3
4
5
6

2. Pada Cell F2, masukan rumus dibawah ini, dan Drug hingga kebawah

=A2&B2&C2&D2&E2

3. Ganti nama Sheet1 menjadi DB_Barang

Kemudian lakukan langkah selanjutnya dengan cara membuat Form input

Membuat Form Input

Contoh Form Input Data

Untuk membuat Form Input, Silahkan masuk kedalam Jendela Vusial Basic for Application (VBA Editor) dengan car tekan Alt+f11 atau dengan cara Pilih Menu Developer > Visual Basic .

1. Buatlah 1 buah userform
2. 5 buah label
3. 5 buah textbox
4. dan 1 buah commandbutton

Sehingga tampak seperti gambar diatas.

Selanjutnya silahkan Masukan Kode Macro Excel seperti langkah-langkah dibawah ini.

Kode Macro Menolak Input Data Ganda Excel

1. Klik 2x Commandbutton (tombol Simpan)
2. Masukan Kode Macro dibawah ini kedalam Commandbutton tersebut

Dim pesan As Integer
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DB_Barang")
pesan = MsgBox("Data Barang akan disimpan???", vbYesNo + vbQuestion, "Peringatan")
If pesan = vbNo Then
Exit Sub
End If
If pesan = vbYes Then

iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With Sheets("DB_Barang").Range("F:F")
Set c = .Find(kode & nama & beli & jual & laba, LookIn:=xlValues)
If c Is Nothing Then

Else
MsgBox "Maaf, Kode " & kode & " sudah terdaftar, silahkan pilih Kode Barang yang lain", _
        vbOKOnly + vbInformation, "Kode Sudah Terdaftar"
Exit Sub
End If
End With

ws.Cells(iRow, 1).Value = Me.kode.Value
ws.Cells(iRow, 2).Value = Me.nama.Value
ws.Cells(iRow, 3).Value = Me.beli.Value
ws.Cells(iRow, 4).Value = Me.jual.Value
ws.Cells(iRow, 5).Value = Me.laba.Value
End If
MsgBox "Berhasil Tambah Barang", _
    vbOKOnly + vbInformation, "Berhasil"
nama.SetFocus

3. Tekan RUN untuk mencobanya

Simpan

Jika Anda melakukan langkah-langkah diatas dengan benar dan penempatan kode juga benar maka, system akan berjalan normal sesuai intruksi yang Anda berikan melalui Kode Macro tersebut.

Selanjutnyas silahkan Simpan dengan nama "Kode Macro Menolak Input Data Ganda Di Userform Excel dan type nya pilih Excel Binary Workbook (.xlsx)

Kesimpulan

banyak sekali Cara Menolak Data Ganda Di Excel, salah satunya menggunakan kode macro excel diatas.

File Penerapan

Kami juga memikirkan pemahaman dari semua pengunjung, sehingga selain artikel, kami juga memberikan file penerapan untuk pemahaman mendalam.

Nama File	VBA Excel Menolak Input Data Ganda
Extensi	.xlsb
Size	17 kb
Berkas

Terimakasih sudah berkunjung :)

Bantu kami meningkatkan kualitas blog ini dengan mengisi survei 1 menit.

©2017| dolananexcel

Share :