veri girişinin sınırlandırılması

[gezgin-49]

Sayın üstadlarım ekli dosyada 13 adet Textbox var, kaydet tuşuna tıklamamda textboxtaki verilerin Sayfa1 de Labellerin altındaki renklendirilen kısma kayıt yapmasını, kayıt sayısının en fazla 14 olmasını, bundan sonra kayıt yapılmak istendiğinde uyarı mesajı verilmesini ve yeni kaydın engellenmesini istiyorum. bu konuda yardımcı olursanız memnun olurum. saygılarımla,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim SON_SATIR As Byte, X As Byte
    
    With Sheets("Sayfa1")
        SON_SATIR = .Cells(Rows.Count, 1).End(3).Row
        If SON_SATIR = 20 Then
            MsgBox "En fazla 14 adet kayıt yapabilirsiniz !" & Chr(10) & _
            "İşleminiz iptal edilmiştir.", vbCritical
            Exit Sub
        Else
            For X = 1 To 13
                If Controls("TextBox" & X) <> "" Then
                    .Cells(SON_SATIR + 1, X) = Controls("TextBox" & X)
                    Controls("TextBox" & X) = ""
                End If
            Next
            
            MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
        End If
    End With
End Sub

 

[gezgin-49]

Sayın üstadım Korhan Ayhan müthişsiniz, Allah sizden razı olsun, bu tablonun ileriki aşamalarında takılacağım çok şeyler olacak, sizin ve değerli diğer üstadlarımın yardımlarını bekliyeceğim, saygılar sunuyorum.