Soru kayıt sınırlama

[sirkülasyon]

bir userformdan sayfaya kayıt yapılırken

son = Cells(65536, "m").End(xlUp).Row + 1
Sheets("data").Cells(son, "m") = TextBox1.Value
Sheets("data").Cells(son, "n") = TextBox2.Value

MsgBox "KAYIT İŞLEMİ YAPILMIŞTIR.", vbInformation

en fazla üç kayıt yapabilsin 4. kayıda müsaade etmemesi için nasıl kısıtlama yapabilirim?

 

[byfika]

Merhabalar,
son = Cells(65536, "m").End(xlUp).Row + 1
satırınıdaki 65536 sayısını 4 yapıp dener misiniz?

 

[sirkülasyon]

dördüncü kaydı yapmıyor ama birinci kaydı değiştiriyor.

 

[PLİNT]

Merhaba
Son (3.) kayıt satırı, 4. satıra tekabül ediyorsa, şöyle ek yapabilirsiniz;

Dim son As Integer '<---------------------
son = Cells(65536, "m").End(xlUp).Row + 1
If son > 4 Then MsgBox "Üç Kayıttan fazla Yapılamaz": Exit Sub '<-----------
Sheets("data").Cells(son, "m") = TextBox1.Value
Sheets("data").Cells(son, "n") = TextBox2.Value

MsgBox "KAYIT İŞLEMİ YAPILMIŞTIR.", vbInformation

 

[sirkülasyon]

USTAM elinize sağlık. Teşekkür ederim.