mükerrer kayıtı önleme

[yamahato]

Mükerrer kayıt önleme
#1) JOSSEF » 20 Haz 2020 14:15

Private Sub CommandButton1_Click()
Dim i As Long, SiraNo As Long, s1 As Worksheet

Set s1 = Sheets("SAHİBİNDEN")
SiraNo = s1.[A65536].End(3).Row + 1

' ************* eskik veri girişi kontrolü******************
For i = 1 To 6
If Controls("textbox" & i) = "" Then
MsgBox "Veri Girişi Eksiktir.!"
TextBox1.SetFocus
Exit Sub
End If
Next i
' ****************** veri girişi ***********************
s1.Range("A" & SiraNo) = TextBox1.Value
s1.Range("E" & SiraNo) = TextBox2.Value
s1.Range("D" & SiraNo) = TextBox3.Value
s1.Range("C" & SiraNo) = TextBox4.Value
s1.Range("B" & SiraNo) = TextBox5.Value
s1.Range("H" & SiraNo) = TextBox6.Value
s1.Range("G" & SiraNo) = TextBox7.Value
s1.Range("F" & SiraNo) = TextBox8.Value
' *************** kayıt sonrası temizlik ***************

TextBox1.Value = "": TextBox2.Value = "": TextBox3.Value = ""
TextBox4.Value = "": TextBox5.Value = "": TextBox6.Value = ""
TextBox7.Value = "": TextBox8.Value = "":
TextBox1.SetFocus
MsgBox "KAYIT BAŞARI İLE YAPILDI!..."

Merhaba
yukarıda ki kod userform 2 de girilen verileri SAHİBİNDEN isimli sayfaya kaydediyor.
söyle bir sorunum var. MÜKERRER KAYITI ÖNLEME
Textbox1'e girilen değer sahibinden sayfasında A2 hücresinden itibaren ne kadar hücre varsa ARAYIP AYNISINI GÖRÜRSE
mükerrer kayıt yazsın. İnternetten bir sürü kod buldum ama kodu bir türlü ayarlayamadım ve çalıştıramadım.

İndir mükerrer kayıt

Dosyayı indir mükerrer kayıt

dosya.co

 

[byfika]

Merhabalar, Önce gönderdiğim dosyayı incelediniz mi? İstediğiniz işlemleri yapmakta... Alttaki dosyada yukarıda belirttiğiniz kodlara göre...

https://www.dosyaupload.com/smz1

 

[byfika]

Userform2 kodlarındaki
' ************* eskik veri girişi kontrolü******************
For i = 1 To 6
.
.
.
.
koyu renkli 6 yı 8 yaparsanız tüm Textboxlarınızı doldurmadan kayıt işlemi yapmayacak...

 

[byfika]

[TR][TD]

https://www.dosyaupload.com/smzM

Sıralamaya dikkat etmemiştim. Textboxlar 1, A ya, 2, B ye..... göre ayarlandı
(textbox8 H sütunu)
[/TD][/TR]

 

[yamahato]

https://www.dosyaupload.com/smzM

Sıralamaya dikkat etmemiştim. Textboxlar 1, A ya, 2, B ye..... göre ayarlandı
(textbox8 H sütunu)

teşekkürler.
Ufak bir sorun çıktı.
söyle anlatayım.
userbox 1 herhangi bir verinin ilk harfini girince sahibinden sayfasında arama yapıp bulduğu
eşleşmelerin a sutununda ki vh kodlu verilerini getiriyor.
ornek olarak 3 rakamını girdiniz 2 tane vh kodu veriyor. bu vh kodlarına tıkayınca da o vh konunun malzeme
ismi geliyor.
Sorun burda başlıyor.
3 rakamını girdiniz 2 tane vh kodu geldi. bu kodlar hangi malzeme diye baktınız. istediğiniz malzeme o değil.
tekrar veri girmek için ayda silmek için arama motoruna tıkladınız. silme yaptınız yada 1 harf veya veri daha girdiniz hop aşağıda ekte bulunan resimlerde ki hata kodunu veriyor
https://dosya.co/cjz0ek4mxe2r/1.jpg.html

 

[yamahato]

teşekkürler.
Ufak bir sorun çıktı.
söyle anlatayım.
userbox 1 herhangi bir verinin ilk harfini girince sahibinden sayfasında arama yapıp bulduğu
eşleşmelerin a sutununda ki vh kodlu verilerini getiriyor.
ornek olarak 3 rakamını girdiniz 2 tane vh kodu veriyor. bu vh kodlarına tıkayınca da o vh konunun malzeme
ismi geliyor.
Sorun burda başlıyor.
3 rakamını girdiniz 2 tane vh kodu geldi. bu kodlar hangi malzeme diye baktınız. istediğiniz malzeme o değil.
tekrar veri girmek için ayda silmek için arama motoruna tıkladınız. silme yaptınız yada 1 harf veya veri daha girdiniz hop aşağıda ekte bulunan resimlerde ki hata kodunu veriyor
https://dosya.co/cjz0ek4mxe2r/1.jpg.html
[/QUOTE]
@byfika