Pada file yang mas @Aribowo lampirkan, sepertinya script tersebut dibutuhkan pada Event Procedure UserForm_Activate
:
Private Sub UserForm_Activate()
Dim MyRange As Range
Dim ws As Worksheet
Set ws = Worksheets("DATABASE")
Set MyRange = ws.Range("Nama")
jawab = Application.WorksheetFunction.Max(MyRange) + 1
Me.TNOID.Value = String$(6 - Len(jawab), "0") & jawab
Me.TNOID.Enabled = False
End Sub
atau ...
Private Sub UserForm_Activate()
Dim MyRange As Range
Dim ws As Worksheet
Set ws = Worksheets("DATABASE")
Set MyRange = ws.Range("Nama")
jawab = Application.WorksheetFunction.Max(MyRange) + 1
Me.TNOID.Value = Format$(jawab, "000000")
Me.TNOID.Enabled = False
End Sub
Demikian... ;)