Veri girişini sınırlama

[CILEKESH]

Private Sub CommandButton18_Click()
Dim Satır As Long, Say As Byte
    If TextBox6.Text = Empty Then
    MsgBox "Gelir Türünü Belirtiniz!", vbExclamation, "© 2011*Irmak Yazılım": Exit Sub
    End If
    Worksheets("Parametreler").Select
    Satır = Range("AA65536").End(3).Row + 1
    Cells(Satır, "AA") = TextBox6.Text
    Range("AA2:AA65500").Select
    ListBox5.RowSource = Empty
TextBox6 = ""
With ListBox5

.ColumnCount = 1
.ColumnWidths = "30"
.RowSource = "AA2:AA" & Cells(65536, "AA").End(xlUp).Row
End With
ListBox5.ListIndex = ListBox5.ListCount - 1
End Sub

Bu kodun sadece AA10 hücresine kadar çalışmasını istiyorum. Fazla veri girişine uyarı versin.

Teşekkür Ederim.

 

[Husgvarna]

Merhaba.
Kodlarınızın ilgili bölümüne kırmızı kodları ekleyip deneyebilirsiniz.

    Worksheets("Parametreler").Select
    Satır = Range("AA65536").End(3).Row + 1
    [COLOR="Red"]If Satır >= 11 Then
    MsgBox "  kayıt yapamıyoruz "
    Exit Sub
    End If[/COLOR]
    Cells(Satır, "AA") = TextBox6.Text

 

[CILEKESH]

Merhaba.
Kodlarınızın ilgili bölümüne kırmızı kodları ekleyip deneyebilirsiniz.

    Worksheets("Parametreler").Select
    Satır = Range("AA65536").End(3).Row + 1
    [COLOR="Red"]If Satır >= 11 Then
    MsgBox "  kayıt yapamıyoruz "
    Exit Sub
    End If[/COLOR]
    Cells(Satır, "AA") = TextBox6.Text

Teşekkür Ederim. İşe yaradı.