Spin Button Sinirlama

[GUERRA]

Merhaba Spin buttonla hücredeki rakamları 1 er artırıp azaltıyorum fakat ilgili gücrelerin max ve min değerlerini sınırlamak istiyorum örn: a1 = 0 ile 31 arasında olmalı gibi

 

[Kemal Demir]

GUERRA,

SplitButton Özellikerine bakarsanız makx ve Min Sınırlama vardır oradan belirleyebilirsiniz.

Sonra aşagıdaki koda bağlarsınız.

Sub Artir()
Range("a1").Value=SpinButton1.Value
End Sub

Yukarıdaki Sınırlamayı yaptıgınız Takdirde A1 hucresideki değer max 30 değerini geçmez.Örneği İnceleyiniz.

 

[GUERRA]

spin button yardım

verdiğiniz bilgiler için teşekkür ederim

 

[GUERRA]

Spin button yardımı

Son olarak bir şey daha sormak istiyorum . Sayfayı şifrelediğimde spin buttonlar çalışmıyor ve debug menüsü çıkıyor. Bunu nasıl çözebilirim.

 

[Kemal Demir]

Sayfanız Şifreli İken Calısmasını İstemiyorsanız ve Debug Hata'nın Gözükmemesini İstiyorsanız kodlarınızın başına

On Error Resume Next

Eğer Şifreli İken Calıstırmak istiyorsanız arka plandan Şifreyi açtırmanız gerekmektedir.

Kolay GeLsin.

 

[Seyit Tiken]

Sayfayı şifrelediğimde spin buttonlar çalışmıyor ve debug menüsü çıkıyor. Bunu nasıl çözebilirim.

Şu şekilde deneyiniz.

Private Sub SpinButton1_Change()
ActiveSheet.Unprotect
[a1] = SpinButton1.Value
ActiveSheet.Protect
End Sub