Comboboxdan Aktarımda Mükerrer Kaydı Önleme?

[Araştırıcı]

Değerli Forum Paylaşanları,
Merhaba.

Ekli dosyamda yer alan TextBox1 ve TextBox2 den ilgili tablonun A ve B sütunlarına, UserFormdan bir komut butonu ile, son dolu satır sonrası gözetilerek, herdefasında alt alta veriler aktarılmaktadır. Bu aktarımlarda, "Firma Adına" göre mükerrer girişi önlemek istiyorum. Bir çok denemeler yaptım ama olmadı. Kodlarını nasıl yazabiliriz?

Teşekkür ediyor
iyi çalışmalar diliyorum

Saygılarımla

 

[Skorpiyon]

Sayın Araştırıcı,

Butonunuza yazmış olduğunuz kodlara aşağıdaki kısmı ekleyiniz.

Private Sub CommandButton1_Click()
Dim ayni
For Each ayni In Range("A1:A65536")
If TextBox1.Value = ayni Then
MsgBox "Mükerer Kayıt Girişi", , "DİKKAT"
Exit Sub
End If
Next ayni
Dim sonsat As Long
sonsat = Cells(1000, "a").End(xlUp).Row
If sonsat >= 1000 Then
MsgBox "Satır Doldu Başka Kayıt Yapamazsınız.", vbCritical
Exit Sub
End If
Cells(sonsat + 1, "A").Select
Cells(sonsat + 1, "A").Value = TextBox1.Value
Cells(sonsat + 1, "B").Value = TextBox2.Value
TextBox1.Value = ""
TextBox2.Value = ""
End Sub

Saygılarımla...

 

[Araştırıcı]

Sayın SertKaya
Merhaba.
Teşekkür ediyorum elinize sağlık.
Bir&#351;ey sormak istiyorum, bazen ayn&#305; isimli olup projesi farkl&#305; olan i&#351;ler de oluyor. Devam edip etmemesi kullan&#305;c&#305;ya b&#305;rak&#305;lmas&#305; durumunda nas&#305;l bir de&#287;i&#351;iklik yapmak gerekecek kodlarda? Mesela : << Daha &#246;nce bu isimde kay&#305;t girildi, devam edilsin mi?>> uyar&#305;s&#305; ile beraber mesaj kutusuna evet ve hay&#305;r butonu koymak sureti ile sadece bir uyar&#305; &#246;zelli&#287;i katmak istersek.. ne yapaca&#287;&#305;z?

Sayg&#305;lar&#305;mla
&#304;yi &#231;al&#305;&#351;malar

 

[Skorpiyon]

Say&#305;n Ara&#351;t&#305;r&#305;c&#305;,

Kodlar&#305;n&#305;z&#305; a&#351;a&#287;&#305;daki &#351;ekilde de&#287;i&#351;tirin.

Private Sub CommandButton1_Click()
Dim ayni, cevap
For Each ayni In Range("A1:A65536")
If TextBox1.Value = ayni Then
cevap = MsgBox("M&#252;kerer Kay&#305;t Giri&#351;i", vbOKCancel)
If cevap = 2 Then
Exit Sub
Else
GoTo 20
End If
End If
Next ayni
20
Dim sonsat As Long
sonsat = Cells(1000, "a").End(xlUp).Row
If sonsat >= 1000 Then
MsgBox "Sat&#305;r Doldu Ba&#351;ka Kay&#305;t Yapamazs&#305;n&#305;z.", vbCritical
Exit Sub
End If
Cells(sonsat + 1, "A").Select
Cells(sonsat + 1, "A").Value = TextBox1.Value
Cells(sonsat + 1, "B").Value = TextBox2.Value
TextBox1.Value = ""
TextBox2.Value = ""
10
End Sub

Sayg&#305;lar&#305;mla...

 

[Araştırıcı]

Sayın Sertkaya,
Kodlarınız için teşekkür ne kadar etsem azdır. Kodları inceledim ve metodunu kavradım. Çok saolun,

İşiniz hep rast gitsin.

Saygılarımla