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")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 menggunakan VBA coding silakan Anda bisa baca-baca di link berikut
Kumpulan Coding/Kode VBA Macro Excel
Simak :
Cara Menentukan Baris Terakhir menggunakan Textbox
0 Response to "Function Cara Menentukan Atau Mencari Baris Terakhir Yang Ada Datanya Pada Kolom Dengan VBA #Rumus Ajaib"
Post a Comment