Kontrollü kayıt ekleme

[ugurex]

Merhaba Üstadlar;
Aşağıdaki kodla "AnaSayfa" daki bazı hücreleri "Liste" sayfasına liste halinde kayıt olarak ekletiyorum. kod çalışıyor fakat "AnaSayfa" F12 hücresindeki değer "Liste" sayfasında B sütununda var ise "Bu Kayıt Önceden Eklenmiş!" şeklinde bir uyarı versin istiyorum. sadece "AnaSayfa" F12 deki değer için geçerli; eğer bu değer "Liste" sayfasındaki B sütununda yoksa diğer hücrelerle birlikte kopyalamaya devam edecek.

Sub ListeyeEkle()
'
' ListeyeEkle Makro
' Yeni personel bilgilerini listeye ekle
'

Sheets("AnaSayfa").Range("F12").Copy
sat = Sheets("Liste").Cells(65536, "B").End(xlUp).Row + 1
Sheets("Liste").Range("B" & sat).PasteSpecial
Application.CutCopyMode = False
Sheets("AnaSayfa").Range("F13").Copy
sat = Sheets("Liste").Cells(65536, "C").End(xlUp).Row + 1
Sheets("Liste").Range("C" & sat).PasteSpecial
Application.CutCopyMode = False
Sheets("AnaSayfa").Range("F14").Copy
sat = Sheets("Liste").Cells(65536, "D").End(xlUp).Row + 1
Sheets("Liste").Range("D" & sat).PasteSpecial
Application.CutCopyMode = False
MsgBox "Yeni Personel Listeye Eklendi..!!"

End Sub

 

[askm]

Sub ListeyeEkle()
'
' ListeyeEkle Makro
' Yeni personel bilgilerini listeye ekle
'
If WorksheetFunction.CountIf(Sheets("Liste").Range("B:B"), Sheets("AnaSayfa").Range("F12")) > 0 Then
Sheets("AnaSayfa").Range("F12").Copy
sat = Sheets("Liste").Cells(65536, "B").End(xlUp).Row + 1
Sheets("Liste").Range("B" & sat).PasteSpecial
Application.CutCopyMode = False
Sheets("AnaSayfa").Range("F13").Copy
sat = Sheets("Liste").Cells(65536, "C").End(xlUp).Row + 1
Sheets("Liste").Range("C" & sat).PasteSpecial
Application.CutCopyMode = False
Sheets("AnaSayfa").Range("F14").Copy
sat = Sheets("Liste").Cells(65536, "D").End(xlUp).Row + 1
Sheets("Liste").Range("D" & sat).PasteSpecial
Application.CutCopyMode = False
MsgBox "Yeni Personel Listeye Eklendi..!!"
Else
    MsgBox "Bu kayıt daha önce girilmiş..."
End If
End Sub

 

[ugurex]

Teşekkür ediyorum cevabınız için, verdiğiniz kod içinde >0 dan dolayı istediğimin tam tersini yaptı, yani F12 deki değer listede varsa ekledi, ben listede yoksa eklemesini istemiştim, ben de =0 yaptım ve istediğim gibi oldu, sayenizde ben de birşeyler öğreniyorum, emeğinize sağlık.

Ayrıca site yönetimine ve emeği geçenlere de teşekkür etmek lazım, Türkiye'nin kendi alanında en aktif ve en hızlı cevap alınabilen forum sitesini yaptıkları için, Allah razı olsun sizlerden.