Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: cengizozkan - 21 Ağustos 2010, 17:57:42
-
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.]
-
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.
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
-
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.]
-
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.
-
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.
-
Sayın Ogulcan92;
İyi akşamlar..
Katkı ve paylaşımınız için teşekkürler..
Herkese iyi bayramlar...