Kod:
If Sheets("DATA").[K45] <> Sheets("DATA").[C35] Then
MsgBox "Kontrol görevi girilecek olan " & Sheets("DATA").[J44] & " isimli personelin " & Sheets("DATA").[L44] & " tarihine ait " & Sheets("DATA").[K45] & " isimli görev kaydı bulunmaktadır. Aynı tarihe tekrar kayıt yapılamaz."
On Error Resume Next
Sheets("DATA").Range("J44:R44").SpecialCells(xlCellTypeConstants, 23).ClearContents
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
Exit Sub
End If
Sheets("DATA").Range("J44:R44").Copy
Sheets("DEFTER").Range("B65536").End(xlUp)(2, 1).PasteSpecial xlValues
Kod:
" & Sheets("DATA").[K45] & "