Soru Hücreye Karakter Sınırı Koyma

[Erdogan3434]

Merhabalar,

Aşağıda belirttiğim kod ile bir sütuna aynı verinin ikinci kez girilmesini engelleyebiliyorum. Eğer mümkünse aynı kodun içeriğine yine sadece B sütununa sadece 12 karakter uzunluğunda veri girilebilmesini de ekleyebilir miyiz? Desteğinizi rica ediyorum.

Saygılarımla,

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 2 Then Exit Sub
Dim sh As Worksheet
Set sh = Sheets("DENEME")
If Application.WorksheetFunction.CountIf(sh.Range("B:B"), Target.Value) > 1 Then
MsgBox "Aynı kayıt var.", vbCritical
Target.Value = Empty
Exit Sub
End If
End sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Dim sh As Worksheet
Set sh = Sheets("DENEME")
If Len(Target) <> 12 Then
Application.EnableEvents = False
MsgBox "Lütfen 12 karakter uzunluğunda veri girişi yapınız!", vbCritical
Target.Value = Empty
Application.EnableEvents = True
Exit Sub
End If
If Application.WorksheetFunction.CountIf(sh.Range("B:B"), Target.Value) > 1 Then
MsgBox "Aynı kayıt var.", vbCritical
Target.Value = Empty
Exit Sub
End If
End Sub

 

[Erdogan3434]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Dim sh As Worksheet
Set sh = Sheets("DENEME")
If Len(Target) <> 12 Then
MsgBox "Lütfen 12 karakter uzunluğunda veri girişi yapınız!", vbCritical
Target.Value = Empty
Exit Sub
End If
If Application.WorksheetFunction.CountIf(sh.Range("B:B"), Target.Value) > 1 Then
MsgBox "Aynı kayıt var.", vbCritical
Target.Value = Empty
Exit Sub
End If
End sub

Korhan hocam desteğiniz için teşekkür ediyorum. 12 hane dışında bir giriş yapıldığında msgbox sayfadaki kayıt sayısı kadar tekrarlıyor.

 

[Korhan Ayhan]

Koda küçük bir ekleme yaptım. Son halini tekrar deneyiniz.

 

[Erdogan3434]

Korhan hocam çok teşekkür ederim. Elinize sağlık.