Sıra numarası verme? Nerde yanlışım var açıklarmısınız?

[zamanakarsi]

Arkadaşlar;
Örnekte eklediğim kodda butonla sayfaya sıra numarası yazdırıyorum. Yalnız 25 kayıttan sonrasını yapmasın. Kodları yazdım. Mesaj da verdirdim. Fakat 25 kayıttan sonra makrodan çıkması gerekiyor ama çıkmıyor. Nerde hata yapıyorum. Açıklayarak anlatırsanız öğrenmiş olurum . Şimdiden teşekkürler

Public modsay, moad As Long

Sub tanımla()
  modsay = Sayfa10.Range("a40").End(xlUp).Row
moad = modsay
End Sub
Sub kontrol()
tanımla
moad = moad - 14
If moad = 25 Or moad > 25 Then
MsgBox "Son Modülü Kaydettiniz. Yeter Üleeeeeen!"
Exit Sub
Else
yaz
End If
End Sub
Sub verial()

End Sub
Sub temmizle()

End Sub

Sub yaz()

Sayfa10.Cells(modsay + 1, 1) = modsay - 13

End Sub

Private Sub CommandButton1_Click()
kontrol
yaz
End Sub

 

[Mahir64]

Merhaba

Private Sub CommandButton1_Click()
kontrol
End Sub

CommandButton kodunu bu şekilde deneyin

 

[turan1971]

Commandbutton1 deki yaz subuna gidişi silmeniz gerekir...
Dosyanız ektedir...

 

[zamanakarsi]

Teşekkürler. Peki 2 adet textbox eklesek ve bunları sayfaya aktarsak. Yani 1.numarayı verince yanına adı soyadını, hemen sağınada 3 saat gibi bişi yazdırsak (buraya kadarını yapıyorum) ama textbox1. ve 2 de veri olmayınca textbox2 sayısal veri olmayınca nasıl uyarı verdiririz. açıklarmısınz lütfen. öğrenmek amacıyla. Çok sağolun