Userforum'dan Kayıt Yapmak

[mustaj69]

Arkadaşlar merhabalar, bir servis yazılımı yapmaya çalışıyorum. Ama makro da epey yeniyim. Dün gece başladım :tongue:. Allah'a şükür İstediğimi elde ettim ama Ufak bir sorunum kaldı.

Aslında manuel olarak kayıt yapabiliyorum ama user forumdan kayıt işlemi yapamıyorum. Acaba kıymetli vaktinizden birazcık alabilir miyim? Bana yardımcı olabilir misiniz?

Yazılımımın linki bu;
http://dosya.co/0cyuu05l3bqm/SERVİSLER.xlsm.html

Teşekkür ederim ilginize.

 

[netcini]

Dosyada düzenlemeler yaptım

http://s2.dosya.tc/server5/tofelp/SERVISLER.zip.html

 

[cems]

Kaydet butonu altına bu kodları yerleştirin :

Private Sub CommandButton1_Click()
If Me.ComboBox1.Value = "" _
Or Me.TextBox1.Value = "" _
Or Me.TextBox2.Value = "" _
Or Me.ComboBox3.Value = "" Then
MsgBox "Alanları Tam Doldur", vbInformation, "Eksik bilgi girilemez "
Exit Sub
End If
Son_Dolu_Satir = Sheets("liste").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("liste").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("liste").Range("A:A")) + 1
Sheets("liste").Range("b" & Bos_Satir).Value = Me.ComboBox1.Text
Sheets("liste").Range("c" & Bos_Satir).Value = Me.TextBox1.Text
Sheets("liste").Range("D" & Bos_Satir).Value = Me.TextBox2.Text
Sheets("liste").Range("E" & Bos_Satir).Value = Me.ComboBox3.Text
Sheets("liste").Range("F" & Bos_Satir).Value = Me.ComboBox4.Text
Sheets("liste").Range("G" & Bos_Satir).Value = Me.TextBox5.Text
Sheets("liste").Range("H" & Bos_Satir).Value = Me.TextBox6.Text
Sheets("liste").Range("I" & Bos_Satir).Value = Me.TextBox7.Text
Sheets("liste").Range("J" & Bos_Satir).Value = Me.ComboBox2.Text

MsgBox " Kayıt gerçekleşti. Yeni kayıt için form boşaltılıyor "

ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
ComboBox2.Text = ""

ThisWorkbook.Save
MsgBox " Form boşaltıldı ve kayıt korundu "

End Sub

Ayrıca userform ilk açıldığında boş gelmesi için userform initialize olayına

Private Sub UserForm_Initialize()
Me.ComboBox1.Text = ""
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.ComboBox3.Text = ""
Me.ComboBox4.Text = ""
Me.TextBox5.Text = ""
Me.TextBox6.Text = ""
Me.TextBox7.Text = ""
Me.ComboBox2.Text = ""

End Sub

Bu kodları yerleştirin . Son olarak da vba tasarım penceresinde userforma sağ tıklayın ve
" tab order " seçeneğini tıklayın , veri girip enterladıkça sıralı olarak nasıl ilerlemesini istiyorsanız o şekilde nesneleri sıralayıp yukarı aşağı alın .


Bu hocalarımızın derslerini izleyerek diğer tuşların altındaki kodları , öğrenerek oluşturmanız da mümkün

http://www.excel.web.tr/f157/userform-olu-turmak-syfyrdan-ba-lama-yeni-ba-t48862.html

Ya da daha fazla bilgi ayrıntı örnek için , arama özelliğinde " sıfırdan+userform " " userform+kod " gibi anahtar kelimeleri aratın .

 

[mustaj69]

hocam allah razı olsun ya ne güzel insanlarsınız, sn netcini ve sn cems. çok teşekkür ediyorum.

 

[cems]

hocam allah razı olsun ya ne güzel insanlarsınız, sn netcini ve sn cems. çok teşekkür ediyorum.

Bizler, arada dem veren yapraklar olabiliriz , ancak böylesine bir bahçeyi kurup yetişmelere sebep olanlar ; onlar buranın asıl Ihlamur rayihaları

Onlardan sebep naciz bir fayda ettik ise ; ne mutlu
Kolaylıklar dilekleri ile ..

 

[netcini]

Sayın mustaj69, Allah hepimizden razı olsun.