Cara Menampilkan Pesan Jikalau Data Yang Dientrikan Ganda (Double)

Mengolah daya Ms. Excel tak terlepas dari entry data secara vertikal hal ini dinamakan dengan data satu field. Biasanya Anda entri data yang banyak memakai Ms. Excel nah tidak menuntut kemungkinan data yang Anda entrikan mengalami data duplikat (ganda).

Menghandle data yang dianggap ganda tentunya penting sekali dalam entri data dalam database yang diketikkan di Ms. Excel hal ini akan mengakibatkan kesalahan dan tidak validnya data dalam rekap datanya. Jelas Anda tentu perlu kehati-hatian

Baca:
Cara Membuat Validasi Data

Solusi untuk mengatasi hal tersebut yakni Anda harus menawarkan peringatan berupa pesan bahwa data yang dientrikan yakni data ganda. Disini sedikit kita gunakan coding VBA untuk mengatasinya dan berikut coding untuk menampilkan pesan data ganda.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, r As Range, msg As String, x As Range
    Set rng = Intersect(Columns(1), Target)
    If Not rng Is Nothing Then
        Application.EnableEvents = False
        For Each r In rng
            If Not IsEmpty(r.Value) Then
                If Application.CountIf(Columns(1), r.Value) > 1 Then
                    msg = msg & vbLf & r.Address(0, 0) & vbTab & r.Value
                    If x Is Nothing Then
                        r.Activate
                        Set x = r
                    Else
                        Set x = Union(x, r)
                    End If
                End If
            End If
        Next
        If Len(msg) Then
            MsgBox "Data Ganda" & msg
            x.ClearContents
            x.Select
        End If
        Set rng = Nothing
        Set x = Nothing
        Application.EnableEvents = True
    End If
End Sub

Coding diatas diterapkan pada mekanisme worksheet_change artinya bila ada aktifitas atau perubahan pada worksheet yang ditentukan pada coding tersebut dan data yang dientrikan yakni ganda maka munculah pesan info bahwa data yakni duplikat tetapi bila tidak ditemukan data ganda maka diabaikan.

Sebenarnya Anda dapat melaksanakan hal ini tanpa codingpun Anda dapat memakai kemudahan validasi data yang ada pada hidangan Data lalu pilih Data Validation. Silakan pilih mana yang termudah dan sesuai dengan kebutuhan.

Simak:
Cara Lain Mencegah Data Ganda

Perhatikan pesan yang muncul pada gambar diatas saat Anda mengetikkan nama "DADAN" di cell A5 maka munculah pesan "Data Ganda A5 DADAN".

Oke, itulah bagaimana cara menampilkan pesan bila ditemukan data ganda biar bermanfaat dan selamat mencoba.

Pelajari :
Cara Menghapus Data Ganda/Duplikat dengan Remove Duplicate

Related Posts