'Deteksi posisi Akhir kolom:
Public Function LastCol() As Integer
With ActiveSheet
LastCol = .Cells(ActiveCell.Row, .Columns.Count).End(xlToLeft).Column
End With
End Function
Public Function LastCol() As Integer
With ActiveSheet
LastCol = .Cells(ActiveCell.Row, .Columns.Count).End(xlToLeft).Column
End With
End Function
Tidak ada komentar:
Posting Komentar