NOKTALAMA İŞARETİ YAZDIRMAK İSTEMİYORUM

[papatya35]

Merhaba GÇB Numaralarına * - / boşluk vb karakter girsin istemiyorum.
veri doğrulamadan yapmaya calıştım beceremedim
18350300ex00000011 gibi yazsın harf ve rakama izin versin sadece nasıl yapabilirim

 

[papatya35]

bu konu biraz acil hala bulamadım sadece rakam yada harfe izin veriyor
sadece ikisini izin versin istiyorum

 

[Merhum İdris SERDAR]

Yazdırılmayacak şeyleri alt alta yazıp, bu listeye bir ad tanımlama yapın. Bu listenin adı liste olsun.

Veri doğrulamanın custom (Türkçesini bilmiyorum) bölümüne:

=COUNTIF(liste;A1)=0 formülünü yazın.

.

 

[Zeki Gürsoy]

Merhaba. Makro tercih ederseniz aşağıdaki gibi bir çözümünüz var.
GÇB numaralarını A1:A5 arasına yazacağınız varsayıldı.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a1:a5]) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    
    If Not GCB(Target) Then
        Target.ClearContents
    End If
    
    Application.EnableEvents = True
End Sub

Private Function GCB(R As Range) As Boolean
    Set reg = CreateObject("VBScript.RegExp")
    
    reg.ignorecase = False
    reg.Pattern = "^\d{8}ex\d{8}$"
    
    GCB = reg.test(R)
End Function

 

[çıtır]

Engelleneçek işaretler sınırlı ise.A1 hücresinde Veri doğrulama özel.Formül alanına kopyalayınız.Uygulamak istediğiniz alanlara A1 hücresinde kopyala Özel yapıştır.Doğrulamayı seçeneği ile çoğaltınız.

=VE(A1<>"*";A1<>"-";A1<>"/";A1="")

 

[Necdet]

Merhaba,

Veri Doğrulama ile yapmak olası

A1:A10 arasında yapmak isterseniz

veri doğrulama/özel/formül :

=ESAYIYSA(TOPLA.ÇARPIM(MBUL(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);"01234567890ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVWXYZ")))

Formüldeki A1 yerine Veridoğrulamanın başladığı hücrenin ilk adresini kullanmalısınız. Örneğin C10:C100 arasındaysa veri doğrulamanız formüldeki A1 yerine C10 kullanmalısınız.

 

[papatya35]

hepinize çok teşekkür ederim ama beceremedim izin veriyor hepsi de

Merhaba,

Veri Doğrulama ile yapmak olası

A1:A10 arasında yapmak isterseniz

veri doğrulama/özel/formül :

=ESAYIYSA(TOPLA.ÇARPIM(MBUL(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);"01234567890ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVWXYZ")))

Formüldeki A1 yerine Veridoğrulamanın başladığı hücrenin ilk adresini kullanmalısınız. Örneğin C10:C100 arasındaysa veri doğrulamanız formüldeki A1 yerine C10 kullanmalısınız.

=ESAYIYSA(TOPLA.ÇARPIM(MBUL(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);"01234567890ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVWXYZ")))
bu formülün ingilizcesini googledan gordum ikisini de denedim olmuyor Necdet Bey örneğin * yapıyorum izin veriyor c5 hücresi diye değiştiriyorum.
bende
=EMETİNSE(ESAYIYSA(C1:C500)) şeklinde denedim ilk kez basınca uyarıyor
İkinciden sonra yazmaya devam ediyor

 

[papatya35]

Engelleneçek işaretler sınırlı ise.A1 hücresinde Veri doğrulama özel.Formül alanına kopyalayınız.Uygulamak istediğiniz alanlara A1 hücresinde kopyala Özel yapıştır.Doğrulamayı seçeneği ile çoğaltınız.

=VE(A1<>"*";A1<>"-";A1<>"/";A1="")

merhaba; bu formül işe yarıyor ama tüm noktalama işaretleri için çok uzun sürüyor
Birde =VE(A1:a100<>"*";A1:A100<>"-";A1:A100<>"/";A1:A100="") yapınca işe yaramıyor hücre aralığını nasıl verebilirim

 

[papatya35]

Yazdırılmayacak şeyleri alt alta yazıp, bu listeye bir ad tanımlama yapın. Bu listenin adı liste olsun.

Veri doğrulamanın custom (Türkçesini bilmiyorum) bölümüne:

=COUNTIF(liste;A1)=0 formülünü yazın.

.

merhaba Bu işe yarıyor teşekkür ederim.
=EĞERSAY(LİSTE;A1:A100) deneyince olmuyor aralık vermem gerek aylık gçb miz 15 20 satır olabiliyor
her satır için ayrı bir veri doğrulama yapmak daha mı kolaydır yada

 

[Ömer BARAN]

Merhaba.

Belirttiğiniz formülü, =EĞERSAY(liste;A1:A100)=0 şeklinde değil,
A1:A100 aralığı seçiliyken =EĞERSAY(liste;A1)=0 şeklinde uygulayınca istenilen sonucu almanız gerekir.

 

[çıtır]

İsteğiniz bu şekilde bir sınırlandırma değil mi?Çok fazla değilse işaretler ilave edilebilir.Dosya da dogulu rengi olan alanda deneyiniz.

 

[papatya35]

Merhaba. Makro tercih ederseniz aşağıdaki gibi bir çözümünüz var.
GÇB numaralarını A1:A5 arasına yazacağınız varsayıldı.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a1:a5]) Is Nothing Then Exit Sub
   
    Application.EnableEvents = False
   
    If Not GCB(Target) Then
        Target.ClearContents
    End If
   
    Application.EnableEvents = True
End Sub

Private Function GCB(R As Range) As Boolean
    Set reg = CreateObject("VBScript.RegExp")
   
    reg.ignorecase = False
    reg.Pattern = "^\d{8}ex\d{8}$"
   
    GCB = reg.test(R)
End Function

teşekkür ederim

 

[Necdet]

hepinize çok teşekkür ederim ama beceremedim izin veriyor hepsi de


=ESAYIYSA(TOPLA.ÇARPIM(MBUL(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);"01234567890ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVWXYZ")))
bu formülün ingilizcesini googledan gordum ikisini de denedim olmuyor Necdet Bey örneğin * yapıyorum izin veriyor c5 hücresi diye değiştiriyorum.
bende
=EMETİNSE(ESAYIYSA(C1:C500)) şeklinde denedim ilk kez basınca uyarıyor
İkinciden sonra yazmaya devam ediyor

* Özel bir karakter olduğu için hiç dikkat etmemiştim, nasıl kontrol edilir bilemiyorum. * haricinde isteğinizi karşılıyor verdiğim fonksiyon

hepinize çok teşekkür ederim ama beceremedim izin veriyor hepsi de


=ESAYIYSA(TOPLA.ÇARPIM(MBUL(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);"01234567890ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVWXYZ")))
bu formülün ingilizcesini googledan gordum ikisini de denedim olmuyor Necdet Bey örneğin * yapıyorum izin veriyor c5 hücresi diye değiştiriyorum.
bende
=EMETİNSE(ESAYIYSA(C1:C500)) şeklinde denedim ilk kez basınca uyarıyor
İkinciden sonra yazmaya devam ediyor

Merhaba,

Aşağıdaki gibi dener misiniz?

=UZUNLUK(A1)=UZUNLUK(YERİNEKOY(A1;"*";""))*ESAYIYSA(TOPLA.ÇARPIM(MBUL(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);"0123456789ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVWXYZ")))

 

[papatya35]

=UZUNLUK(A1)=UZUNLUK(YERİNEKOY(A1;"*";""))*ESAYIYSA(TOPLA.ÇARPIM(MBUL(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);"0123456789ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVWXYZ")))

çok teşekkür ederim oldu

 

[assenucler]

Örnek dosya olmadan, 7 üstadın yazdığı çözüm önerileri her türlü takdirin üzerindedir.

Sayın papatya35'in bir kaç satırlık veri olan bir dosyayı eklemesini, forumdaşların yararlanması için beklemekteyim.

Emeği geçenlere ve katkı verenlere; teşekkürlerimi, sevgi ve saygılarımı sunarım.

 

[papatya35]

Örnek dosya olmadan, 7 üstadın yazdığı çözüm önerileri her türlü takdirin üzerindedir.

Sayın papatya35'in bir kaç satırlık veri olan bir dosyayı eklemesini, forumdaşların yararlanması için beklemekteyim.

Emeği geçenlere ve katkı verenlere; teşekkürlerimi, sevgi ve saygılarımı sunarım.

Merhaba
İstemiş olduğunuz dosyayı ekliyorum.