maksimum veri girişi sınırlaması

[h2001]

Aşağıdaki makro ile veri girişi yapıyorum. 40 adetten fazla girilememesi için hangi kodu eklemeliyim. Tşk.


Sheets("ÖDEMESAYFASI").Select
sayar = WorksheetFunction.CountA([b1:b42])
Cells(sayar + 1, 2) = TextBox25
Cells(sayar + 1, 3) = TextBox20 * 1

 

[Levent Menteşoğlu]

Aşağıdaki mavi renkli satırları ilave edin.

Sheets("ÖDEMESAYFASI").Select
sayar = WorksheetFunction.CountA([b1:b42])
[B][COLOR=blue]if sayar=40 then[/COLOR][/B]
[B][COLOR=blue]msgbox "kayıt sayısı dolmuştur."[/COLOR][/B]
[B][COLOR=blue]exit sub[/COLOR][/B]
[B][COLOR=blue]end if
[/COLOR][/B]Cells(sayar + 1, 2) = TextBox25
Cells(sayar + 1, 3) = TextBox20 * 1

 

[h2001]

teşekkürler.