Useform Kayit

[ANTALYA 01]

Merhaba

Ekteki Çalışmada Sayfa Gizle-Göster ile VERİ Dosyasına Ulaşıyoruz.
VERİ Sayfasındaki GİRİŞ Butonuna tıkladığımızda Userform açılıyor.
Userform ile bilgiler giriliyor.Kaydet Tuşuna basıldığında veriler exel tablosunun
ilgili yerlerine aktarılıyor.Fakat 2.Bir kayıt yapılacağında Userformdaki bilgiler sabit
kalıyor 2.Bir veri girişinde tek tek silerek 2.bir veri o zaman girilebiliyor.
Benim isteğim Userforma veri girildiğinde kaydet tuşuna bastığımda userformdaki bilgiler
2.bir kayıt girilmesi için temizlensin.

 

[xxcell]

Sub Kayıt'ın son satırlarına aşağıdaki kodu ilave edin.

UserForm1.TextBox2 = ""
UserForm1.TextBox3 = ""
UserForm1.TextBox4 = ""
UserForm1.TextBox5 = ""
UserForm1.TextBox10 = ""
UserForm1.TextBox11 = ""

 

[ANTALYA 01]

V

Teşekkür ederim.

 

[ANTALYA 01]

D

Merhaba

Bu Çalışmada şöyle bir sorunum daha var yardımcı olursanız sevinirim.

Userform Müşteri Ünvanını Girmeden Kayıt yapmıyor.Ben istiyorum ki Userformdaki seçeneklere herhangi bir veri girişi yaptığımda ilgili satıra kaydı yapsın.Bu formda illa Müşteri ünvanı girilmezse kayıt yapmıyor.Userformda tek bir giriş yapılsada kaydetsin.

 

[Orion1]

Merhaba.
İşte O zaman Proplem olur.
Yeni kaydedeceğiniz veri dağa önceden Müşteri ünvanı verilmemiş satırın üstüne yazılır.Umarım anlatabilmişimdir.

 

[xxcell]

Userform1'deki CommandButton1_Click Olayında kırmızı renkli kodları silerek yerine yeşil renkli kodları ekleyin.

Private Sub CommandButton1_Click()
[COLOR="Red"]'If TextBox2.Text = Empty Then  ****** BU SATIRI AŞAĞIDAKİ İLE DEĞİŞTİRDİM[/COLOR]
[COLOR="DarkOliveGreen"]If Len(TextBox2.Text & TextBox3.Text & TextBox4.Text & TextBox5.Text & TextBox10.Text & TextBox11.Text) = 0 Then[/COLOR]
[COLOR="Red"]'MsgBox "Lütfen Müşteri Ünvanını Giriniz !", vbInformation ***** BU SATIRI AŞAĞIDAKİ İLE DEĞİŞTİRDİM[/COLOR]
[COLOR="DarkOliveGreen"]MsgBox "Boş Kayıt Girilemez"[/COLOR]
Else
Call kayıt
End If
End Sub

Module1'deki kayıt yordamında, kırmızı renkli kodları silerek yerine yeşil renkli kodları ekleyin.

Sub kayıt()
[COLOR="Red"]'For i = 2 To 603
'If Cells(i, "B").Value > "" Then
'Cells(i + 1, "B").Select
'End If
'Next[/COLOR]
[COLOR="DarkOliveGreen"]sonsatir = 1
For i = 2 To 7
If Cells(65535, i).End(xlUp).row > sonsatir Then sonsatir = Cells(65535, i).End(xlUp).row
Next
Cells(sonsatir + 1, 2).Select[/COLOR]
Selection = UserForm1.TextBox2.Text
Selection.Offset(0, 1).Value = UserForm1.TextBox3.Text
Selection.Offset(0, 2).Value = UserForm1.TextBox4.Text
Selection.Offset(0, 3).Value = UserForm1.TextBox5.Text
Selection.Offset(0, 4).Value = UserForm1.TextBox10.Text
Selection.Offset(0, 5).Value = UserForm1.TextBox11.Text
MsgBox "KAYDINIZ EKLENDİ", vbInformation
End Sub

 

[ANTALYA 01]

F

Merhaba
Dediğiniz şekilde yaptım fakat Compile error
only commnets may appear after end sub,end functıon,or end property hatası verdi rica etsem örnek çalışma üzerinde uygulamayı güncelleyebilirmisiniz.

 

[ANTALYA 01]

V

Merhaba

Bir türlü yapamadım.Eğer dediğim şekilde olmuyorsa olacak şekilde bu çalışmayı değiştirip yapabilirmiyiz rica etsem.

 

[xxcell]

Merhaba
Bir türlü yapamadım.Eğer dediğim şekilde olmuyorsa olacak şekilde bu çalışmayı değiştirip yapabilirmiyiz rica etsem.

Yukarıda verdiğim örneği aynen ekledim, sorunsuz çalıştı. Dosya ektedir.

 

[ANTALYA 01]

D

Merhaba

Örneğinizi inceledim Kayıt yapıyor güzel fakat daha önceki sorduğum soruyu tekrar sormam gerekiyor.

2.Bir kayıt yapılacağında Userformdaki bilgiler sabit
kalıyor 2.Bir veri girişinde tek tek silerek 2.bir veri o zaman girilebiliyor.
Benim isteğim Userforma veri girildiğinde kaydet tuşuna bastığımda userformdaki bilgiler
2.bir kayıt girilmesi için temizlensin.

Bu Sorunda çözersek çok memnun olucam ilginizden dolayı teşekkür ederim.

 

[xxcell]

Sub Kayıt'ın son satırlarına aşağıdaki kodu ilave edin.

UserForm1.TextBox2 = ""
UserForm1.TextBox3 = ""
UserForm1.TextBox4 = ""
UserForm1.TextBox5 = ""
UserForm1.TextBox10 = ""
UserForm1.TextBox11 = ""

Eeee tamam işte onu nası yapacağını yukarda söylemişiz.