Comboboxlarla ilgili yere kayıt

[kalemm]

userformda Texboxları girdiğim verileri Comboboxlar yardımıyla ilgili sayfanın ilgili yerine kaydetmek istiyoryum.
ConboBox1 = ilgili sayfaya
Combobox2 = Dönem
Combox3= Ürün cinsi var
ilgili sayfanın seçilen ürün cinsinin uygun dönemine kayıt yapacak.
Userformdaki topla butonu ile illerin verilerini toplayıp Genel Toplam sayfasına yazdırmak istiyorum
ek incelenirse sanırım daha iyi anlaşılır.
Şimdiden Teşekkürler

 

[Levent Menteşoğlu]

Ekle butonundaki kodu aşağıdaki ile değiştirin.

Private Sub CommandButton2_Click()
If ComboBox1.ListIndex < 1 Then MsgBox "İl Secmelisiniz": Exit Sub
If ComboBox2.Text = "" Then MsgBox "Ay Secmelisiniz": Exit Sub
If ComboBox3.Text = "" Then MsgBox "Ürün Gurubu Girin": Exit Sub

Set s1 = Sheets("" & ComboBox1)
sat = ComboBox3.ListIndex * 6 + 5 + ComboBox2.ListIndex

s1.Cells(sat, "b") = TextBox1
s1.Cells(sat, "c") = TextBox13
s1.Cells(sat, "e") = TextBox25
s1.Cells(sat, "f") = TextBox37
s1.Cells(sat, "g") = TextBox49
s1.Cells(sat, "h") = TextBox50
s1.Cells(sat, "I") = TextBox51
s1.Cells(sat, "j") = TextBox52
s1.Cells(sat, "k") = TextBox53
End Sub

Genel toplam için gördüğüm kadarıyla fonksiyonlarla diğer sayfalardan toplamı almak daha pratik gibi görünüyor.

 

[kalemm]

Çok Teşekkür ederim cevabınız için Genel Toplam içinde yardımlarınızı bekliyorum