bir veri sayfası formunda kayıtsatısını 20 ile sınırlandırabilirmiyiz
yani 20 satırdan fazla kayıt olmasın ve 20 kayıt aşıldığında uyarı versin
teşekürler
İlk verinizin A1 hücresinden başladığını varsayarsak, kayıt butonuna kodu şu şekilde yazabilirsiniz.
If Range("A20").Value <>"" then 'A20 hücresi boş değilse
Msgbox "20 kayda ulaştınız" '20 kayıt var diye mesaj ver
else 'A20 hücresi boş ise
Range("A1").Select 'A1 'i seç
Do While Not IsEmpty(Activecell) 'A1 boş ise
Activecell.Offset(1,0).Select 'Bir alt satırı seç
Loop 'Boş satırı bulduğunda dur ve o satırı seç
Activecell.Value = Textbox1.Value 'Boş satırın değeri textbox nesnesinin değeridir
Activecell.Offset(0,1).Value = Textbox2.Value 'Boş satırın 1 sağı textbox2 nesnesinin değeridir... gibi.
...
...
...
End If
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.