Ardışık sıra numarası verme işlemini sınırlama

[durburga]

Merhaba Arkadaşlar;
Benim sorum; aşağıdaki kodlarda userform aracılığıyla sayfaya bilgi girişi yapılıyor. Bu işlemde kodlar ardışık sıra numarası veriyor. Ancak benim istediğim örneğin 35 kayıt yapıldıktan sonra (A40 hücresi)aynı sayfa içinde belli bir boşluk bırakılsın örneğin A55 hücresinden sıra numarası veilmeye ve kayıtların yapılmasını istiyorum.
Bu konuda yardımlarını bekliyorum. Saygılarımla.
Private Sub CommandButton1_Click()
Sheets("defter").Select
Range("A6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A6").Value = "" Then
Range("A6").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 5).Value = TextBox5.Text & "-" & TextBox6.Text
ActiveCell.Offset(0, 6).Value = TextBox7.Text
ActiveCell.Offset(0, 7).Value = TextBox8.Text
ActiveCell.Offset(0, 8).Value = TextBox9.Text
ActiveCell.Offset(0, 9).Value = TextBox10.Text
ActiveCell.Offset(0, 10).Value = TextBox11.Text
ActiveCell.Offset(0, 11).Value = TextBox12.Text

 

[veyselemre]

[vb:1:043e208e76]Private Sub CommandButton1_Click()
Sheets("defter").Select

If Range("A6").Value = "" Then
Range("A6").Value = 1
sat = 6
Else
sat = [a65536].End(3).Row
son = Cells(sat, 1)

If sat = 40 Then
sat = sat + 15
Else
sat = sat + 1
End If
Cells(sat, 1) = son + 1
End If

For x = 2 To 5
Cells(sat, x) = Me.Controls("Textbox" & x - 1)
Next x

Cells(sat, 6) = TextBox5.Text & "-" & TextBox6.Text

For x = 7 To 12
Cells(sat, x) = Me.Controls("Textbox" & x)
Next x

End Sub[/vb:1:043e208e76]

 

[durburga]

Ardışık sıralamayı sınırlandırma

Sayın veyselemre ilginize teşekkür ederim.
Yazmış olduğunuz kod programda hata veriyor. Ben dosyayıda ekledim. Belki dosya üzerinde daha iyi anlarsınız. Teşekkür ederim.

 

[veyselemre]

Sayfa üst bilgi ve alt bilgilerini kullanarak çok kullanlışlı hale gelir, çalışmanızı bu şekilde düzenledim.

 

[durburga]

Sayın veyselemre; çok çok teşekkür ederim. Ben makrolara yoğunlaştığımdan olacak ki böyle basit bir yöntem aklımın ucundan dahi geçmedi.
Sayenizde şunu anladımki: birşeyler bilmenin yanında bunu pratik olarak herzaman uygulayabilmek önemliymiş. Tekrar teşekkür ederim.