Mendefinisikan nama range menggunakan macro sangatlah memabantu untuk pembuatan aplikasi excel yang sedikit rumit.
untuk membuat nama range nya adalah seperti dibawah..:
Sub definenamerange()
Application.ScreenUpdating = False
Dim myLastRow As Long
Dim myLastColumn As Long
Range("c4").Select
On Error Resume Next
myLastRow = Cells.Find("start", [c4], , , xlByRows, xlPrevious).Row
myLastColumn = Cells.Find("end", [c4], , , xlByColumns, xlPrevious).Column
myLastcell = Cells(myLastRow, myLastColumn).Address
myRange = "c4:" & myLastcell
Range(myRange).Select
'tentukan nama range nya
ActiveWorkbook.Names.Add Name:="Master", RefersTo:=Selection
Application.ScreenUpdating = True
End Sub
0 Comments