Soru Userformda KAYDET

[TURKOLOG]

Arkadaşlar çok uğraştım ve çözemiyorum.
VERİ adli sayfama userform ile kaydet yapmak istiyorum. A sütünü her kayıtta bir atacak şekilde. Naptimsa olmadı yardim edin lütfen

A sütünü texbox ve otomotik sıra numarası olacak ve her satırda atacak şekilde
B sütünü sicil textbox
C sütünü adı redbox
D sütünü soy adı texbox
E sütünü rütbesi combobox
F sütünü bürosu combobox
G sütünü kimlik numarası texbox
H sütünü cep telefonu texbox
I sütünü dahilisi texbox
J sütünü kan grubu combobox
K sütünü tahsili texbox
L sütünü diğer combobox
M sütünü kodu combobox
Şeklinde user formu yaptım
Ama kaydet kodunu çalıştırmıyorum

 

[BAZGİRET]

Merhaba,
Yaptığınız userformu eklerseniz daha detaylı ve isabetli kodlar yazılabilir.
Aşağıdaki kodu deneyin;

Dim SonSatır

Private Sub CommandButton1_Click()
SonSatır = WorksheetFunction.CountA(Worksheets("DATA").Range("A:A")) + 1
Cells(SonSatır, "A").Value = WorksheetFunction.Max(Range("A2:A" & Rows.Count)) + 1

Worksheets("DATA").Cells(SonSatır, 2) = TextBox1.Value
Worksheets("DATA").Cells(SonSatır, 3) = TextBox2.Value
Worksheets("DATA").Cells(SonSatır, 4) = TextBox3.Value
Worksheets("DATA").Cells(SonSatır, 5) = TextBox4.Value
Worksheets("DATA").Cells(SonSatır, 6) = ComboBox1.Value
Worksheets("DATA").Cells(SonSatır, 7) = TextBox5.Value
Worksheets("DATA").Cells(SonSatır, 8) = TextBox6.Value
Worksheets("DATA").Cells(SonSatır, 9) = TextBox7.Value
Worksheets("DATA").Cells(SonSatır, 10) = ComboBox2.Value
Worksheets("DATA").Cells(SonSatır, 11) = TextBox8.Value
Worksheets("DATA").Cells(SonSatır, 12) = ComboBox3.Value
Worksheets("DATA").Cells(SonSatır, 13) = ComboBox4.Value

End Sub

 

[TURKOLOG]

Kodu deneyip size geri dönüş yapacağım. Sayın @BAZGİRET . Ayrıca emeğinize sağlık. Çok teşekkür ederim.

 

[BAZGİRET]

Ben teşekkür ederim. Kolay gelsin.