Listeden Seçerek Kayıt Girme

[abone0069]

Hazırlamış olduğum gider formunda listeden gider türünü seçerek giderlere ait bilgileri girmek istiyorum fakat yapamadım yardım edersenizi sevinirim. Saygılar...

 

[İhsan Tank]

Hazırlamış olduğum gider formunda listeden gider türünü seçerek giderlere ait bilgileri girmek istiyorum fakat yapamadım yardım edersenizi sevinirim. Saygılar...

iyi geceler userform'un kod bölümüne bir adet commanbutton ekliyerek

Private Sub CommandButton1_Click()
If ComboBox1.Text = Empty Then MsgBox "Gider Seçiniz.", vbCritical, "www.excel.web.tr": Exit Sub
If TextBox1.Text = Empty Then MsgBox "Sıra No Giriniz.", vbCritical, "www.excel.web.tr": Exit Sub
If TextBox2.Text = Empty Then MsgBox "Tarih Giriniz.", vbCritical, "www.excel.web.tr": Exit Sub
If TextBox3.Text = Empty Then MsgBox "Fatura No Giriniz.", vbCritical, "www.excel.web.tr": Exit Sub
If TextBox4.Text = Empty Then MsgBox "Gider Türü Giriniz.", vbCritical, "www.excel.web.tr": Exit Sub
If TextBox5.Text = Empty Then MsgBox "Tutar Giriniz.", vbCritical, "www.excel.web.tr": Exit Sub
Son_Dolu_Satir = Sheets("giderler (2)").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("giderler (2)").Range("A" & Bos_Satir).Value = ComboBox1.Text
Sheets("giderler (2)").Range("b" & Bos_Satir).Value = TextBox1.Text
Sheets("giderler (2)").Range("c" & Bos_Satir).Value = TextBox2.Text
Sheets("giderler (2)").Range("d" & Bos_Satir).Value = TextBox3.Text
Sheets("giderler (2)").Range("e" & Bos_Satir).Value = TextBox4.Text
Sheets("giderler (2)").Range("f" & Bos_Satir).Value = TextBox5.Text
MsgBox "Kayıt Başarı Şekilde Yapıldı", vbInformation, "www.excel.web.tr"
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "YAKIT"
ComboBox1.AddItem "SU HESABI"
ComboBox1.AddItem "ELEKTRİK"
ComboBox1.AddItem "ASANSÖR"
ComboBox1.AddItem "KAPICI HESABI"
ComboBox1.AddItem "DİGER GİDERLER"
End Sub
'Coder By Security
'ihsan Tank

bu kodları yapıştırınız.
örnek dosya ekte.

 

[abone0069]

Sn. İhsan Tank

Yardımınız için teşekür ederim.

 

[security]

İyi Çalışmalar...

 

[İhsan Tank]

Sn. İhsan Tank

Yardımınız için teşekür ederim.

rica ederim
iyi çalışmalar :mutlu:
ayrıca security'ye yardımlarından dolayı teşekkür ederim