Private Sub SpinButton1_Change()
        'od 1.broj
        
        TextBox46.Text = SpinButton1.Value
    End Sub
     
    Private Sub SpinButton1_SpinDown()
        
        TextBox46.Text = Val(TextBox46.Text) - 1
    End Sub
     
    Private Sub SpinButton1_SpinUp()
        
        TextBox46.Text = Val(TextBox46.Text) + 1
    End Sub
     
    Private Sub UserForm_Initialize()
        
        SpinButton1.min = 1
        SpinButton1.max = 45
        UserForm1.TextBox46.Text = 1