Soru Userformda KAYDET

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
378
Excel Vers. ve Dili
2016 64 TR
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
 
Son düzenleme:

BAZGİRET

Destek Ekibi
Destek Ekibi
Katılım
5 Kasım 2011
Mesajlar
317
Excel Vers. ve Dili
TÜRKÇE. 2010
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

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
378
Excel Vers. ve Dili
2016 64 TR
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

Destek Ekibi
Destek Ekibi
Katılım
5 Kasım 2011
Mesajlar
317
Excel Vers. ve Dili
TÜRKÇE. 2010
Ben teşekkür ederim. Kolay gelsin.
 
Üst