Sayfada kayıt işlemi

[zfr10]

Selam arkadaşlar çalışma sayfamdaki textboxlar ve comboboxları 6.satırdan itibaren alt alta kayıt etmek istiyorum.Yardımcı olurmusunuz.

 

[Excelmy]

Yol göstermek için birkaç örnek veri girseniz daha iyi olurdu.

Kayıtlar tek sütunda mı olacak ?

 

[zfr10]

Yok userformda olduğu gibi her combobox veya textbox tek hücreye olacak şekilde ama her kayıtta alt alta olacak şekilde ve B sütunundan R sütununa kadar

 

[Excelmy]

KAYDET butonunuza (CommandButton1) ait kodlar ;

Dim sat As Long
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row + 1
Sheets("Sayfa1").Cells(sat, "A").Value = sat - 5
Sheets("Sayfa1").Cells(sat, "B").Value = ComboBox1.Value
Sheets("Sayfa1").Cells(sat, "C").Value = ComboBox2.Value
Sheets("Sayfa1").Cells(sat, "D").Value = ComboBox3.Value
Sheets("Sayfa1").Cells(sat, "E").Value = TextBox1.Value
Sheets("Sayfa1").Cells(sat, "F").Value = ComboBox4.Value
Sheets("Sayfa1").Cells(sat, "G").Value = TextBox2.Value
Sheets("Sayfa1").Cells(sat, "H").Value = ComboBox5.Value
Sheets("Sayfa1").Cells(sat, "I").Value = ComboBox6.Value
Sheets("Sayfa1").Cells(sat, "J").Value = ComboBox7.Value
Sheets("Sayfa1").Cells(sat, "K").Value = ComboBox8.Value
Sheets("Sayfa1").Cells(sat, "L").Value = ComboBox9.Value
Sheets("Sayfa1").Cells(sat, "M").Value = ComboBox10.Value
Sheets("Sayfa1").Cells(sat, "N").Value = ComboBox11.Value
Sheets("Sayfa1").Cells(sat, "O").Value = TextBox3.Value
Sheets("Sayfa1").Cells(sat, "P").Value = TextBox4.Value
Sheets("Sayfa1").Cells(sat, "Q").Value = ComboBox12.Value
Sheets("Sayfa1").Cells(sat, "R").Value = ComboBox13.Value

 

[zfr10]

Gerçekten harikasınız hocam ellerinize sağlık çok teşekkür ediyorum.Orman emvalleri ile ilgili stok takip çalışması yapıyorum bu konuda yardımcı olabilir misiniz.