Spinbutton ile textboxda değer değiştirme

[seddur]

Merhaba.2022 - 2032 arası sayıları Textbox1 de göstermek ve spinbutton down ve up olayını kullanarak bu aralıktaki sayıları arttırmak veya azaltmak istiyorum.Yardımcı olursanız sevinirim.

 

[metehanakdag]

Merhaba.
İsterseniz MsgBox uyarılarını silebilir ya da değiştirebilirsiniz.

Private Sub SpinButton1_SpinDown()
On Error Resume Next
    If Me.TextBox1.Value = 2022 Then
        MsgBox "2022 'den Az Olamaz"
        Exit Sub
    End If
    Me.TextBox1 = Me.TextBox1 - 1
End Sub

Private Sub SpinButton1_SpinUp()
On Error Resume Next
    If Me.TextBox1.Value = 2032 Then
        MsgBox "2032 'den Çok Olamaz"
        Exit Sub
    End If
    Me.TextBox1 = Me.TextBox1 + 1
End Sub

Private Sub UserForm_Initialize()
    Me.TextBox1.Value = "2022"
End Sub

 

[seddur]

Textbox1 userformda değil Sayfada.Bu durumda kodu nereye yazmalıyım?

 

[metehanakdag]

Bu kısma yazabilirsiniz:

Private Sub SpinButton1_SpinDown()
On Error Resume Next
    If Me.TextBox1.Value = 2022 Then
        MsgBox "2022 'den Az Olamaz"
        Exit Sub
    End If
    Me.TextBox1 = Me.TextBox1 - 1
End Sub

Private Sub SpinButton1_SpinUp()
On Error Resume Next
    If Me.TextBox1.Value = 2032 Then
        MsgBox "2032 'den Çok Olamaz"
        Exit Sub
    End If
    Me.TextBox1 = Me.TextBox1 + 1
End Sub

Private Sub Worksheet_Activate()
Me.TextBox1.Value = "2022"
End Sub