hücreye 2 defa tekrar yazılarak onaylı giriş

[yılmazgok]

Merhaba,

Bir hücreye herhangi bir veri girişi yapmak istediğimde bunu 2 kez tekrar yazarak verinin girilmiş olmasını istiyorum. Örnek T.C kimlik numarası girişi yaptığımda 2. kez giriş yapmamı istesin ve girdiğim 2 rakam aynı olur ise giriş gerçekleşsin.

 

[Muzaffer Ali]

Aşağıdaki kodu sayfanızın kod editörüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Static Veri As String
    If Target.Value = Empty Then Exit Sub
    If Veri = Empty Then
        Veri = Target.Value
        Application.EnableEvents = False
        Target.Value = "Lütfen tekrar giriniz."
        Application.EnableEvents = True
    Else
        If Not Veri = Target Then
            Application.EnableEvents = False
            Target.Value = "Girdiğiniz veriler uyuşmuyor."
            Application.EnableEvents = True
            Veri = Empty
        Else
            Veri = Empty
        End If
    End If
End Sub

 

[yılmazgok]

merhaba

yardımınız için teşekkür ederim. ancak bu tüm sayfaya uygulandı ben belirli sütunlarda uygulamak istiyorum. örnek tc bilgisinin yer aldığı c sütununda ve telefon bilgisinin yer aldığı e sütununda

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Static Veri As String
    If Intersect(Target, Range("C:C,E:E")) Is Nothing Then Exit Sub
    If Target.Value = Empty Then Exit Sub
    If Veri = Empty Then
        Veri = Target.Value
        Application.EnableEvents = False
        Target.Value = "Lütfen tekrar giriniz."
        Application.EnableEvents = True
    Else
        If Not Veri = Target Then
            Application.EnableEvents = False
            Target.Value = "Girdiğiniz veriler uyuşmuyor."
            Application.EnableEvents = True
            Veri = Empty
        Else
            Veri = Empty
        End If
    End If
End Sub