Veri Doğrulama

[diplimit]

Merhabalar,

Araştırdım fakat tam olarak bulamadım.
Hazırladığım bir tabloya başkaları da zaman zaman veri giriyorlar. Fakat bazen yanlış verilerde giriliyor.

Örneğin tabloya sadece E, Z, Edirne, 24, Split, gibi ifadeler girilmesi gerekirken bunların dışına da çıkıldığı oluyor. Ya da bunların yanlış yazıldığı (yazım hatası) oluyor.

Tam olarak istediğim şey bu veriler dışında o sayfaya bilgi girildiğinde benim belirleyeceğim bir uyarı penceresi açılsın ve yanlış veri girdiniz diye uyarı versin. Ya da doğrudan yanlış verinin girilmesine izin vermesin. Sekmeli bir hücre istemiyorum yanlış anlaşılmasın.

İlginiz için teşekkür ederim.

 

[uzmanamele]

merhaba
nelerin yazılacağı önceden belli ise; bir liste oluşturun ve veri girişini listeden aldırın.
açtığınız başlığa bakacak olursak konuyu azçok biliyor olmalısınız, yapamazsanız örnek dosya ekleyin

 

[diplimit]

Ben bir türlü beceremedim. Örnek tablo ekte yer almaktadır. İstediğim şekilde bir çalışma acaba mümkün mü?

 

[diplimit]

Yardımınızı rica ediyorum.

 

[uzmanamele]

merhaba
ek dosya işinizi görür mü?

 

[Hallederiz]

Sayfa1 in kodlarına

Public Deger As String
Private Sub Worksheet_Change(ByVal Target As Range)
Seri = Array("E", "SPLİT", "KÜRE", "24", "SİNCAN")
Dim Flag As Boolean
Flag = False
If Target.Row < 24 Then
    If Target.Row > 4 Then
        If Target.Column > 2 Then
            If Target.Column < 12 Then
                For i = 0 To UBound(Seri)
                    If Seri(i) = Target.Text Then
                        Flag = True
                        Exit For
                    End If
                Next
                If Not Flag Then
                    MsgBox "&#304;zin verilmedi"
                    Target.Value = Deger
                    Target.Activate
                End If
            End If
        End If
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Deger = Target.Value
End Sub

satırlarını ekleyin. İşinizi görebilir. En amele yöntemdir.