- Katılım
- 25 Ocak 2006
- Mesajlar
- 764
- Excel Vers. ve Dili
- 2019 tr
- Altın Üyelik Bitiş Tarihi
- 04-01-2024
m2:gf2 arasında olacak şekilde
m2 den başlayarak son dolu hücre aralığındaki hücreye 2. kere aynı veri girildiğinde uyarı verdirtmek istiyorum.
bir kodu uyarlamaya çalışsam da sürekli uyarı vermesini çözemedim...
m2 den başlayarak son dolu hücre aralığındaki hücreye 2. kere aynı veri girildiğinde uyarı verdirtmek istiyorum.
bir kodu uyarlamaya çalışsam da sürekli uyarı vermesini çözemedim...
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [m2:gf2]) Is Nothing Then Exit Sub
say = WorksheetFunction.CountIf(Range("m2:gf2" & Target.Column), Target)
If say > 0 Then
MsgBox "BU KAYIT MEVCUTTUR"
End If
End Sub