SpinButton da ileri geri harekette hata mesajı

[enes2000eren]

slm.arkadaşlar SpinButton da 1 ilk sayı . 1 den ileri giderken sorun yok ancak geri gelirken 1 den sonra hata veriyor.ilgili kod aşağıdaki gibidir.nasıl bir revizyon yaplımalı.yani istiyorum ki ilk kayıt 1 olduğu için ilk kayıttasıınız.veya başka kayıt yok gibi bir uyarı gelse ve hataya geçmese.tşk.

Private Sub SpinButton1_SpinUp()
Sheets("KAYIT").Select
If ActiveCell.Row = 1 Then Exit Sub
Cells(ActiveCell.Row - 1, 2).Select
TextBox1.Value = ActiveCell.Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub SpinButton1_SpinDown()
    If SpinButton1 = 1 Then MsgBox "İlk kayıttasınız !"
End Sub