sayfaya mükerrer kayıt girişi yapılmaması

[nazifdural]

Değerli Arkadaşlarım ve Üstadlarım Merhaba,
Bir Excel tablom var.bu tabloda sabah,öğle,akşam,gece sayfalarında C kolonuna mükerrer kayıt girişi yapılmasını istemiyorum. C kolonunda aynı isimden olan kişi kaydı yapılacağında bana mesaj verip kaydı yapmasın.Kodlarla nasıl yazılabilir?

Yardımlarınızı bekliyorum.

Saygılar

 

[fedeal]

İlgili sayfaların kod bölümüne ekleyin iyi çalışmalar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [c65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("c1:c" & a), Cells(a, "c")) > 1 Then
cvp = MsgBox("AYNI KAYIT VAR,SİLEYİMMİ? ?", vbYesNo, " FDL ")
If cvp = vbNo Then
Else
Rows(a).Delete
End If
End If
Next

 

[fedeal]

farklı günlerde aynı isimlere kayıt yapacaksanız mükerrer giriş olarak görülmemesi için kodları degiştirdim.

For a = [c65536].End(3).Row To 1 Step -1
For f = 6 To [c65536].End(3).Row
Cells(f, 27) = Cells(f, 1) & Cells(f, 3)
z = WorksheetFunction.CountIf(Range("aa1:aa" & a), Cells(a, "aa"))
If z > 1 Then
cvp = MsgBox("AYNI KAYIT VAR,SİLEYİMMİ? ?", vbYesNo, " FDL ")
If cvp = vbNo Then
Else
Rows(a).ClearContents
End If
End If
Next
Next

dosyanıza uyarlanmış hali ekte iyiçalışmalar.

 

[nazifdural]

Sayın Fedeal,
Çok çok teşekkür ediyorum.
Saygılar.

 

[fedeal]

Sayın Fedeal,
Çok çok teşekkür ediyorum.
Saygılar.

ricaederim iyi çalışmalar.