Cara edit data dengan kriteria tertentu - Masih ingatkah anda saat mengerjakan soal latihan dibangku sekolah, dikira jawaban yang anda masukan sudah bear semua, ternyata setelah dikoreksi masih terdapat kesalahan, kesalahan ini mau tidak mau harus dirubah kejawaban yang benar, bersukurlah kalau masih bisa merubah jawaban yang salah menjadi jawaban yang benar tepat dan baik. Hal yang saya ceritakan diatas singkatnya adalah merubah jawaban yang salah kejawaban yang benar, proses ini bisa disebut dengan proses Update data jika menggunakan Istilah Database

Tak ubahnya jika anda sudah membuat entri data ribuan baris, kemudian anda kroscek ternyata masih ada entri yang salah, maka anda harus merubahnya kejalan yang benar, maksud saya merubah data yang salah menjadi data yang benar. Cara merubah data yang salah tadi ada caranya yaitu menggunakan beberapa baris kode macro bagaimana caranya ??

Sebelumnya silahkan lihat artikel Menampilkan data tertentu pada userform, silahkan klik disini, silahkan anda pahami

Cara edit data dengan kriteria tertentu

Kode macro Cara edit data dengan kriteria tertentu dengan kode macro Menampilkan data tertentu mempunyai kesamaan dan memang sama, perbedaanya hanya membalikan logika. Coba pahami logika yang akan saya paparkan dibwah ini

Logika Menampilkan data tertentu yaitu menampilkan data yang ada dalam tabel data kedalam form ( mengambil data untuk ditampilkan)
Logika edit data dengan kriteria tertentu yaitu mengembalikan data dari form kedalam tabel data ( Menampilkan untuk ditempelkan ketempat semula )
Kedua duanya mempunyai satu syarat yang harus dipenuhi yaitu data pada tabel yang akan ditampilkan atau diedit harus sesuai dengan kriteria yang disebutkan dalam form

Saya pernah menulis pernyataan bahwa modal utama seorang programer adalah menguasai LOGIKA dengan baik, karena percuma saja anda menghafal ribuan syntax dan rumus akan tetapi logika anda kacau balau, maka sampai sampai ada orang membuat sebuah aplikasi sampai memakan ratusan Sheet, kalau sudah ratusan sheet sudah pasti memakai ratusan ribu kolom ( ingat kolom bukan baris ) belum selsai sampai disitu biasanya orang yang sering memakai rumus LEFT RIGHT untuk memisahkan tanggal lahir dengan tempat lahir dan semacamnya, orang inilah yang salah belajar excel dari awal. Kalu curhatan ini saya teruskan maka tidak ada habis habisnya bisa bisa anda malah uring uringan soalnya mungkin orang yang saya maksud adalah anda :)

Yah begitulah namanya orang lagi belajar pasti menemukan kesalahan, bohong kalau "Orang mahir masih membaca artikel ini"

Cara edit data dengan kriteria tertentu

Langsung saja, saya amenganggap anda mempunyai tabel data sebagaimana gambar dibawah ini, atau mungkin ada baiknya anda mendownload file sampel pada link download dibawah ini untuk memulai membuat edit data dengan kriteria tertentu


Download - File latihan

Buka workbook hasil download
Anda akan menemukan tabel data di sheet1, mulai dari kolom A-E (5 Kolom)
Kolom A merupakan Kolom Primary Key, apa itu Primary Key ?? Primary key adalah suatu nilai dalam basis data yang digunakan untuk mengidentifikasi suatu baris dalam tabel. Nilai dari primary key adalah unik
Buat form dengan 5 kontrol textbox dan 1 tombol commandbutton
Lihat design form dibwah ini


Masukan kode macro dibawah ini kedalam event commandbutton Click

Private Sub CommandButton1_Click()
On Error Resume Next
Set ws = Sheets("Sheet1")
Set KunciLook = ws.Range("A3", ws.Range("A3").End(xlDown))
Set c = KunciLook.Find(TextBox1.Value, LookIn:=xlValues, MatchCase:=False)
c.Offset(0, 1).Value = TextBox2.Value
c.Offset(0, 2).Value = TextBox3.Value
c.Offset(0, 3).Value = TextBox4.Value
c.Offset(0, 4).Value = TextBox5.Value
End Sub

Masukan kembali kode Lookup ini kedalam Event Textbox1, textbox pertama yang berfungsi sebagai Primary Key

Private Sub TextBox1_Change()
Set ws = Sheets("Sheet1")
'On Error Resume Next 'meski error lanjut terus
Set KunciLook = ws.Range("A3", ws.Range("A3").End(xlDown))
'KunciLook = PRIMARY KEY KOLOM A
'KunciLook merupakan primary key, pada kolom KunciLook ini _
ngga boleh ada data yang sama , jadi harus bener bener berbeda tiap baris pada kolom KunciLook
Set c = KunciLook.Find(TextBox1.Value, LookIn:=xlValues, MatchCase:=False)
' ini merupakan modul untuk mencari, mencari value pada kolom KunciLook
' jika ditemukan value yang sama anata kolom KunciLook dengan Textbox1 _
maka value pada textbox2 dst valuenya juga akan ketemu
TextBox2.Value = c.Offset(0, 1).Value
' Value Textbox2 merupakan kolom pertama setelah kolom KunciLook
TextBox3.Value = c.Offset(0, 2).Value
' Value Textbox3 merupakan kolom kedua setelah kolom KunciLook
TextBox4.Value = c.Offset(0, 3).Value
TextBox5.Value = c.Offset(0, 4).Value
'KODE INI SAYA AMBIL DARI EXYEZ sehingga lengkap dengan keteranganya :), dapatkan exyez hanya 230.000 saja (Harga naik)
End Sub

Silahkan bedaka kode edit data dengan lookup diatas, hanya dibalik saja , iya tooh ????


Tekan F5 untuk mecoba menjalankan kode macro

Cara edit data dengan kriteria tertentu - Eksekusi

Tekan Tombol F5 pada keybord anda untuk memanggil Form Edit data
Ketikan kode pemasok kedalam Textbox1
Jika kode pemasok yang anda masukan benar pasti ke empat kolom lainnya akan otomatis menampilkan informasi sesuai kode pemasok yang anda ketikan pada Textbox1
Untuk mengedit data , silahkan rubah informasi yang ada pada textbox mulai dari textbox2 sampai textbox5, dan textbox1 tidak boleh dirubah sama sekali, karena kalau anda rubah pasti akan menggagalkan proses edit data
Klik Update untuk mengedit data
Selesai, semoga bermanfaat :)

Oh ya saya minta maaf karena tidak bisa upload sampel dari tutorial ini, akan tetapi bila anda mengikluti dengan baik pasti berhasil, jangan lupa share dan ikuti IG Admin Wasis Zain, atau like fanpage Asis10.com
1 comment