Cara Menentukan atau Mencari Baris Terakhir yang Ada Datanya pada Kolom dengan VBA

Mencari baris terakhir pada sebuah kolom tentunya akan dilakukan jika Anda akan membuat sebuah aplikasi entry data menggunakan VBA pada Ms. Excel dan ini biasanya akan dilakukan agar tidak terjadi entry bertumpuk artinya file yang telah dientrikan akan hilang karena tertimpa oleh entry data baru.



Kita akan menentukan baris ke berapa pada sebuah kolom yang memilik data dan kita akan menentukan baris terakhir tersebut jadi intinya ketika ditemukan baris terakhir yang memiliki data maka kita bisa menentukan coding berikutnya untuk memasukan data tersebut pada baris terakhir yang memiliki data.

Baca: Cara Menentukan Baris Terakhir dengan .End(xlUp).Row

Code VBA nya cukup sederhana dan pendek jika Anda lagi membutuhkan silakan inilah coding VBA yang bisa dijadikan latihan Anda untuk menentukan baris terakhir menggunakan VBA

With Sheets("Sheet1")
    LastRow = .Range("B" & .Rows.Count).End(xlUp).Row
End With

Dari coding tersebut Ms. Excel akan mencari baris terakhir pada kolom B yang berada pada worksheet1

Coding VBA lain Anda juga bisa menuliskan seperti dibawah ini

With Sheets("Sheet1")
    If Application.WorksheetFunction.CountA(.Cells) <> 0 Then
        lastrow = .Cells.Find(What:="*", _
                      After:=.Range("A1"), _
                      Lookat:=xlPart, _
                      LookIn:=xlFormulas, _
                      SearchOrder:=xlByRows, _
                      SearchDirection:=xlPrevious, _
                      MatchCase:=False).Row
    Else
        lastrow = 1
    End If
End With
Contoh Lain lagi Anda juga bisa menuliskan coding VBA dibawah ini

Function GetLastCell(sh As Worksheet) As Range
  Set GetLastCell = sh.Cells(1, 1).SpecialCells(xlLastCell)
End Function
Demikian semoga bermanfaat dan silakan kembangkan untuk kebutuhan penguasaan dan pmahaman VBA Ms. Excel Anda.

Untuk lebih meningkatkan kemampuan Anda dalam menggunakan VBA coding silakan Anda bisa baca-baca di link berikut

Kumpulan Coding/Kode VBA Macro Excel

Simak :
Cara Menentukan Baris Terakhir menggunakan Textbox

Related

Macro Excel VBA 7426119516849050727

Posting Komentar

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item