Bir sayfaya belirlenen satır sayısı kadar veri girişine izin vermek

[DWARFEST]

Merhaba

Bir makro aracılığıyla çalışma kitabına veri girişi yapmak istiyorum. Her ekleme sonunda bir alt satıra yeni veri girişi yaptırıyorum. Şu şekilde

Private Sub CommandButton1_Click()
Dim mesaj, yer As Integer
yer = 9
While Sheets(1).Cells(yer, 3) <> ""
yer = yer + 1
Wend

mesaj = MsgBox("Bilgiler Güncellenecektir", 4 + 32, "Uyarı")
If mesaj = 6 Then
Sheets(1).Cells(yer, 2) = TextBox1
Sheets(1).Cells(yer, 3) = ComboBox1
Sheets(1).Cells(yer, 4) = TextBox2
Sheets(1).Cells(yer, 6) = TextBox3

ComboBox1 = "SEÇİNİZ": TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "":
Else
Cacel = True
End If
End Sub

Ancak girilecek veri (satır) sayısını 20 ile sınırlandırmak ve kayıt sayısı 20 e gelince de kullanıcının yeni kayıt yapmasını engellemek (buna ek olarak da mesajla "kayıt sayınız dolmuştur sayfayı yazdırınız" tarzında bir mesaj iletmek )
istiyorum.

Yardımlarınız için şimdiden teşekkür ederim.
Ek dosyam aşağıdadır.

 

[Orion1]

Aşağıdaki kodları denermisiniz.

Private Sub CommandButton1_Click()
Dim mesaj, yer As Long
yer = Cells(65536, 3).End(xlUp).Row + 1
mesaj = MsgBox("Bilgiler Güncellenecektir", 4 + 32, "Uyarı")
If mesaj = 6 Then
If yer >= 31 Then
    MsgBox "Kayıt Sayınız dolmuştur.Sayfayı yazdırınız..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
Sheets(1).Cells(yer, 2) = TextBox1
Sheets(1).Cells(yer, 3) = ComboBox1
Sheets(1).Cells(yer, 4) = TextBox2
Sheets(1).Cells(yer, 6) = TextBox3

ComboBox1 = "SEÇİNİZ": TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "":
Else
Cancel = True
End If
End Sub

 

[DWARFEST]

Sn. ORION2 &#231;ok te&#351;ekk&#252;r ederim. Verdi&#287;iniz &#246;rnek &#231;al&#305;&#351;&#305;yor ve tam arad&#305;&#287;&#305;m tarzda. Birka&#231; ilave daha yapmay&#305; d&#252;&#351;&#252;n&#252;yorum o zaman da kap&#305;n&#305;z&#305; &#231;alabilirim

Malum deneme yan&#305;lma ve yard&#305;m alarak &#246;&#287;reniyoruz d&#252;&#351;e kalka....

 

[Orion1]

Sn. ORION2 çok teşekkür ederim. Verdiğiniz örnek çalışıyor ve tam aradığım tarzda. Birkaç ilave daha yapmayı düşünüyorum o zaman da kapınızı çalabilirim

Malum deneme yanılma ve yardım alarak öğreniyoruz düşe kalka....

Rica ederim.
İyi çalışmalar.