Otomatik üretilen sayıların birden fazla üretilmesini engellemek istiyorum.
Ã?rneğin 1 nolu sayı üretilip Evrak defteri sayfasına yazdırılmış olsun olmaz ama manuel olarak yanlışlıkla bu sayıyla bir kayıt daha yapılmaya çalışılınca kullanıcının uyarılmasını istiyorum.
Aşağıdaki makroyla bunu yapmaya çalıştım ama olmadı makroda düzeltme yapabilirmisiniz teşekkürler
Ã?rneğin 1 nolu sayı üretilip Evrak defteri sayfasına yazdırılmış olsun olmaz ama manuel olarak yanlışlıkla bu sayıyla bir kayıt daha yapılmaya çalışılınca kullanıcının uyarılmasını istiyorum.
Aşağıdaki makroyla bunu yapmaya çalıştım ama olmadı makroda düzeltme yapabilirmisiniz teşekkürler
Kod:
Private Sub CommandButton1_Click()
'Bu kodla aynı evrak numarasının birden fozla verdirilmesini engellemek istiyorum olmadı
If TextBox3.Value <> "" Then
Sheets("EVRAK DEFTERİ").Activate
Cells(2, 1).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.TextBox1.Value) Then
If MsgBox(Me.TextBox1 & " Numaralı Evrak Kaydı Var" & " Yeniden Kayıt Yapılsın mı?", vbYesNo, "Mükerrer Kayıt") = vbNo Then Exit Sub
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox "İsim veya Sıra No boş geçilemez", vbOKOnly
Else
dene = Application.CountA(Sheets("EVRAK DEFTERİ").Columns("A")) + 1
sira = TextBox1.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 2) = TextBox1.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 3) = TextBox2.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 1) = TextBox3.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 4) = TextBox4.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 5) = TextBox5.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 6) = TextBox6.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 7) = TextBox7.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 8) = TextBox8.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 9) = TextBox9.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 10) = TextBox10.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 11) = TextBox11.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 12) = TextBox12.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 13) = TextBox13.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 14) = TextBox14.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 15) = TextBox15.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 16) = TextBox16.Text
Sheets("EVRAK DEFTERİ").Cells(dene, 17) = TextBox17.Text
TextBox1.Text = sira + 1
TextBox2.Text = ""
End If
End Sub