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

Katılım
6 Mayıs 2005
Mesajlar
9
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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]
 
Katılım
6 Mayıs 2005
Mesajlar
9
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Sayfa üst bilgi ve alt bilgilerini kullanarak çok kullanlışlı hale gelir, çalışmanızı bu şekilde düzenledim.
 
Katılım
6 Mayıs 2005
Mesajlar
9
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.
 
Üst