Çözüldü Kayıt Hatası

sirkülasyon · 30 Nisan 2019

Kod:

Private Sub CommandButton1_Click()
Dim destek As Worksheet
Dim say As Integer
Dim ara As String
Dim bul As Range
Set destek = Worksheets("KAYIT")
say = WorksheetFunction.CountA(destek.Range("B3:B65536")) + 1

destek.Cells(say + 1, 3).Value = TextBox1.Value ' Yüklenici Adı Soyadı
destek.Cells(say + 1, 4).Value = TextBox5.Value ' Tebligat Adresi
destek.Cells(say + 1, 5).Value = TextBox2.Value ' T.C Kimlik No
destek.Cells(say + 1, 6).Value = TextBox3.Value ' Vergi Kimlik No
destek.Cells(say + 1, 7).Value = TextBox4.Value ' GSM No
destek.Cells(say + 1, 8).Value = ComboBox1.Value ' Taşıma Merkez Okul Adı
destek.Cells(say + 1, 9).Value = TextBox7.Value ' Taşınan Yerleşim Yeri
destek.Cells(say + 1, 10).Value = TextBox12.Value ' Taşınan Öğrenci Sayısı
destek.Cells(say + 1, 11).Value = TextBox13.Value 'Taşıma Yapılan KM
destek.Cells(say + 1, 12).Value = TextBox6.Value ' İhale Kayıt Numarası
destek.Cells(say + 1, 13).Value = TextBox14.Value ' Sözleşme Bedeli
destek.Cells(say + 1, 14).Value = TextBox10.Value ' İhale Gün Sayısı
destek.Cells(say + 1, 15).Value = TextBox16.Value 'Teklif Tutarı
destek.Cells(say + 1, 16).Value = TextBox11.Value 'Kati Teminat
destek.Cells(say + 1, 17).Value = TextBox8.Value ' İş Başlama Tarihi
destek.Cells(say + 1, 18).Value = TextBox9.Value ' İş Bitiş Tarihi
destek.Cells(say + 1, 19).Value = TextBox15.Value  ' Sözleşme Tarihi
destek.Cells(say + 1, 20).Value = TextBox18.Value ' İşin Tanımı

ara = TextBox18.Value
Set bul = destek.Range("T3:T65536").Find(ara, , xlValues, xlWhole)
If Not bul Is Nothing Then
Range(destek.Cells(bul.Row, 3), destek.Cells(bul.Row, 19)).Delete Shift:=xlUp
End If
ActiveWorkbook.Save

MsgBox " Bu ihale daha önce girilmiş ", vbCritical, "UYARI"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
ComboBox1 = ""
TextBox1.SetFocus
End Sub

Yapmak istediğim KAYIT sayfasına B3 den itibaren alt alta kayıt etmek
ve Textbox18' den hücreye aktarılan bilgiye göre aynısı aktarılırsa mükerrer kayıt diyerek uyarı verip kayıt etmemesi

sizlerden ricam
kayıt et dediğim zaman B3 yerine B2 ye kayıt ediyor
alt alta kayıt etmesi gerekirken sürekli B2 ye kayıt ediyor.
Mükerrer bulmuyor. Yardımcı olabilir misiniz?

saygılarımla

EmrExcel16 · 30 Nisan 2019

Merhaba, Say değişkeni B sütununda çalışıyor fakat sen bilgileri C sütundan itibaren yazdırıyorsun say değişkenini C sütununa göre değiştirirsen sorunun düzelebilir

sirkülasyon · 30 Nisan 2019

Sayın emr123
inan et beceremedim.

Kayıt et dediğim zaman B3 yerine B2 ye kayıt konusunda
alt alta kayıt etmesi gerekirken sürekli B2 ye kayıt etmes
Mükerrer bulması için yardımcı olabilir misin

EmrExcel16 · 30 Nisan 2019

say değişkenini aşağıdaki gibi değiştirip dener misin ?

Kod:

say = WorksheetFunction.CountA(destek.Range("C3:C65536")) + 2

EmrExcel16 · 30 Nisan 2019

Birde bu kodlar B3 değil C3 den itibaren çalışır bunu da kontrol etmen gerekir
destek.Cells(say + 1, 3).Value burdan başlayarak yazdığın verilerde 3 yazan C sutununu ifade eder.

sirkülasyon · 30 Nisan 2019

Sayın @emr123
birinci sıkıntım tamam sizin yardımınızla teşekkür ederim.
Birde ikinci sıkıntıma bakabilir misiniz?
textbox18 T sütununa kayıt yapıyor
Eğer aynı veriyi tekrar kayıt yaparsa kaydetmeden önce uyarı nasıl alabilirim

EmrExcel16 · 30 Nisan 2019

sirkülasyon' Alıntı:
Sayın @emr123
birinci sıkıntım tamam sizin yardımınızla teşekkür ederim.
Birde ikinci sıkıntıma bakabilir misiniz?
textbox18 T sütununa kayıt yapıyor
Eğer aynı veriyi tekrar kayıt yaparsa kaydetmeden önce uyarı nasıl alabilirim

Böyle isteğinizi karşılıyor mu deneyin.

Kod:

Private Sub CommandButton1_Click()
Dim destek As Worksheet
Dim say As Integer
Dim ara As String
Dim bul As Range
Set destek = Worksheets("KAYIT")
say = WorksheetFunction.CountA(destek.Range("C3:C65536")) + 2

destek.Cells(say + 1, 3).Value = TextBox1.Value ' Yüklenici Adı Soyadı
destek.Cells(say + 1, 4).Value = TextBox5.Value ' Tebligat Adresi
destek.Cells(say + 1, 5).Value = TextBox2.Value ' T.C Kimlik No
destek.Cells(say + 1, 6).Value = TextBox3.Value ' Vergi Kimlik No
destek.Cells(say + 1, 7).Value = TextBox4.Value ' GSM No
destek.Cells(say + 1, 8).Value = ComboBox1.Value ' Taşıma Merkez Okul Adı
destek.Cells(say + 1, 9).Value = TextBox7.Value ' Taşınan Yerleşim Yeri
destek.Cells(say + 1, 10).Value = TextBox12.Value ' Taşınan Öğrenci Sayısı
destek.Cells(say + 1, 11).Value = TextBox13.Value 'Taşıma Yapılan KM
destek.Cells(say + 1, 12).Value = TextBox6.Value ' İhale Kayıt Numarası
destek.Cells(say + 1, 13).Value = TextBox14.Value ' Sözleşme Bedeli
destek.Cells(say + 1, 14).Value = TextBox10.Value ' İhale Gün Sayısı
destek.Cells(say + 1, 15).Value = TextBox16.Value 'Teklif Tutarı
destek.Cells(say + 1, 16).Value = TextBox11.Value 'Kati Teminat
destek.Cells(say + 1, 17).Value = TextBox8.Value ' İş Başlama Tarihi
destek.Cells(say + 1, 18).Value = TextBox9.Value ' İş Bitiş Tarihi
destek.Cells(say + 1, 19).Value = TextBox15.Value  ' Sözleşme Tarihi
destek.Cells(say + 1, 20).Value = TextBox18.Value ' İşin Tanımı

ara = TextBox18.Value
Set bul = destek.Range("T3:T65536").Find(ara, , xlValues, xlWhole)

If Not bul Is Nothing Then
    cvp = MsgBox("  Bu ihale daha once girilmis  " & vbLf & "   Kayit etmek istiyor musunuz ?", vbQuestion + vbYesNo, "UYARI")
    If cvp = vbYes Then
        ActiveWorkbook.Save
    Else
        Range(destek.Cells(bul.Row, 3), destek.Cells(bul.Row, 20)).Delete Shift:=xlUp
    End If
End If

TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
ComboBox1 = ""
TextBox1.SetFocus
End Sub

sirkülasyon · 30 Nisan 2019

Sayın @emr123
Allah razı olsun. Kayıt ediyor. Uyarı da veriyor. Ancak
Bir : Her Kayıt için uyarı veriyor
İki : Uyarıya hayır denilirse kayıt etmemesi lazımken sadece rakam atıyor.
Bunun haricinde bir sıkıntı yok.
Bakabilirseniz sevinirim. Bakmazsanız da canınız sağ olsun.
Bayağı zahmet verdim çünkü size

EmrExcel16 · 30 Nisan 2019

Allah hepimizden razı olsun. Rakamı hangi sütuna atıyor B sütunumu acaba ? her kayıtda uyarı vermemesi gerekir sadece daha önce aynı kayıt varsa uyarı vermesi gerekir. Bu gözle tekrar bakıp sorunları sırasıyla çözelim.

sirkülasyon · 30 Nisan 2019

Rakamı sıkıntısını çözdüm
Sadece Mükerrer kısmı kaldı
Oda textbox18 T sütununa kaydediyor.
T sütununa textbox18 de ki verinin birebir aynısı var ise uyarı versin ve kaydetmesin.

Tek isteğim bu.

Teşekkür ederim

EmrExcel16 · 30 Nisan 2019

O zaman bunu deneyin.

Kod:

Private Sub CommandButton1_Click()
Dim destek As Worksheet
Dim say As Integer
Dim ara As String
Dim bul As Range
Set destek = Worksheets("KAYIT")
say = WorksheetFunction.CountA(destek.Range("C3:C65536")) + 2

ara = TextBox18.Value
Set bul = destek.Range("T3:T65536").Find(ara, , xlValues, xlWhole)

If Not bul Is Nothing Then
        cvp = MsgBox("  Bu ihale daha once girilmis  " & vbLf & "   Kayit etmek istiyor musunuz ?", vbQuestion + vbYesNo, "UYARI")
        If cvp = vbYes Then
        
            destek.Cells(say + 1, 3).Value = TextBox1.Value ' Yüklenici Adı Soyadı
            destek.Cells(say + 1, 4).Value = TextBox5.Value ' Tebligat Adresi
            destek.Cells(say + 1, 5).Value = TextBox2.Value ' T.C Kimlik No
            destek.Cells(say + 1, 6).Value = TextBox3.Value ' Vergi Kimlik No
            destek.Cells(say + 1, 7).Value = TextBox4.Value ' GSM No
            destek.Cells(say + 1, 8).Value = ComboBox1.Value ' Taşıma Merkez Okul Adı
            destek.Cells(say + 1, 9).Value = TextBox7.Value ' Taşınan Yerleşim Yeri
            destek.Cells(say + 1, 10).Value = TextBox12.Value ' Taşınan Öğrenci Sayısı
            destek.Cells(say + 1, 11).Value = TextBox13.Value 'Taşıma Yapılan KM
            destek.Cells(say + 1, 12).Value = TextBox6.Value ' İhale Kayıt Numarası
            destek.Cells(say + 1, 13).Value = TextBox14.Value ' Sözleşme Bedeli
            destek.Cells(say + 1, 14).Value = TextBox10.Value ' İhale Gün Sayısı
            destek.Cells(say + 1, 15).Value = TextBox16.Value 'Teklif Tutarı
            destek.Cells(say + 1, 16).Value = TextBox11.Value 'Kati Teminat
            destek.Cells(say + 1, 17).Value = TextBox8.Value ' İş Başlama Tarihi
            destek.Cells(say + 1, 18).Value = TextBox9.Value ' İş Bitiş Tarihi
            destek.Cells(say + 1, 19).Value = TextBox15.Value  ' Sözleşme Tarihi
            destek.Cells(say + 1, 20).Value = TextBox18.Value ' İşin Tanımı
            ActiveWorkbook.Save
        Else
            Range(destek.Cells(bul.Row, 3), destek.Cells(bul.Row, 20)).Delete Shift:=xlUp
        End If
    Else
            destek.Cells(say + 1, 3).Value = TextBox1.Value ' Yüklenici Adı Soyadı
            destek.Cells(say + 1, 4).Value = TextBox5.Value ' Tebligat Adresi
            destek.Cells(say + 1, 5).Value = TextBox2.Value ' T.C Kimlik No
            destek.Cells(say + 1, 6).Value = TextBox3.Value ' Vergi Kimlik No
            destek.Cells(say + 1, 7).Value = TextBox4.Value ' GSM No
            destek.Cells(say + 1, 8).Value = ComboBox1.Value ' Taşıma Merkez Okul Adı
            destek.Cells(say + 1, 9).Value = TextBox7.Value ' Taşınan Yerleşim Yeri
            destek.Cells(say + 1, 10).Value = TextBox12.Value ' Taşınan Öğrenci Sayısı
            destek.Cells(say + 1, 11).Value = TextBox13.Value 'Taşıma Yapılan KM
            destek.Cells(say + 1, 12).Value = TextBox6.Value ' İhale Kayıt Numarası
            destek.Cells(say + 1, 13).Value = TextBox14.Value ' Sözleşme Bedeli
            destek.Cells(say + 1, 14).Value = TextBox10.Value ' İhale Gün Sayısı
            destek.Cells(say + 1, 15).Value = TextBox16.Value 'Teklif Tutarı
            destek.Cells(say + 1, 16).Value = TextBox11.Value 'Kati Teminat
            destek.Cells(say + 1, 17).Value = TextBox8.Value ' İş Başlama Tarihi
            destek.Cells(say + 1, 18).Value = TextBox9.Value ' İş Bitiş Tarihi
            destek.Cells(say + 1, 19).Value = TextBox15.Value  ' Sözleşme Tarihi
            destek.Cells(say + 1, 20).Value = TextBox18.Value ' İşin Tanımı
            ActiveWorkbook.Save
    
End If

TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
ComboBox1 = ""
TextBox1.SetFocus
End Sub

sirkülasyon · 30 Nisan 2019

Allah yar ve yardımcın olsun. Sen benim isteğimi gerçekleştirdin Rabb' imde senin her dileğini gerçekleştirsin inşallah.
Hakkını helal et.
Teşekkür ederim

EmrExcel16 · 30 Nisan 2019

sirkülasyon' Alıntı:
Allah yar ve yardımcın olsun. Sen benim isteğimi gerçekleştirdin Rabb' imde senin her dileğini gerçekleştirsin inşallah.
Hakkını helal et.
Teşekkür ederim

Rica ederim, bu güzel dua ve iyi dileklerin içinde ayrica teşekkür ederim,eğer bir hakkim geçti ise helal olsun.

Çözüldü Kayıt Hatası

sirkülasyon

EmrExcel16

Destek Ekibi

sirkülasyon

EmrExcel16

Destek Ekibi

EmrExcel16

Destek Ekibi

sirkülasyon

EmrExcel16

Destek Ekibi

sirkülasyon

EmrExcel16

Destek Ekibi

sirkülasyon

EmrExcel16

Destek Ekibi

sirkülasyon

EmrExcel16

Destek Ekibi