Menampilkan data atau mengetahui data pada baris terakhir sebuah database di Microsoft Excel banyak digunakan dikala menciptakan aplikasi untuk objek Simpan Data. Biasanya sistem atau aloritma akan mencari terlebih dahulu data baris terakhir yang kosong kemudian lakukan algoritma lainnya.
Untuk menampilkan data pada baris terakhir / value biasanya memakai .End(xlUp) dan dalam perkara ini kita akan menampilkan data baris terakhir dalam sebuah range. Data tersebut akan ditampilkan pada textbox melalui UserForm.
Contoh penggunaan :
Misalkan saya mempunyai data range pada worksheet1 yang berada pada kolom A sebagai berikut
Langsung saja silakan Anda buka VBA Editor dan buatlah satu buah UserForm kemudian tambahkan pula objek textbox pada userform tersebut gunakan toolbox untuk membuatnya. Dalam hal ini Anda jangan dulu merubah properties.
Setelah itu untuk menampilkan data baris terakhir Anda dapat memakai mekanisme UserForm_Active maupun UserForm_Initialize atau bahkan Anda juga dapat memanggil perintah tersebut dengan memakai object commandbutton, Anda juga dapat menempatkan coding berikut pada module atau pada object silakan sama saja tergantung pemakaian.
Untuk pola saya gunakan pada mekanisme UserForm_Initialize maka tuliskan coding berikut ini atau silakan copy paste.
Private Sub UserForm_Initialize()Jika Anda telah menuliskan coding VBA excel diatas silakan jalankan maka hasilkan yakni menyerupai gambar berikut :
BarisTerakhir = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Value
TextBox1.Value = BarisTerakhir
End Sub
Perhatikan data yang tampil pada textbox diatas yakni nama "Rizal Fakhri" sebab dalam urutan range diatas data yang paling simpulan yakni nama tersebut. Jika Anda menambahkan nama berikutnya dibawah nama Rizal Fakhri maka yang tampil akan berubah kembali.
Demikian, goresan pena pendek di bulan romadhon ini, biar bermanfaat ajah Sumber http://www.excel-id.com/