Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
TextBox1 = IncrementNum
End Sub
Private Function IncrementNum() As String
Dim S As Worksheet
Dim R As Range
Dim var
Dim i&
Dim T
Dim BigMois&
Dim BigNum&
'---
Set S = ActiveSheet
Set R = S.Range("a1:a" & S.[a1].End(xlDown).Row & "")
var = R
For i& = 1 To UBound(var, 1)
T = Split(var(i&, 1), "/", -1)
If IsNumeric(T(1)) Then
If CLng(T(1)) > BigMois& Then BigMois& = CLng(T(1))
End If
Next i&
'---
For i& = 1 To UBound(var, 1)
T = Split(var(i&, 1), "/", -1)
If IsNumeric(T(2)) Then
If IsNumeric(T(1)) And CLng(T(1)) = BigMois& Then
If CLng(T(2)) > BigNum& Then BigNum& = CLng(T(2))
End If
End If
Next i&
IncrementNum = "TEC/" & Format(BigMois&, "0#") & "/" & Format(BigNum& + 1, "00#")
End Function