Satırlarda Mükerrer kayıt

[Ridan]

A sütununda Veri Doğrulama > Özel'e bu formülü girince çalışıyor. Ancak satırlarda çalıştıramadım. Uyarı vermiyor.

=EĞERSAY(A:A;A1)=1

Örneğin, B5:AC5 satırı boyunca aşağıdaki formül çalışmıyor. Aynı değerleri girdiğimde uyarı vermiyor.

=EĞERSAY(B5:AC5;B5)=1

 

[hamit]

Dosya eklermisiniz

 

[Ridan]

dosya ektedir.

 

[Ridan]

konu günceldir...

 

[Necdet]

Merhaba,

B2:AC13 aralığında Veri Doğrulama

Doğrulama Ölçütünde İzin Verilen --> Özel

Formül :

=EĞERSAY($B2:$AC2;B2)=1

 

[İhsan Tank]

konu günceldir...

Merhaba
Konu eskimiş ama iyi ki güncellediniz.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:AC13")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("B" & Target.Row & ":AC" & _
Target.Row), Target) > 1 Then
MsgBox "Mükerrer Kayıt Var", vbCritical, "Hata"
Target = ""
End If
End Sub

 

[Ridan]

Cevaplarınız için çok teşekkürler...

=EĞERSAY($B2:$AC2;B2)=1 işimi gördü. Diğeri alternatif..