√ Cek Baris Terakhir Yang Kosong Dari Database .End(Xlup)

Entri sebuah record / item kedalam database di Ms. Excel tentunya kita harus mendefinisikan terlebih dahulu untuk mencek apakah ada baris terakhir yang kosong sesudah record terakhir dari database tersebut jikalau ditemukan maka biasanya entri dilakukan, nah pada kesempatan kali ini saya akan membahas bagaimana coding untuk cek baris kosong pada list database di Ms. Excel dengan memakai fungsi .End(xlUp).

Coding ini banyak digunakan oleh para proggramer VBA dalam menciptakan sebuah aplikasi dan biasanya yang sering digunakan yaitu menciptakan perintah simpan data ke dalam database. Di excel VBA sering dikenal dengan .End(xlUp). Apa dan bagaimana fungsi serta kegunakan dari .End(xlUp) tersebut?

Simak Penggunaan .End(xlUp) untuk Menyimpan Data ke Database

Fungsi .End(xlUp) digunakan untuk membaca baris terakhir yang dimulai dari atas, jikalau ditambahkan dengan coding .Cells(Rows.Count, 1) maka alhasil akan menjadi

ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1

Fungsinya untuk membaca atau mengetahui pada workbook aktif dan pada sheet1 dengan menghitung baris yang ada pada kolom ke 1 lalu pemanis +1 merupakan baris terakhir yang kosong yang ada pada kolom A. Baiklah kita coba praktekkan dengan memakai UserForm.

Pertama silakan Anda buat UserForm dengan cara menyisipkan pada editor VBA lalu tambahkan 1 buah CommandButton dan ganti Caption CommandButton1 menjadi "Cek" lalu UserForm1 ganti Caption pada properties menjadi "Cek Baris Terakhir yang Kosong"

Desain UserForm diatas, atau Anda dapat mendesain sendiri sesuai dengan kebutuhan atau kreativitas masing-masing. Setelah itu tambahkan coding berikut :

Private Sub CommandButton1_Click()
Call CekBaris
End Sub

Sub CekBaris()
CariBaris = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
MsgBox "Baris Kosong Terakhir Adalah " & CariBaris
End Sub

Silakan di cek, alhasil akan muncul sebuah pesan "Baris Kosong Terakhir yaitu 9" alasannya yaitu di kolom A baris terakhir yang kosong yaitu baris ke-9. Lalu bagaimana jikalau entri datanya pada Sheet yang berbeda ? Anda bisalihat dan  baca goresan pena saya Cara Memasukan Data pada Sheet yang Berbeda


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