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

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Kod:
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,318
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.

C++:
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

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Teşekkür ederim Korhan Abi
 
Üst