Veri Doğrulama

[vitalexx]

Merhaba, Müşteri isimlerinin ve vergi kimlik nolarının yazılacağı bir excel sayfam var. Burada kullanıcıların vergi no'larını yanlış yazmalarını engellemek için veri doğrulamadan "metin uzunluğu=10" şartını koydum. Metin formatını ise "İsteğe uyarlanmış" kısmından 000 000 0000 şeklinde ayarladım. Kullanıcı vergi nosunu boşluk bırakmadan 1234567890 yazdığı takdirde 123 456 7890 haline geliyor. Buraya kadar sorun yok. Ancak vergi No'sunun ilk karakteri 0 (sıfır) ise karakter sayısı eksik algılanıyor ve veri doğrulamada kendi yaptığım ayarlamaya takılıyorum. Ne yapmalıyım ki Excel baştaki sıfırıda sorunsuz olarak tanısın?
Teşekkürler..

 

[Recep İpek]

Dediğinizi excel sayfasında yapmak biraz zor olabilir.

Makro bilginiz var ise bunun için aşağıdaki makro kodlarını ilgili sayfanın modül kısmına kopyalayarak kullanabilirsiniz.

Sadece A kolonunun formatını TEXT(METİN) yapmanız yeterlidir.

Dim ilk As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If ilk = Target Then Exit Sub
If Len(Target) = 10 Then
ilk = Left(Target, 3) & " " & Mid(Target, 4, 3) & " " & Right(Target, 4)
Target = ilk
Else
MsgBox "Hatalı Vergi Numarası Girdiniz!", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Target.Select
Exit Sub
End If
End Sub

 

[Seyit Tiken]

Hücre Biçimlendir"den METİN kısmını seçip bir deneyin. Veri Doğrulama'dan EŞİT'tir bölümünü seçip, Uzunluk kutucuğuna da 10 yazıp bir deneyin.