Lagi-lagi membahas data ganda, ya alasannya Ms. Excel memang merupakan aplikasi pengolahan data dan data yang dientrikan tidak sedikit sehingga ada kemungkinan data ada yang ganda. Membahas data ganda memang sudah pernah saya posting sebelumnya namun kali ini saya akan memakan cara lain untuk mengatasi data ganda atau dengan kata lain duplikat data.
Cara yang saya pakai pada posting kali ini ialah Excel akan menolak data jikalau data yang dientrikan memang benar-benar ganda atau sudah pernah dientrikan sebelumnya. Untuk menolak data ganda disini akan diinformasikan melalui sebuah pesan warta bahwa data ganda telah dientrikan.
Baca :
Pada posting terdahulu juga pernah saya bahas bagaimana cara mengatasi data ranking yang ganda dan tentunya ini bukan bahasa kali ini namun jikalau Anda membutuhkan materi kembali silakan simak dan baca kembali goresan pena saya Rumus Rank Supaya Tidak Ganda pada Excel 2010
Oke, pada artikel kali ini saya akan menciptakan prosedure pada worksheet_change artinya dimana ada perubahan pada worksheet maka koding akan dijalankan. Baiklah silakan copy pasteka coding dibawah ini untuk menolak data ganda dengan pesan pada worksheet1
Cara yang saya pakai pada posting kali ini ialah Excel akan menolak data jikalau data yang dientrikan memang benar-benar ganda atau sudah pernah dientrikan sebelumnya. Untuk menolak data ganda disini akan diinformasikan melalui sebuah pesan warta bahwa data ganda telah dientrikan.
Baca :
Macro Excel || Memberi Tanda Ganda pada Excel
Pada posting terdahulu juga pernah saya bahas bagaimana cara mengatasi data ranking yang ganda dan tentunya ini bukan bahasa kali ini namun jikalau Anda membutuhkan materi kembali silakan simak dan baca kembali goresan pena saya Rumus Rank Supaya Tidak Ganda pada Excel 2010
Oke, pada artikel kali ini saya akan menciptakan prosedure pada worksheet_change artinya dimana ada perubahan pada worksheet maka koding akan dijalankan. Baiklah silakan copy pasteka coding dibawah ini untuk menolak data ganda dengan pesan pada worksheet1
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
Nah, sesudah akibat silakan jalankan dan coba Anda entrikan data di kolom A dan coba dengan entri data yang sama maka sistem akan menolak data ganda dengan kata lain Excel akan memunculkan pesan data ganda pada alamat cell yang dianggap ganda.
Nah, saat Anda mengetikan data nama AHMAD maka akan muncul sebuah pesan data ganda A5 "AHMAD" secara otomatis. Sebenarnya hal ini juga dapat dilakukan dengan memakai Validasi data (Data Validation" yang sudah disediakan pada sajian Ms. Excel.
Okeh, itu saja biar bermanfaat dan selamat mencoba.
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
Nah, sesudah akibat silakan jalankan dan coba Anda entrikan data di kolom A dan coba dengan entri data yang sama maka sistem akan menolak data ganda dengan kata lain Excel akan memunculkan pesan data ganda pada alamat cell yang dianggap ganda.
Nah, saat Anda mengetikan data nama AHMAD maka akan muncul sebuah pesan data ganda A5 "AHMAD" secara otomatis. Sebenarnya hal ini juga dapat dilakukan dengan memakai Validasi data (Data Validation" yang sudah disediakan pada sajian Ms. Excel.
Okeh, itu saja biar bermanfaat dan selamat mencoba.
End If
End Sub
Nah, sesudah akibat silakan jalankan dan coba Anda entrikan data di kolom A dan coba dengan entri data yang sama maka sistem akan menolak data ganda dengan kata lain Excel akan memunculkan pesan data ganda pada alamat cell yang dianggap ganda.
Nah, saat Anda mengetikan data nama AHMAD maka akan muncul sebuah pesan data ganda A5 "AHMAD" secara otomatis. Sebenarnya hal ini juga dapat dilakukan dengan memakai Validasi data (Data Validation" yang sudah disediakan pada sajian Ms. Excel.
Okeh, itu saja biar bermanfaat dan selamat mencoba.
End Sub
Nah, sesudah akibat silakan jalankan dan coba Anda entrikan data di kolom A dan coba dengan entri data yang sama maka sistem akan menolak data ganda dengan kata lain Excel akan memunculkan pesan data ganda pada alamat cell yang dianggap ganda.
Nah, saat Anda mengetikan data nama AHMAD maka akan muncul sebuah pesan data ganda A5 "AHMAD" secara otomatis. Sebenarnya hal ini juga dapat dilakukan dengan memakai Validasi data (Data Validation" yang sudah disediakan pada sajian Ms. Excel.
Okeh, itu saja biar bermanfaat dan selamat mencoba.
Related Posts
- Cara Mewarnai Jumlah Data/Nilai Terbesar Dan Terkecil Pada Ms. Excel Dengan Conditional FormatingHai sahabat Excel-ID, kali ini saya akan membahas sebuah pertanyaan melalui email katanya mengenai problem excel bagaimana cara mewarnai sebuah data ...
- 142 Cara Mencar Ilmu Excel Yang Perlu DiketahuiHai sobat Excel-ID resah dengan bagaimana berguru Ms. Excel, atau Anda mencari cara mengenai berguru Ms. Excel? tentunya cara yang paling gampang yai ...
- Cara Menghapus Data Validasi Di Ms. Excel Dengan MudahHalo sobat Excel-ID masih ingatkan Anda dengan tutorial yang pernah saya buat wacana validasi data? Nah jikalau Anda pernah menciptakan dan memprakte ...
- Cara Membatasi Jumlah Abjad Hanya 10 Abjad Yang Dapat DientriHalo sahabat Excel-ID bahagia sekali saya masih sanggup menyebarkan tutorial Ms. Excel dan menyebarkan dengan Anda. Pada kesempatan kali ini saya aka ...
- Cara Menonaktifkan Fungsi Drag And Drop Cell (Tarik Rumus Excel)Pernahkah Anda mengalami dikala menciptakan rumus di Ms. Excel fungsi drag and drop nya tidak berjalan dengan normat? wah ancaman kalo demikian Anda ...
- Cara Menghapus Hyperlink Pada Ms.Excel Melalui VbaHyperlink ialah hubungan antara satu bab dengan bab lain, di Ms. Excel hyperlink banyak dipakai untuk menghubungkan data supaya kita lebih gampang me ...
