formdan sayfaya 38. satıra kadar kayıt

[cobanoglu]

Private Sub TextBox4_AfterUpdate()
Dim DENEME As Integer
DENEME = Application.CountA(Sheets("ayniyat").Columns("B")) + 5
Sheets("ayniyat").Cells(DENEME, 2) = TextBox1.Value
bu kodla kayıt işlmini yapabiliyorum ama 37.satırdan sonra kayıt yapmamasını istiyorum ve uyarı mesajıversin
yandımcı olabilirseniz sevinirim

 

[Recep İpek]

Kodlarızı aşağıdaki şekilde değiştiriniz.

Private Sub TextBox4_AfterUpdate()
Dim DENEME As Integer
DENEME = Application.CountA(Sheets("ayniyat").Columns("B")) + 5
If DENEME < 38 Then
Sheets("ayniyat").Cells(DENEME, 2) = TextBox1.Value
Else
MsgBox "Kay&#305;t Doldu."
Exit Sub
End If
End Sub

 

[cobanoglu]

teşekkür ediyorum
selam ve dua ile