Aynı PLAKA varsa kaydetme

[vurkan]

Arkadaşlar Merhaba

Userform üzerinden kayıt yaparken C2:C arasını kontrol edip mükerrer kayıt yapmamaya çalışıyorum. Kayıt için kullandığım kod;

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
Son_dolu_satır = Sheets("SABİTLER").Range("C65536").End(xlUp).Row
Bos_Satır = Son_dolu_satır + 1
Sheets("SABİTLER").Range("C" & Bos_Satır).Value = TextBox1.Text
Sheets("SABİTLER").Range("D" & Bos_Satır).Value = TextBox2.Text
Sheets("SABİTLER").Select
Dim sil As Control
For Each sil In UserForm2.Controls
If TypeName(sil) = "TextBox" Then
sil.Text = ""
End If
Next sil
Else
MsgBox "LÜTFEN PLAKA GİRİNİZ"
End If
End Sub

Sayfa üzerinde mükerrer kayıt yapmayı engelleyen kod;

Private Sub Worksheet_Change(ByVal Target As Range)

If Target <> "" And WorksheetFunction.CountIf(Range("C2:C1000"), Target) > 1 Then
MsgBox "Mükerrer kayıt yapılamaz !...": Target = "": Target.Activate
End If
End Sub

Ben bu iki kodu kullanmaya kalktığımda mükerrer kayıt yapılamaz uyarısı veriyor ama TextBox2.Text deki veriyi D ye yazıyor.

Benim yapmak istediğim KAYIT butonuna tıkladığımda TextBox1.Text PLAKAyı C de arasın varsa C ve D ye kayıt yapmasın. C de mükerrer değilse kayıt yapılsın.

Arkadaşlar bir de Label ve TextBox ların içindeki yazıları dikey olarak nasıl ortalayabilirim? (Yatay ortalamayı buldum. Dikeyi bulamadım.
Teşekkürler.

 

[turist]

Sayın @vurkan
Lütfen örnek excel dosyanızı ekleyin ve linkini bildirin.
Daha kolay ve hızlı cevap alabilirsiniz.

 

[vurkan]

Hemen ekliyorum. Buyurun.

http://s3.dosya.tc/server16/zgj1cl/NAKLIYE_PROGRAMI_v14.rar.html

 

[turist]

Sayın @vurkan
Dosya Linki
İndirip inceleyiniz.

 

[vurkan]

Sayın Turist Teşekkürler. Ancak şöyle bir sorunla karşılaştım.
Aynı plakayı kaydetmiyor. Burası güzel. Olmayan bir plakayı kayıt ederken kaydet butonuna 1. tıklamada kayıt yapılıyor ama textboxlar temizlenmediğinden kayıt yapılmadı zannediliyor. 2. tıklamada AYNI PLAKA uyarısıyla ancak temizleniyor. Olmayan Plaka girilince kayıttan sonra textboxlar temizlenmeli. Teşekkürler.

Size yazdıktan sonra aşağıdaki kodu kaydet koduna ekleyerek sorunu çözdüm sanırım.

Dim sil As Control
For Each sil In UserForm2.Controls
If TypeName(sil) = "TextBox" Then
sil.Text = ""
End If
Next sil

Sayın Turist dosyaya hakim olduğunuzdan direkt bir soru daha sorsam.

Userform1 üzerinden veri girerken listboxlardan seçerek değil de textboxlara yazarak veri girildiğinde yeni bir plaka girilince SABİTLER deki C sütununda yoksa oraya da sahibiyle birlikte ilave etse, bu olabilir mi? Teşekkürler.