Mükerrer Veri Kaydı

[ormann]

İyi günler ekteki dosyada ana sayfa üzerinde bulunan izin günlerini aktar butonuna bastığımda ana sayfa üzerindeki veriler izin takibi sayfasına aktarılıyor.Benim istediğim e3 ve e11 hücrelerindeki verilerin aynısı izin takibi sayfasında var ise "Mükerrer Kayıt var" uyarısı verebilir mi?

Option Explicit
Private Sub CommandButton1_Click()
Dim STR As Long, SR As Variant
Dim SYF As Worksheet
Set SYF = Sheets("İZİN TAKİBİ")
SR = MsgBox("Kayıt Yapılsın Mı_?", vbYesNo, "SORU")
If SR = vbNo Then Exit Sub
Application.ScreenUpdating = False
STR = SYF.Range("D" & Rows.Count).End(xlUp).Row + 1
SYF.Cells(STR, "D") = Range("E3")
SYF.Cells(STR, "E") = Range("E4")
SYF.Cells(STR, "F") = Range("E10")
SYF.Cells(STR, "G") = Range("E11")
SYF.Cells(STR, "H") = Range("E12")
SYF.Cells(STR, "I") = Range("E15")
SYF.Range("C4") = 1
SYF.Range("C4:C" & STR).DataSeries xlColumns, xlLinear, xlDay, 1, , False
Application.ScreenUpdating = True
MsgBox Range("E3") & " Verileri Aktarıldı", vbInformation
End Sub

 

[Huseyinkis]

Ekli kodları denermisiniz.

Option Explicit
Private Sub CommandButton1_Click()
Dim STR As Long, SR As Variant
Dim i As Integer
Dim SYF As Worksheet
Set SYF = Sheets("İZİN TAKİBİ")
SR = MsgBox("Kayıt Yapılsın Mı_?", vbYesNo, "SORU")

For i = 4 To SYF.Cells(Rows.Count, 4).End(3).Row
If Cells(3, 5).Value = SYF.Cells(i, 4).Value And Cells(10, 5).Value = SYF.Cells(i, 6).Value And Cells(11, 5).Value = SYF.Cells(i, 7).Value Then
MsgBox "Aynı Kayıt Mevcut"
Exit Sub
End If
Next

If SR = vbNo Then Exit Sub
Application.ScreenUpdating = False
STR = SYF.Range("D" & Rows.Count).End(xlUp).Row + 1
SYF.Cells(STR, "D") = Range("E3")
SYF.Cells(STR, "E") = Range("E4")
SYF.Cells(STR, "F") = Range("E10")
SYF.Cells(STR, "G") = Range("E11")
SYF.Cells(STR, "H") = Range("E12")
SYF.Cells(STR, "I") = Range("E15")
SYF.Range("C4") = 1
SYF.Range("C4:C" & STR).DataSeries xlColumns, xlLinear, xlDay, 1, , False
Application.ScreenUpdating = True
MsgBox Range("E3") & " Verileri Aktarıldı", vbInformation
End Sub

 

[ormann]

Teşekkür ederim Hüseyin bey