Cari Cara Menentukan atau Mencari Baris Terakhir yang Ada Datanya pada Kolom dengan VBA - Terbaru 2018
Selamat datang di Membuat Master Data pada Microsoft Excel 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
var obj0=document.getElementById("post17426119516849050727"); var obj1=document.getElementById("post27426119516849050727"); var s=obj1.innerHTML; var t=s.substr(0,s.length/2); var r=t.lastIndexOf("
"); if(r>0) {obj0.innerHTML=s.substr(0,r);obj1.innerHTML=s.substr(r+4);} Sekian terimkasih.

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
var obj0=document.getElementById("post17426119516849050727"); var obj1=document.getElementById("post27426119516849050727"); var s=obj1.innerHTML; var t=s.substr(0,s.length/2); var r=t.lastIndexOf("
"); if(r>0) {obj0.innerHTML=s.substr(0,r);obj1.innerHTML=s.substr(r+4);} Sekian terimkasih.
Comments
Post a Comment