Veri Doğrulama

[Bakigemlik]

Merhaba,

F sütununa mükerrer veri girişini engellemek için aşağıdaki formülü kullanıyorum,

Veri doğrulama hata iletisinde mükerrer verinin hangi satırda olduğu bilgisini almanın bir yolu var mı,

=EĞERSAY(F:F;F1)>1

Teşekkürler,

 

[hamitcan]

Koşullu biçimlendirme yaparak bulabilirsiniz.

 

[Bakigemlik]

Koşullu biçimlendirme yaparak bulabilirsiniz.

Cevabınız için teşekkürler ama benim istediğim bir biçimlendirme şeklinde değil,

Örneğin F10 hücresine bir veri girilmeye çalıştığında eğer bu veri daha önce F5 hücresinde girildiyse F10 girilmesine izin vermesin ve aşağıdaki gibi bir uyarı versin istiyorum "Bu değer daha önce F5 hücresinde kullanıldı" gibi bir uyarı,

Teşekkürler,

 

[Bakigemlik]

Konu günceldir desteğinizi rica ederim,

 

[hamitcan]

O zaman girilen verileri bir yerde depolamanız gerekmekte. Bu da kod yardımıyla yapılabilir.

 

[Bakigemlik]

Sayın Hamitcan bu kod demişsiniz ama kodu eklememiş siniz,
Teşekkürler,

 

[ekoert]

Merhaba,
işinizi görür mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For f = [f65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("f1:f" & f), Cells(f, "f")) > 1 Then MsgBox Rows(f).ClearContents
Next
End Sub

 

[Bakigemlik]

Merhaba cevabınız için teşekkürler ama ileti olarak "True" verdi ben burada girilen verinin hangi hücrede olduğu bilgisini almak istiyorum

 

[turist]

Sayfanızın Kod kısmına aşağıdaki kodu yazarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, ilk_adres As String, a As Long
Dim i  As Long, syf As String
On Error Resume Next
If Target.Value = "" Or Target.Column <> 6 Then Exit Sub
        ReDim myarr(1 To 3, 1 To 1)
For i = 1 To 1
    Set k = Cells.Find(Target.Value, , xlValues, xlWhole, , 1)
    If Not k Is Nothing Then
        ilk_adres = k.Address
        Do
        a = a + 1
        ReDim Preserve myarr(1 To 3, 1 To a)
        myarr(2, a) = k.Address(False, False)
        myarr(3, a) = k.Value
        Set k = Cells.FindNext(k)
        Loop While ilk_adres <> k.Address And Not k Is Nothing
    End If
Next i
If a > 1 Then
Erase myarr
Target = ""
MsgBox k & " Değeri daha önce  " & k.Address & " Hücresinde kullanıldı "  , vbCritical
Set k = Nothing
Else
End If
End Sub

 

[Bakigemlik]

Sayın urist desteğiniz için teşekkürler kod çalışıyor fakat F sütununa yazan değeri tüm sayfada arıyor ve hücre bilgisi veriyor,

Bunu F değilde D sütununa göre ve E sütununa göre yapmamız mükünmü

Yani D sütununa yazan değeri sadece D sütunun da arayacak varsa D sütununda daha önceden yazılmışsa hücre bilgisi verecek aynı şekilde E sütunu içinde çalışacak ,

Her Sütun için bağımsız olmalı,

Teşekkürler

 

[Bakigemlik]

Konu hakkında desteğinizi rica ederim

Teşekkürler