Soru Userformda KAYDET

TURKOLOG

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
52
Beğeniler
6
Excel Vers. ve Dili
2016 64 BİT TR
#1
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
272
Beğeniler
2
Excel Vers. ve Dili
TÜRKÇE. 2010
#2
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
52
Beğeniler
6
Excel Vers. ve Dili
2016 64 BİT TR
#3
Kodu deneyip size geri dönüş yapacağım. Sayın @BAZGİRET . Ayrıca emeğinize sağlık. Çok teşekkür ederim.
 
Üst