TextBox sayı aralığı belirleme

[Gold_Savt]

Merhabalar;
TextBox10 ile TextBox20 arasındaki tüm Textboxlara 1 ile 100 arasında not vermek istiyorum.
Hücreler "" Boş olabilir ancak asla 0 (Sıfır) olamaz.
Rakam dışında hiçbir veri girilemez

Şartlar sağlanmıyorsa "Yeni kayıt" ve "Güncelleme" yapılmamalı.

    If Not IsNumeric(TextBox10.Value) Then
    MsgBox "Girilen değer sayı değil!", vbCritical, "UYARI"
    TextBox10.SetFocus
    Exit Sub
    End If

Yukardaki kod sadace rakam kısıtlaması için ve ne yazık ki her bir textbox için tek tek yazılmalı.

Daha kolay bir formülü vardır umarım.

 

[Orion1]

Formda Classmodule diye arama yapınız.

 

[Gold_Savt]

Arama yaptım, inceledim. Önce de incelemiştim ama konyla ilgili bilgi bulamamıştım. Tekrar baktım gözümden de kaçmış olabilir.
Ancak problemin cevabını bulamıyorum.

 

[Korhan Ayhan]

İnceleyiniz.

Çözüldü - Class ile Textbox Renklendirme

Merhaba. Class ile aktif textboxu renklendirdim. Yapamadığım şey örnek olarak resimdeki gibi renkli textboxların renkleri aynı kalması textboxtan ayrılınca. Örnekte maus userforma gelince taextbox rengi beyaz oluyor normalde textbox renk ne ise o olmalı...

www.excel.web.tr

 

[muratboz06]

Aşağıdaki kodu istediğiniz bir command butona ekleyebilirsiniz.

Private Sub CommandButton1_Click()
    Dim ctrl As Control
    Dim i As Byte
 
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            If ctrl.TabIndex > 8 And ctrl.TabIndex < 20 Then 'Textbox10 un TabIndex'i 9 dur Textbox20 nin TabIndex'i 19 dur.
                If ctrl.Value <> "" Then
                    If Not IsNumeric(ctrl.Value) Or ctrl.Value = 0 Or ctrl.Value > 100 Then                 
                        MsgBox ctrl.Name & " girilen değer istenilen sayı aralığında değildir. Ya boş bırakınız ya da 1-100 arası değer veriniz!", vbCritical, "UYARI"
                        ctrl.SetFocus
                        Exit Sub
                    End If
                End If
            End If
        End If
    Next ctrl
End Sub