sayfa içerinde 2 farklı tabloya kayıt

[fatih34]

iyi akşamlar arkadaşlar sayfa içerisnde iki adet tablo var her iki tabloda 25 satırlık iki tablo arasında 5 veya 6 satırlık boşluk var. bu iki tabloyu nasıl kayıt yapa biliriz 50 kişilik bir ismi sıra numarası ile beraber

 

[Mahir64]

Merhaba

SAyın fatih34
Bu şekilde açıklayıcı olmuyor. örnek dosya ekleyip üzerinde açıklama yaparsanız daha hızlı cevap alırsınız

 

[fatih34]

göndermiştim sayın black lord kaydet makrosund ayardım diye ama sabah cevap alamyınca her halde derdimi tam oalrak anlatamadım diye tekrar bu şekilde sormak istedim örnek dosya ekledim yalzın uzun bir makro denedim

 

[fatih34]

dosyayı ekledim

 

[fatih34]

bu konuda bir yardım yokmu üstadlar acaba olmayacak bir şeymi yada ben tam olarak anlatamadım mı

 

[fatih34]

arkadaşlar sizlerin sayesinde projemde bir yerlere geldim ancak kayıt bölümünde takıldım kaldım bu konu ile alakalı bir yardım yokmu
ben alttaki makroyu kullandım satır boşluğu vererek kayıt yapamadım
Private Sub CommandButton2_Click()
Sheets("SAYFA2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("b5").Value = "" Then
Range("b5").Value = 1
Range("b5").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1) = TextBox1.Text
ActiveCell.Offset(0, 33) = TextBox101.Text
ActiveCell.Offset(1, 1) = TextBox3.Text
ActiveCell.Offset(1, 33) = TextBox102.Text
ActiveCell.Offset(2, 1) = TextBox5.Text
ActiveCell.Offset(2, 33) = TextBox103.Text
ActiveCell.Offset(3, 1) = TextBox7.Text
ActiveCell.Offset(3, 33) = TextBox104.Text
ActiveCell.Offset(4, 1) = TextBox9.Text
ActiveCell.Offset(4, 33) = TextBox105.Text
ActiveCell.Offset(5, 1) = TextBox11.Text
ActiveCell.Offset(5, 33) = TextBox106.Text
ActiveCell.Offset(6, 1) = TextBox13.Text
ActiveCell.Offset(6, 33) = TextBox107.Text
ActiveCell.Offset(7, 1) = TextBox15.Text
ActiveCell.Offset(7, 33) = TextBox108.Text
ActiveCell.Offset(8, 1) = TextBox17.Text
ActiveCell.Offset(8, 33) = TextBox109.Text
ActiveCell.Offset(9, 1) = TextBox19.Text
ActiveCell.Offset(9, 33) = TextBox110.Text
ActiveCell.Offset(10, 1) = TextBox21.Text
ActiveCell.Offset(10, 33) = TextBox111.Text
ActiveCell.Offset(11, 1) = TextBox23.Text

satır boşluğu vererek nasıl kayıt yapa bilirim

 

[sbayyigit]

örnek makro işine yararmı bilmiyorum.