Soru Veri doğrulamada yalnızca metin olması

[seckinb]

Merhaba
Hücrelere ad - soyad girişi için hücre içeriğini metin ile sınırlandırmayı planlıyorum.
Doğrulama seçeneklerinde sayı gibi seçenekler gördüm ancak tam tersini bulamadım.

sıklıkla şu şekilde girilmiş hücreler görüyorum

Ahmet"
Güner0

Nasıl bir koşul belirlemeliyim?

 

[Ömer]

Merhaba,

Metinden kastınız girilen değerin her karakterinin sayı olmaması mı yoksa bütün olarak metin olması yeterli mi?

Yani; girilen değer deneme123 olunca bütünde metin oluyor, bu yeterli mi yoksa bütün olan değer metin olsa bile içerisinde sayı değeri olmaması mı?

 

[seckinb]

Merhaba,

Metinden kastınız girilen değerin her karakterinin sayı olmaması mı yoksa bütün olarak metin olması yeterli mi?

Yani; girilen değer deneme123 olunca metin oluyor bu yeterli mi yoksa bütün olan değer metin olsa bile içerisinde sayı değeri olmaması mı?

Evet hiç böyle düşünmemiştim.
Kimlikte yazan ad soyadı bu hanelere dolduracağım.
Deneme olur, deneme123 olmaz. (Yalnızca harfler)

 

[Muzaffer Ali]

Merhaba.

Kod ile isterseniz aşağıdaki kodu sayfanın kod kısmına kopyalayın.
Kodlar A sütununa bir veri girişi olduğunda otomatik çalışır ve kontrol sağlar.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Long
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        For Bak = 1 To Len(Target.Text)
            If IsNumeric(Mid(Target.Text, Bak, 1)) Then
                MsgBox "Bu alana rakam girilemez."
                Target.Select
                Exit Sub
            End If
        Next
    End If
End Sub

 

[Ömer]

Veri doğrulama/Özel den formül: (A1 için)

=TOPLA(--ESAYIYSA(--PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1)))=0

 

[seckinb]

Merhaba.

Kod ile isterseniz aşağıdaki kodu sayfanın kod kısmına kopyalayın.
Kodlar A sütununa bir veri girişi olduğunda otomatik çalışır ve kontrol sağlar.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Long
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        For Bak = 1 To Len(Target.Text)
            If IsNumeric(Mid(Target.Text, Bak, 1)) Then
                MsgBox "Bu alana rakam girilemez."
                Target.Select
                Exit Sub
            End If
        Next
    End If
End Sub

Ne yazık ki çalışmadı.

 

[seckinb]

Veri doğrulama/Özel den formül: (A1 için)

=TOPLA(--ESAYIYSA(--PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1)))=0

Bunu nasıl uygulayacağımı tam anlamadım

 

[Muzaffer Ali]

Ne yazık ki çalışmadı.

Kodu sayfanın kod kısmına kopyalayacaksınız.
Kodlar sadece A kolonunu kontrol ediyor.
Şimdi yeniden denedim çalışıyor.

 

[seckinb]

Haklısınız, bu şekilde çalışıyor

 

[uzmanamele]

Merhaba;
B sütununda kullanılmak üzere, özel karakterleri de sınırlandıran alternatif;
Sadece büyük harf için

=VE(KOD(PARÇAAL(B1;SATIR(DOLAYLI("1:"&UZUNLUK(B1)));1))>=65;KOD(PARÇAAL(B1;SATIR(DOLAYLI("1:"&UZUNLUK(B1)));1))<=90)

Sadece küçük harf için

=VE(KOD(PARÇAAL(B1;SATIR(DOLAYLI("1:"&UZUNLUK(B1)));1))>=97;KOD(PARÇAAL(B1;SATIR(DOLAYLI("1:"&UZUNLUK(B1)));1))<=122)