√ Pencarian Melalui Textbox Untuk Menentukan Cell

Excel-id.com | Selamat berpuasa bagi yang menjalankannya, masih membahas mengenai bahan wacana excel dan pada goresan pena artikel kali ini aku akan membahas bagaimana cara menemukan data kemudian mengaktifkan atau menentukan cell tersebut bila ditemukan dengan memakai coding / script VBA (macro excel).

Mencari sebuah data memang pernah terjadi saat kita melaksanakan pekerjaan terutama memakai aktivitas aplikasi pengolahan angka ini (Ms. Excel) dan tentunya akomodasi pencarian sudah disediakan oleh pihak Microsoft namun ternyata perusahaan software terbesar tersebut juga memperlihatkan akomodasi dengan bahasa pemrograman yang lebih dikenal dengan Macro (VBA). Dan tentunya kita dapat memanfaatkan akomodasi tersebut untuk lebih mempermudah bagi pengguna dalam mengolah data.

Silakan Baca:
Pencarian Melalu UserForm sebagai Validasi Data

Bagaimana Coding untuk mencari data dan mengaktifkannya?
Untuk problem ini kita akan menuliskan sebuah coding (script VBA) dengan algoritman “Cari data yang sama dengan textbox, bila ditemukan maka pilih cell yang berisi data tersebut (alamat cell) tetapi bila tidak ditemukan munculkan pesan”

Sebuah algoritma sederhana namun tentunya bagi para programmer hal ini tidak mengecewakan untuk mengetikkan satu demi satu  atau kata demi kata dalam pengcodean. Baiklah pribadi saja berikut akan diuraikan bagaimana cara menciptakan macro untuk mencari data dan mengaktifkan cell tersebut.

Baca Materi :
Pencarian Data di Excel Paling Sederhana

Pertama kita akan menciptakan sebauh objek general dengan mekanisme kita definisikan “CariData” silakan Anda tuliskan coding dibawah ini pada userform, Anda juga dapat mengetikkannya pada Module. Namun sebelumnya Anda harus menciptakan 1 buah UserForm yang ditambahkan dengan objek textbo dan CommandButton sebagai tombol untuk menjalankan perintah coding tersebut. Kira-kira desain UserForm menyerupai berikut ini

Anda hilangkan atau hapus Caption untuk userForm1 kemudian ganti caption untuk Label1 menjadi “Pencarian:” dan ganti juga caption CommandButton1 menjadi “Cari Data” untuk Name biarkan saja jangan dirubah. Langkah berikutnya silakan masuk ke mode Code kemudian tuliskan coding dibawah ini

Sub CariData()
Dim TemukanData As String
Dim Rng As Range
TemukanData = TextBox1.Value
If Trim(TemukanData) <> "" Then
    With Sheets("Sheet1").Range("A:A") 'Cari semua data di kolom A
        Set Rng = .Find(What:=TemukanData, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
            Application.Goto Rng, True 'Jika ditemukan maka pilih range tersebut
        Else
            MsgBox "Data Tidak Ditemukan" 'Jika tidak ditemukan tampilkan pesan ini
        End If
    End With
End If
End Sub

Setelah Coding diatas dituliskan dengan benar maka langkah selanjutnya kita akan panggil mekanisme CariData tersebut dengan mekanisme Klik pada CommandButton sehingga Anda harus menuliskan coding menyerupai berikut ini

Private Sub CommandButton1_Click()
Call CariData
End Sub

Oke, pembuatan desain userform dan coding selesai, langkah berikutnya contohnya aku mempunyai data pada kolom A di sheet1 sebagai berikut Dede, Abah, Deme, Juju, Dada secara berututan menyerupai gambar berikut ini



Langkah selanjutnya kita akan jalankan aktivitas yang telah dibentuk diatas dengan menekan tombol RUN maka akan muncul form untuk menuliskan nama yang akan dicari, contohnya aku akan mencari nama “yatna”

Hasilnya yaitu akan muncul sebuah pesan yang menjelaskan bahwa “Data Tidak Ditemukan”

Apbila aku Mencari Nama “juju” yang diketikkan pada textbox pencarian kemudian klik tombol Cari Data maka secara otomatis pointer akan berpindah ke cell A4 yang berisi data atas nama “juju”

Perhatikan baris akan menuju ke baris ke-4 dan pointer akan aktif di cell A4. Oke, itulah teladan coding bagaimana menentukan cell dengan pencarian apabila ditemukan maka pointer akan menuju ke alamat cell tersebut.

Materi ini dapat Anda terapkan bagaimana aku menciptakan sebuah Aplikasi Database Siswa untuk model Pencarian.

Silakan Baca:
Coding VBA (Macro) Untuk Pencarian Data Siswa

Semoga bermanfaat.
Sumber http://www.excel-id.com/