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