sütunda tarih denetimi yapıp kaydetsin..

[mehmetfatih]

arkadaşlar ekteki dosyada hazırlamış olduğum userformda A stununa kaydedilen tarih eğer var ise kaydetmesin yoksa kaydetsin

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod bloğunu kaydet tuşunuzun altına ekleyip denermisiniz.

Private Sub CommandButton1_Click()
If WorksheetFunction.CountIf(Range("A:A"), ComboBox1.Value) > 0 Then
    MsgBox "Bu tarihe ait kayıt daha önce girilmiştir!", vbCritical
    Exit Sub
End If
'.....
'.....

 

[mehmetfatih]

Korhan hocam öncelikle emek verdiğin için teşekkür.. Yanlız bi sorun var tarihin daha önce kaydedildiğini söylüyor ama yinede kaydediyor.. Oysa benim istediğim kaydetmemesi ve o tarihe ait hiçbir bilgiyi değiştirmemeli onaylamadan.

 

[mehmetfatih]

Korhan hocam bu isteğimi şöyle yapabilirmiyiz veriler sayfasının a sütununa tarihlerin tamamını ben yazsam, userformdaki kaydet butonuna bastığımda seçmiş olduğum tarihe kaydetsin?

 

[Korhan Ayhan]

Merhaba,

Önerdiğim koddaki tüm satırları aynen yazmalısınız. Kendinize uyarlarken hata yapmış olmalısınız. Tekrar kontrol edin. Özellikle "Exit Sub" satırını kontrol edin.

 

[mehmetfatih]

hocam çalıştırıyorun çalışıyor yanlız kapatıp açtığımda çalışmıyor kontrol edebilirmisiniz şöyle yapıştırdığımda oluyor alta yapıştırdığımda hiç çalışmıyor.Private Sub CommandButton1_Click()
If WorksheetFunction.CountIf(Range("A:A"), ComboBox1.Value) > 0 Then
MsgBox "Bu tarihe ait kayıt daha önce girilmiştir!", vbCritical
Exit Sub
End If
'.....
'.....
Son_Dolu_Satir = Sheets("VERİLER").Range("A65536").End(xlUp).Row
bos_satir = Son_Dolu_Satir + 1
On Error Resume Next
Sheets("VERİLER").Range("A" & bos_satir).Value = ComboBox1.Value
Sheets("VERİLER").Range("B" & bos_satir).Value = TextBox2.Text
Sheets("VERİLER").Range("C" & bos_satir).Value = TextBox3.Text
Sheets("VERİLER").Range("D" & bos_satir).Value = TextBox4.Text
Sheets("VERİLER").Range("E" & bos_satir).Value = TextBox5.Text
Sheets("VERİLER").Range("F" & bos_satir).Value = TextBox6.Text
Sheets("VERİLER").Range("G" & bos_satir).Value = TextBox7.Text
Sheets("VERİLER").Range("H" & bos_satir).Value = TextBox8.Text
Sheets("VERİLER").Range("I" & bos_satir).Value = TextBox9.Text
Sheets("VERİLER").Range("J" & bos_satir).Value = TextBox10.Text
Sheets("VERİLER").Range("K" & bos_satir).Value = TextBox11.Text
Sheets("VERİLER").Range("L" & bos_satir).Value = TextBox12.Text
Sheets("VERİLER").Range("M" & bos_satir).Value = TextBox13.Text
Sheets("VERİLER").Range("N" & bos_satir).Value = TextBox14.Text
Sheets("VERİLER").Range("O" & bos_satir).Value = TextBox15.Text
Sheets("VERİLER").Range("P" & bos_satir).Value = TextBox16.Text
Sheets("VERİLER").Range("Q" & bos_satir).Value = TextBox17.Text
Sheets("VERİLER").Range("R" & bos_satir).Value = TextBox18.Text
Sheets("VERİLER").Range("S" & bos_satir).Value = TextBox19.Text
Sheets("VERİLER").Range("A") = 1
MsgBox "Kayıt Başarı İle Yapıldı TEŞEKKÜR EDERİM ..."
TextBox1.SetFocus
End Sub

 

[Korhan Ayhan]

Merhaba,

Uygulamanız doğru olmuş.

Eğer ComboBox1 nesnesinin boş olma durumuda varsa aşağıdaki satırıda ekleyebilirsiniz.

If ComboBox1 = "" Then Exit Sub

 

[mehmetfatih]

Hocam geç oldu öncelikle zaman ayırdığınız için teşekkür edrim sorunumu çözdüm şimdi farklı bi srunum var yardımcı olursanız userformda tablo eklemek..