Soru combobox mükerrer kayıt engeli (onaylı)

[sirkülasyon]

Private Sub ComboBox2_Change()
Say = WorksheetFunction.CountIf(Sheets("kod_veri").Range("E2:E1000"), ComboBox1.Text)
    If Say > 0 And ComboBox1.Text <> "" Then
    End If
    Dim Cevap As VbMsgBoxResult
    Cevap = MsgBox("Kayda Devam Edilsin mi ?", vbYesNoCancel + vbMsgBoxRtlReading, "Mükerrer Kayıt Hakkında")
    Select Case Cevap
        Case Is = vbYes
          TextBox3.Text = WorksheetFunction.VLookup(ComboBox2, Sheets("kod_veri").Range("e:f"), 2, 0)
        Case Is = vbNo
            TextBox3.Text = ""
            ComboBox2 = ""
        Case Is = vbCancel
            TextBox3.Visible = True
            ComboBox2.Visible = True
    End Select
End Sub

Yapmak istediğim:
Combobox1 de ki değerin aynısı Combobox2 de de seçildiği zaman
Evet ise işlem yapacak
Hayır ise Textbox ve combobox içi boşaltılacak
İptal ise Textbox ve comboboxu gizleyecek

ama kodun dizilişini yapamadığımdan hata veriyor. Rica etsem yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Anlatımınıza göre aşağıdaki kodun işinize yaraması gerekir.

MSGBOX bölümlerini yaptırmak istediğiniz işlemlere göre kendiniz revize edersiniz.

Private Sub ComboBox2_Change()
    Dim Onay As Byte
    If ComboBox1 = ComboBox2 Then
        Onay = MsgBox("İşleme devam edilsin mi?", vbCritical + vbYesNoCancel)
        If Onay = vbYes Then MsgBox "EVET tuşuna bastınız..."
        If Onay = vbNo Then MsgBox "HAYIR tuşuna bastınız..."
        If Onay = vbCancel Then MsgBox "İPTAL tuşuna bastınız..."
    End If
End Sub

 

[sirkülasyon]

Teşekkür ederim Korhan Abi