• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userforum'dan Kayıt Yapmak

Katılım
25 Mayıs 2011
Mesajlar
7
Excel Vers. ve Dili
2010- türkçe
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.
 
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


Ya da daha fazla bilgi ayrıntı örnek için , arama özelliğinde " sıfırdan+userform " " userform+kod " gibi anahtar kelimeleri aratın .
 
Son düzenleme:
hocam allah razı olsun ya ne güzel insanlarsınız, sn netcini ve sn cems. çok teşekkür ediyorum.
 
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 ..
 
Sayın mustaj69, Allah hepimizden razı olsun. :)
 
Geri
Üst