DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
=VE(A1<>"*";A1<>"-";A1<>"/";A1="")
=ESAYIYSA(TOPLA.ÇARPIM(MBUL(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);"01234567890ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVWXYZ")))
=ESAYIYSA(TOPLA.ÇARPIM(MBUL(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);"01234567890ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVWXYZ")))Merhaba,
Veri Doğrulama ile yapmak olası
A1:A10 arasında yapmak isterseniz
veri doğrulama/özel/formül :
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.Kod:=ESAYIYSA(TOPLA.ÇARPIM(MBUL(PARÇAAL(A1;SATIR(DOLAYLI("1:"&UZUNLUK(A1)));1);"01234567890ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVWXYZ")))
merhaba; bu formül işe yarıyor ama tüm noktalama işaretleri için çok uzun sürüyorEngelleneç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.
Kod:=VE(A1<>"*";A1<>"-";A1<>"/";A1="")
merhaba Bu işe yarıyor teşekkür ederim.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.
.
teşekkür ederimMerhaba. 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ı.
PHP: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
* Özel bir karakter olduğu için hiç dikkat etmemiştim, nasıl kontrol edilir bilemiyorum. * haricinde isteğinizi karşılıyor verdiğim fonksiyonhepinize ç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,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
=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=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")))
MerhabaÖ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.