Coding VBA Macro Excel Mencari Baris Terakhir

Untuk penyimpanan data baru pada umumnya diletakkan setelah baris terakhir dari semua data, untuk itu perlu kita mencari pada baris keberapa data terakhir yang kita miliki,

Berikut contohnya pencarian baris terakhir

Sub CariDataTerakhir ( )

Dim Baris as Long
Dim ws As Worksheet
Set ws = Worksheets("db_BarangMasuk")

Baris = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

End Sub

Selain untuk menyimpan data baru, biasanya digunakan untuk pembuatan nomor urut yang baru dari sebuah data, sebagai contoh seperti berikut ini :

Sub CariDataTerakhir ( )

Dim Baris as Long
Dim ws As Worksheet
Set ws = Worksheets("db_BarangMasuk")

Baris = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

NomerUrutTerakhir = ws.Cells(Baris - 1, 1).Value
     NomorBaru = NomerUrutTerakhir + 1

        
End Sub

Keterangan :
Pada bagian baris berfungsi mencari baris pertama yang kosong dari semua data, untuk data terakhir terletak pada fungsi baris-1