Cell paling awal dan ujung cell yang terakhir

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Baris awal di bawah judul (Baris kosong pertama di database)

aku = Sheet1.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row
Range("D" & aku).Select

Menuju Baris Akhir (sesuai nilainya)

Sheet1.Cells(Rows.Count, 2).End(xlUp).Value

Serba Awal

Sub test()

'mencari baris paling awal dari semuanya,hasilnya angka

barisawal = Cells.Find(What:="*", searchdirection:=xlNext, _
searchorder:=xlByRows).Row

kolomawal = Cells.Find(What:="*", searchdirection:=xlNext, _
searchorder:=xlByColumns).Column

MsgBox "Baris awal " & barisawal & vbCrLf & "kolom awal " & kolomawal
End Sub

Serba Akhir

Sub test()

'mencari baris yang terakhir dari total semuanya, hasil berupa angka
barisakhir = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

MsgBox barisakhir
End Sub
-----------------------


Sub test()

'mencari baris yang terakhir, hasil berupa angka, kolom ke-4
barisakhirsatukolom = Cells(Rows.Count, 4).End(xlUp).Row
MsgBox barisakhirsatukolom
End Sub


-------------------
Sub test()

'mencari baris yang terakhir, dari beberapa kolom
barisakhirbeberapakolom = Range("B:D").Find(What:="*", After:=Range("B1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
MsgBox barisakhirbeberapakolom
End Sub

-------------------------
Sub test()

'kolom akhir dari semua baris,keluar angka, hasilnya kolom ke-8
kolomakhir = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

MsgBox kolomakhir
End Sub

Baris Akhir dan Kolom Akhir

Sub test()
Dim jumlahbaris As Long
Dim jumlahkolom As Long

jumlahbaris = Cells(Rows.Count, 2).End(xlUp).Row
jumlahkolom = Cells(2, Columns.Count).End(xlToLeft).Column

MsgBox "jumlah baris adalah : " & jumlahbaris & vbCrLf & "Jumlah kolom : " & jumlahkolom, vbokonlny + vbInformation, _
"Info"


End Sub