Soru Combobox a göre seçilen sayfada mükerrer uyarısı alma

[sirkülasyon]

Private Sub CommandButton1_Click()
    If TextBox1.Text <> "" Then
        Son_Dolu_Satir = MySh.Range("b65536").End(xlUp).Row
        Bos_Satir = Son_Dolu_Satir + 1
        MySh.Range("B" & Bos_Satir).Value = Application.WorksheetFunction.Max(MySh.Range("b:b")) + 1
        MySh.Range("c" & Bos_Satir).Value = TextBox1.Text
        MySh.Range("f" & Bos_Satir).Value = TextBox2.Text
        MySh.Range("g" & Bos_Satir).Value = TextBox3.Text
    End If
End Sub

Combobox1 de yer alan sayfa adına göre kayıt yapılma esnasında G3:G aralığında mükerrer var ise TextBox3' e veri girildiği an MÜKERRER uyarısı almak istiyorum.
Combobox1 de ki sayfa değişken olduğu için yapamadım. Rica etsem yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub TextBox3_Change()
    If TextBox3 = "" Then Exit Sub
    If Application.WorksheetFunction.CountIf(Mysh.Range("g:g"), TextBox3) > 1 Then
        MsgBox "Mükerrer Veri Girişi", vbInformation
        Exit Sub
    End If
End Sub

 

[sirkülasyon]

Ömer abi teşekkür ederim. Sağ olasın