Çalışma Sayfama Kod Eklemek İstiyorum

[cengizozkan]

Uzun bir aradan sonra tekrar merhabalar, Hayırlı Ramazanlar;

Eklediğim dosyada çalışmalarımı yapmaktayım fakat birazdaha geliştirmek istiyorum. Bunun için bir kaç tane UserForm oluşturdum düzenledim fakat kod ekleyemedim. Excel Dosyasındaki bilgileri Forma yazarak eklemek istiyorum. form hazır ama sadece kod yazamadım

Yardımcı Olursanız çok sevinirim. İlgi ve Alakanız için Teşekkürler.
Tüm Oruçtutanların Orucu Kabul olması dileği ile,

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[ogulcan92]

Sn:Cengiz Özkan
Dosyanızda formlarınızı biraz daha düzenli hazırlayıp tüm formlarınız hazırlıyacağınız bir ana form üzerinden kontrol etmeniz daha düzenli olacaktır.Hazırlamış olduğunuz formlarda eksikler var.Aşağıdaki kodları kendi formlarınıza göre düzenleyiniz takıldığın yerlerde yine yardımcı olmaya çalışırız.

Kod: [Seç]

Private Sub CommandButton1_Click() 'Kaydet
b = WorksheetFunction.CountA(Sheets("Veri").Range("A:A"))
Sheets("Veri").Range("a" & b + 1).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = TextBox4.Value
ActiveCell.Offset(0, 4) = TextBox5.Value
ActiveCell.Offset(0, 5) = TextBox6.Value
MsgBox "Verileriniz Kayıt Yapıldı", , "www.excelce.net"
CommandButton4_Click
End Sub

Private Sub CommandButton2_Click() 'Bul
For Each hucre In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
   hucre.Select
   TextBox2 = ActiveCell.Offset(0, 1).Value
   TextBox3 = ActiveCell.Offset(0, 2).Value
   TextBox4 = ActiveCell.Offset(0, 3).Value
   TextBox5 = ActiveCell.Offset(0, 4).Value
End If
Next
End Sub

Private Sub CommandButton3_Click() 'Değiştir
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox3.Value
ActiveCell.Offset(0, 4).Value = TextBox4.Value
ActiveCell.Offset(0, 5).Value = TextBox5.Value
MsgBox "Verileriniz Kayıt Yapıldı", , "www.excelce.net"
CommandButton4_Click
End Sub

Private Sub CommandButton4_Click() 'Temizle
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub

Private Sub CommandButton5_Click() 'Sil
Dim cevap
Dim i
cevap = MsgBox("Seçili Kaydı Silmek istediğinizden Eminmisiniz ?", vbYesNo + vbQuestion, "www.excelce.net")
If cevap = vbYes Then
Selection.EntireRow.Delete
End If
Range("A1").Select
MsgBox "Verileriniz Silindi", , "www.excelce.net"
End Sub


[ogulcan92]

Sn:Cengiz Özkan
Aşağıdaki örneği inceleyiniz.Formlarınızı daha düzenli hazırlamanız yardım alırken ne istediğinizide anlatmak için de önemlidir.Birde bence Faturano Tarih sekmesinden sonra gelirse daha mantıklı ve güzel olur. 

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[cengizozkan]

Sn:Cengiz Özkan
Aşağıdaki örneği inceleyiniz.Formlarınızı daha düzenli hazırlamanız yardım alırken ne istediğinizide anlatmak için de önemlidir.Birde bence Faturano Tarih sekmesinden sonra gelirse daha mantıklı ve güzel olur.

Sn Oğulcan92 yapmış olduğunuz userform inceledim güzel çalışma olmuş sizin daha önce yapmış olduğuz çalışmalardan esinlenerek zaten bir seyler yapmaya çalışmıştım. eğer kabul ederseniz bu userformları düzenleyerek sizin arşivinize ve sizin isminizde yayınlayalım.

[ogulcan92]

Sn:Cengiz Özkan
Düşüncelerinizle beni onurlandırdığınız için teşekkür ederim, elbetteki elimizden geldiğince site yönetimi olsun veya bizler olalım yardımcı olmaya çalışırız.Çalışmanızı bitirdiğiniz zaman sitede paylaşıp siteyi kuran yönetici ve yardımcı arkadaşlara teşekkür etmeniz bizler için yerelidir.Paylaşıma sunulan her örnek çalışma yeni yetişen arkadaşlarımıza bir ışık tutacaktır.

[assenucler]

Sayın Ogulcan92;

İyi akşamlar..

Katkı ve paylaşımınız için teşekkürler..

Herkese iyi bayramlar...