Menampilkan data tertentu kedalam textbox

Menampilkan data tertentu kedalam textbox - Ada kalanya bagi anda yang sudah jenuh dengan rumus Vlookup lalu anda ingin mencoba sesuatu yang baru dengan kode macro, dimana anda menginginkan kode macro tersebut berjalan sebagaimana fungsi Vlookup. Anda beruntung jika anda menemukan tulisan ini karena pada tulisan ini saya akan membahas tentang fungsi Vlookup namun dengan kode maro bukan dengan rumus.Seperti yang sudah lazim dan diketahui banyak pengguna excel bahwa Vlookup menampilkan data sesuai dengan riteria tertentu secara horizontal, Untuk memahami tentang Vlookup silahkan merujuk kesini Memahami Range_Lookup pada Fungsi VLOOKUP

Menampilkan data tertentu kedalam textbox

Ada dua kasus ( bukan cara ) yang akan saya jelaskan cara Menampilkan data tertentu kedalam textbox. Saya berasumsi bahwa anda mempunyai tabel data sebagaimana tabel dat dibawah ini

Pertama Menampilkan data tertentu kedalam textbox didalam sel

> Langsung saja masuk ketab buat tabel lagi sebagaimana gambar dibawah ini
> Sel H3 : Di isi nama siswa yang akan dicari berdasarkan kolom B
> Sel H4 dan seterusnya merupakan hasil pencarian yang akan menampilkan kolom C, D, dan E
> Perhatikan gambar dibawah ini





> Masukan kode macro pencarian sesuai nama

Sub Rectangle1_Click()
Set ipa = Sheets("Sheet2")
On Error Resume Next 'meski error lanjut terus
Set NmSsw = ipa.Range("B3", ipa.Range("B3").End(xlDown))
'NmSsw = PRIMARY KEY KOLOM B
'NmSsw merupakan primary key, pada kolom NmSsw ini _
ngga boleh ada data yang sama , jadi harus bener bener berbeda tiap baris pada kolom NmSsw
Keyword_1 = ipa.Range("H3").Text

'Keywordynya adalah range H3

Set c = NmSsw.Find(Keyword_1, LookIn:=xlValues, MatchCase:=False)
' ini merupakan modul untuk mencari, mencari value pada kolom NmSsw
' jika ditemukan value yang sama anata kolom NmSsw dengan Textbox1 _
maka value pada textbox2 dst valuenya juga akan ketemu

ipa.Range("H4").Value = c.Offset(0, 1).Value
' Value RANGE H4 merupakan kolom pertama setelah kolom NmSsw
ipa.Range("H5").Value = c.Offset(0, 2).Value
' Value RANGE H5 merupakan kolom kedua setelah kolom NmSsw
ipa.Range("H6").Value = c.Offset(0, 3).Value
' Value RANGE H6 merupakan kolom ketiga setelah kolom NmSsw
End Sub

> Sekarang silahan ketikan di sel H3 "Wasis Zain" Lalu klik Cari

Kita tidak usah berlama lama meratapi kepergian Iparengan.Com dari ranah Excel VBA, Insya Allah Excel Pro akan mendaur ulang semua hal yang telah dibahas sebelumnya dengan lebih baik dan mudah dipahami

Kedua Menampilkan data tertentu kedalam textbox dengan Userform

Cara kedua adalah cara yang menjadi poin titik balik artikel ini dibuat, saya akan mengajak anda untuk lebih banyak berinteraksi dengan Userform, Apa itu userform ?? silahkan cari jawabanya dilink ini Penjelasan Microsoft Visual Basic
> Masuk ke jedela VBE dengan menekan kombinasi tombol Alt + F11 pada keynord komputer anda
> Inser Userform, kemudian tampilkan toolbox untuk menyeret 4 kontrol Textbox, pengaturan properties masing masing kontrol dibuat Defauld saja
> Perhatikan gambar dibawah ini

> Masukan kode macro ini kedalam event Textbox1 Change

Private Sub TextBox1_Change()
Set ipa = Sheets("Sheet2")
On Error Resume Next 'meski error lanjut terus
Set KunciLook = ipa.Range("B3", ipa.Range("B3").End(xlDown))
Set c = KunciLook.Find(TextBox1.Value, LookIn:=xlValues, MatchCase:=False)

TextBox2.Value = c.Offset(0, 1).Value
TextBox3.Value = c.Offset(0, 2).Value
TextBox4.Value = c.Offset(0, 3).Value
End Sub

> Sekarang silahan ketikan di textbox1 "Wasis Zain" Lalu lihat TextBox2, TextBox3 dan TextBox4



# MenampilkandatatertentukedalamTextBox #ExcelPro #Macro #VBA #MacroExcel #ExcelVba #BelajarExcel #BelajarMacro #BelajarVBA #KelasExcel #RumahExcel
ExcelPro, Excel Pro, Macro, VBA, #MacroExcel, ExcelVba, BelajarExcel, BelajarMacro, BelajarVBA, KelasExcel, RumahExcel

Download Sampel
FREE



Download Semua
230K

Demikianlah Cara Menampilkan data tertentu kedalam textbox, jika anda kesulitan download file sampel silahkan hubungi kami dengan mengisi kolom komentar dibawah, gabung di grup Excel Pro facebook follow IG kami atau Like fanpage Excel Pro

Download - 423 Sampel Excel VBA dijmain mahir VBA

 Order Aplikasi Murah dengan design premium Info Disini