VBA ile Excel'e sıralı bilgi girişi

[antidose]

Merhabalar,

Aşağıdaki hususta yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

Verilerim aşağıdaki gibi olacak:
1. Firma adı (a,b,c diye giden benim belirleyeceğim bir listeden seçmek istiyorum)
2. Ürün Adı (bunu textbox a yazacağım)
3. Parça Fiyatı
4. Parça Ağırlığı
5. Yıllık Adet
6. Tonaj (Yıllık Adet x Parça Ağırlığı)
7. Ciro (Parça fiyatı x Yıllık adet)

Bu verileri bir userform da girmem lazım (her biri aynı sayfada da gözükebilir ancak bir veriyi girdikçe diğerinin gelmesi daha iyi olur)
İşin önemli kısmı en sonda kaydet butonuna bastığımda bu verileri daha önceki verilerin arkasına kaydederek (diğer verileri silmeden) devam etmesi. Yani her kaydet butonuna basıldığında bir satır aşağıya kayıt yapması gerekiyor. Umarım düzgün anlatabilmişimdir. saygılarımla..

 

[mnz]

sub kayit()
Set S1 = Sheets("Sayfa1")
son = S1.[A65536].End(3).Row + 1
S1.Cells(son, "A") = TextBox1.Value
S1.Cells(son, "B") = TextBox2.Value
S1.Cells(son, "C") = TextBox3.Value
S1.Cells(son, "D") = TextBox4.Value
S1.Cells(son, "E") = TextBox5.Value
S1.Cells(son, "F") = TextBox6.Value
S1.Cells(son, "G") = TextBox7.Value
MsgBox "KAYDEDİLDİ."
end sub

Bukadar.
Formu oluşturup textbox ları yerleştirin.

 

[fedeal]

bir örnek dosya ekleseniz içine tabloları hazırlasanız bir sütuna comboboxa alınacak verileri yazsanız bizde seveseve userformu yapsak simdi kodları yazsak sayfa ismi ne olacak liste (combobox için) hangi sütunda olacak. bunları hazırlarsanız daha saglıklı sonuç alırsınız emin olun saygılar.