Mencari baris terakhir pada sebuah kolom tentunya akan dilakukan kalau Anda akan menciptakan sebuah aplikasi entry data memakai VBA pada Ms. Excel dan ini biasanya akan dilakukan supaya tidak terjadi entry bertumpuk artinya file yang telah dientrikan akan hilang alasannya tertimpa oleh entry data baru.
Kita akan memilih baris ke berapa pada sebuah kolom yang memilik data dan kita akan memilih baris terakhir tersebut jadi pada dasarnya saat ditemukan baris terakhir yang mempunyai data maka kita bisa memilih coding berikutnya untuk memasukan data tersebut pada baris terakhir yang mempunyai data.
Baca: Cara Menentukan Baris Terakhir dengan .End(xlUp).Row
Code VBA nya cukup sederhana dan pendek kalau Anda lagi membutuhkan silakan inilah coding VBA yang bisa dijadikan latihan Anda untuk memilih baris terakhir memakai VBA
Dari coding tersebut Ms. Excel akan mencari baris terakhir pada kolom B yang berada pada worksheet1
Coding VBA lain Anda juga bisa menuliskan menyerupai dibawah ini
Untuk lebih meningkatkan kemampuan Anda dalam memakai VBA coding silakan Anda bisa baca-baca di link berikut
Kumpulan Coding/Kode VBA Macro Excel
Simak :
Cara Menentukan Baris Terakhir memakai Textbox
Kita akan memilih baris ke berapa pada sebuah kolom yang memilik data dan kita akan memilih baris terakhir tersebut jadi pada dasarnya saat ditemukan baris terakhir yang mempunyai data maka kita bisa memilih coding berikutnya untuk memasukan data tersebut pada baris terakhir yang mempunyai data.
Baca: Cara Menentukan Baris Terakhir dengan .End(xlUp).Row
Code VBA nya cukup sederhana dan pendek kalau Anda lagi membutuhkan silakan inilah coding VBA yang bisa dijadikan latihan Anda untuk memilih baris terakhir memakai 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 menyerupai dibawah ini
With Sheets("Sheet1")Contoh Lain lagi Anda juga bisa menuliskan coding VBA dibawah ini
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
Function GetLastCell(sh As Worksheet) As RangeDemikian semoga bermanfaat dan silakan kembangkan untuk kebutuhan penguasaan dan pmahaman VBA Ms. Excel Anda.
Set GetLastCell = sh.Cells(1, 1).SpecialCells(xlLastCell)
End Function
Untuk lebih meningkatkan kemampuan Anda dalam memakai VBA coding silakan Anda bisa baca-baca di link berikut
Kumpulan Coding/Kode VBA Macro Excel
Simak :
Cara Menentukan Baris Terakhir memakai Textbox