Macro untuk define nama range

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

Post a Comment

0 Comments