Form bilgilerini excel'e kaydetme ?

[yakupaltun]

arkadaşlar bir program üzerinde çalışıyorum site içerisinde gezindim tam olarak nasıl yapıldığını kavrıyamadım sizden ricam userfomdaki bilgileri excel saysa 1 deki bölüme yazabilmek şimdiden teşekkür ederim

 

[Huseyinkis]

arkadaşlar bir program üzerinde çalışıyorum site içerisinde gezindim tam olarak nasıl yapıldığını kavrıyamadım sizden ricam userfomdaki bilgileri excel saysa 1 deki bölüme yazabilmek şimdiden teşekkür ederim

Örnek teşkil etmesi için ufak bir çalışma ekteki kodları userformun altına atınız..

[B]Private Sub CommandButton1_Click()
sonsat = Sheets("Sayfa1").Range("B65536").End(3).Row + 1
Sheets("Sayfa1").Cells(sonsat, "B").Value = TextBox1.Value
Sheets("Sayfa1").Cells(sonsat, "C").Value = TextBox3.Value
Sheets("Sayfa1").Cells(sonsat, "d").Value = TextBox4.Value
MsgBox "Kayıt İşlemi Tamamlandı"
End Sub

Private Sub CommandButton2_Click()
a = Sheets("Sayfa1").Range("B:B").Find(What:=TextBox1.Value, LookIn:=xlValues).Row
If Sheets("Sayfa1").Cells(a, "C").Value = TextBox3.Value Then
Rows(a).Delete Shift:=xlUp
Else
MsgBox "Kayıt bulunamadı"
End If
End Sub

Private Sub CommandButton3_Click()
a = Sheets("Sayfa1").Range("B:B").Find(What:=TextBox1.Value, LookIn:=xlValues).Row
If Sheets("Sayfa1").Cells(a, "C").Value = TextBox3.Value Then
Sheets("Sayfa1").Cells(a, "d").Value = TextBox4.Value
Else
MsgBox "Kayıt bulunamadı"
End If
End Sub

Private Sub TextBox4_Change()
If IsNumeric(TextBox4.Value) Then
Else
TextBox4.Value = ""
End If
End Sub[/B]

 

[yakupaltun]

eline sağlık harıka olmuş fakat ekledikten sonra texbox da bilgi kalıyor onu elle silmem gerekiyor yani ekledikten sonra kutular tekrar boş olma şansı varmı acaba veya sil dedinmi verideki bilgiyi silemiyor değiştirde de aynı problem acaba buşekildemi oluyor yoksa düzeltilme şansı varmı acamı şimdiden teşekkür ederim

 

[Huseyinkis]

eline sağlık harıka olmuş fakat ekledikten sonra texbox da bilgi kalıyor onu elle silmem gerekiyor yani ekledikten sonra kutular tekrar boş olma şansı varmı acaba veya sil dedinmi verideki bilgiyi silemiyor değiştirde de aynı problem acaba buşekildemi oluyor yoksa düzeltilme şansı varmı acamı şimdiden teşekkür ederim

Yukarıdaki ornek detaylı yapmadım.

sil ve değiştir komutları adı ve soyadı bilgisini girdiğiniz kişiyi tablodan siler. Adı ve soyadı girmezseniz işlem yapmaz. başta belirttiğim gibi örnek teşkil etmesi içindi.

gun içinde detaylı hale getirip yukleme yapabilirim.ama iş yoğunluğu biraz fazla bugun biraz bekleticem.

ekle komutunun altına kodları koyarsanız ekledikten sonra temizleme yapar.

Private Sub CommandButton1_Click()
sonsat = Sheets("Sayfa1").Range("B65536").End(3).Row + 1
Sheets("Sayfa1").Cells(sonsat, "B").Value = TextBox1.Value
Sheets("Sayfa1").Cells(sonsat, "C").Value = TextBox3.Value
Sheets("Sayfa1").Cells(sonsat, "d").Value = TextBox4.Value
[B]TextBox1.Value=""
TextBox3.Value=""
TextBox4.Value=""[/B]
MsgBox "Kayıt İşlemi Tamamlandı"
End Sub

 

[yakupaltun]

canın sağolsun bekleriz nedemek

 

[Huseyinkis]

canın sağolsun bekleriz nedemek

Ekteki dosyayı incelermisinizi.

 

[yakupaltun]

Abicim varya kalbimi okudun ve içimdekileri sen dillendirdin sana çok ama çok teşekkür ederim kardeş harika olmuş