Çözüldü Eksik Bilgi Olduğunda Kayıt İşleminin Devam Etmesi Hakkında.

[yesimgurol]

Merhabalar,
Excel sayfa içerisinde oluşturmaya çalıştığım TextBox ve ComboBox lar yardımı ile veri girişi yapmaktayım. Veri girişi için kullanmış olduğum TextBox ve ComboBox'larda eksik bilgi olduğunda kayıt esnasında bu kısımların doldurulması için sınırlandırmak istemekteyim. Kaydet butonuna ait kodlar aşağıdaki gibidir.

Private Sub CommandButton1_Click()
Dim Sayfa1
Dim vt, k, y, u
Dim t, pp, op

Sheets("SATIS").Select

Sayfa1 = Sheets("SATIS").Range("B65536").End(xlUp).Row
vt = Sayfa1 + 1


Sheets("SATIS").Range("B" & vt).Value = ComboBox1.Value
Sheets("SATIS").Range("C" & vt).Value = TextBox1.Value
Sheets("SATIS").Range("E" & vt).Value = TextBox2.Value
Sheets("SATIS").Range("G" & vt).Value = TextBox3.Value
Sheets("SATIS").Range("H" & vt).Value = TextBox4.Value
Sheets("SATIS").Range("K" & vt).Value = TextBox5.Value
Sheets("SATIS").Range("J" & vt).Value = TextBox6.Value
Sheets("SATIS").Range("L" & vt).Value = TextBox10.Value
        
        Sheets("SATIS").Range("D" & vt).Value = ComboBox2.Value
        Sheets("SATIS").Range("F" & vt).Value = ComboBox3.Value
      
        
        

a = MsgBox("Veri kaydedildi ...", vbInformation, "Tebrikler")
ComboBox1.Value = ""
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
     TextBox6.Value = ""
      TextBox10.Value = ""
      TextBox7.Value = ""
      TextBox8.Value = ""
      TextBox9.Value = ""
  
   ComboBox2.Value = ""
   ComboBox3.Value = ""

   Sheets("SATIS").Range("A" & vt).Activate
    
      stokhesap


End Sub

Forumda yer alan bir kaç örnek konularda aslında tamda istediğim kod mevcuttu fakat sanırım userform içinde olmadığından hata verdi. Sayın Korhan Bey'in benzer bir konuya vermiş olduğu kodlarda aşağıdaki gibi;

Private Sub CommandButton1_Click()
    For X = 1 To 10
    If Controls("TextBox" & X) = "" Then
    MsgBox ("Kayıt işlemi için gerekli tüm bölümlere veri girmelisiniz." _
    & Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "Dikkat !"
    Controls("TextBox" & X).SetFocus
    Exit Sub
    End If
    Next
    ....... 'BURDAN SONRA KAYIT KODLARINIZI EKLEYİNİZ.
End Sub

Bu kodları denedim ama maalesef kendi isteğime uyarlayamadım:-(

 

[MusaPEKEL]

Merhabalar,
Excel sayfa içerisinde oluşturmaya çalıştığım TextBox ve ComboBox lar yardımı ile veri girişi yapmaktayım. Veri girişi için kullanmış olduğum TextBox ve ComboBox'larda eksik bilgi olduğunda kayıt esnasında bu kısımların doldurulması için sınırlandırmak istemekteyim. Kaydet butonuna ait kodlar aşağıdaki gibidir.

Private Sub CommandButton1_Click()
Dim Sayfa1
Dim vt, k, y, u
Dim t, pp, op

Sheets("SATIS").Select

Sayfa1 = Sheets("SATIS").Range("B65536").End(xlUp).Row
vt = Sayfa1 + 1


Sheets("SATIS").Range("B" & vt).Value = ComboBox1.Value
Sheets("SATIS").Range("C" & vt).Value = TextBox1.Value
Sheets("SATIS").Range("E" & vt).Value = TextBox2.Value
Sheets("SATIS").Range("G" & vt).Value = TextBox3.Value
Sheets("SATIS").Range("H" & vt).Value = TextBox4.Value
Sheets("SATIS").Range("K" & vt).Value = TextBox5.Value
Sheets("SATIS").Range("J" & vt).Value = TextBox6.Value
Sheets("SATIS").Range("L" & vt).Value = TextBox10.Value
       
        Sheets("SATIS").Range("D" & vt).Value = ComboBox2.Value
        Sheets("SATIS").Range("F" & vt).Value = ComboBox3.Value
     
       
       

a = MsgBox("Veri kaydedildi ...", vbInformation, "Tebrikler")
ComboBox1.Value = ""
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
     TextBox6.Value = ""
      TextBox10.Value = ""
      TextBox7.Value = ""
      TextBox8.Value = ""
      TextBox9.Value = ""
 
   ComboBox2.Value = ""
   ComboBox3.Value = ""

   Sheets("SATIS").Range("A" & vt).Activate
   
      stokhesap


End Sub

Forumda yer alan bir kaç örnek konularda aslında tamda istediğim kod mevcuttu fakat sanırım userform içinde olmadığından hata verdi. Sayın Korhan Bey'in benzer bir konuya vermiş olduğu kodlarda aşağıdaki gibi;

Private Sub CommandButton1_Click()
    For X = 1 To 10
    If Controls("TextBox" & X) = "" Then
    MsgBox ("Kayıt işlemi için gerekli tüm bölümlere veri girmelisiniz." _
    & Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "Dikkat !"
    Controls("TextBox" & X).SetFocus
    Exit Sub
    End If
    Next
    ....... 'BURDAN SONRA KAYIT KODLARINIZI EKLEYİNİZ.
End Sub

Bu kodları denedim ama maalesef kendi isteğime uyarlayamadım:-(

    If Trim(Me.TextBox2.Value) = "" Then
        MsgBox "Lütfen TextBox2'yi doldurun!", vbExclamation
        Exit Sub
    End If
    
    If Me.ComboBox2.ListIndex = -1 Then
        MsgBox "Lütfen ComboBox2'yi seçin!", vbExclamation
        Exit Sub
    End If
    
    olarak ekleme yapabilirsiniz.

 

[yesimgurol]

Musa bey, ilginiz için teşekkür ederim. Denedim dediğiniz şekilde uyarı mesajı alıyorum evet ama uyarıya tamam dediğimde kayıt işlemine devam etti. Etmemesi için ne yapılabilir :-(

 

[MusaPEKEL]

Musa bey, ilginiz için teşekkür ederim. Denedim dediğiniz şekilde uyarı mesajı alıyorum evet ama uyarıya tamam dediğimde kayıt işlemine devam etti. Etmemesi için ne yapılabilir :-(

dosya iletebilirmisiniz.

 

[yesimgurol]

Merhaba elbette Musa bey,
Ekte yer alan çalışma sayfasındaki depo gırıs sayfasında kaydet butonlarının üzerinde bulunan textbox ve combobox larda veri girişini zorunlu tutmak istiyordum.

 

[MusaPEKEL]

Denermisiniz.

 

[yesimgurol]

Musa bey tekrar merhaba,
Evet düzenlediğiniz dosyada isteğim karşılanıyor teşekkür ederim. Mevcut kodlarımda çok karışıktı bende farkındayım forumda yer alan örnek dosyalardan kendime uyarlayarak birşeyler yapmaya çalışıyorum. Düzenlemişsiniz elinize sağlık.
Yalnız sayfada yer alan diğer kodları kaldırmışsınız mesela combobox değerine göre bazı textlere veri geliyordu onları ben tekrar sayfaya alsam sorun olur mu ki. Birde başka sayfalarda vardı aynı bu şekilde olan onların kod içeriği de aynıydı sizinkine göre uyarlamaya çalışacağım bakalım.