• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücredeki Veride 1'den Fazla Olan Karakter Olması Durumunda

B

baydeniro

Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Merhaba Arkadaşlar,

Bir hücredeki veride her karakterin benzersiz olması gerekiyor. Örneğin; İSTANBUL verisinde her harf benzersiz. Ancak EDİRNE kelimesinde E harfinden 2 adet var. ANTALYA kelimesinde A harfinden 3 adet var. Veya 456690 verisinde 6 sayısından 2 adet var. Bunun gibi aynı hücre içinde herhangi bir veriden 1 adetten fazla olması durumunda bunu makro kodu veya formül ile tespit etmek mümkün mü acaba ?
 
"Koşullu biçimlendirme" işini çözer
 
Teşekkürler Faulkner. Koşullu Biçimlendirmeyi tercih etmiyorum ama yine de bir seçenek olarak değerlendirmek isterim. Koşullu Biçimlendirme ile nasıl olur ?
 
1 den fazla karakter olursa ne yapılacak?Ve bu hücreler hangi sütunda?
 
alfabeyi ve rakamları yaz yukarı. uzunluk formülü ve yerinekoy formülleri (harfin ya da rakamın yerine “” bırakarak) ile farkını bulup hangi sayı yada harften ne kadar eksildiyse o kadar var demektir. uzun oldu ama pc yok
 
Orion1 üstadım ilginize teşekkürler. Veriler C sütununda. Eğer hücrede MENEMEN gibi hem E, hem M, hem de N harfinden 1 adetten fazla olması veya BACA kelimesinde sadece A harfinden olması durumu aynı değerlendirilmektedir. Yani hücrede 1 karakterin veya 3 karakterin tekrar etmesi arasında fark yok.
 
baydeniro' Alıntı:
Orion1 üstadım ilginize teşekkürler. Veriler C sütununda. Eğer hücrede MENEMEN gibi hem E, hem M, hem de N harfinden 1 adetten fazla olması veya BACA kelimesinde sadece A harfinden olması durumu aynı değerlendirilmektedir. Yani hücrede 1 karakterin veya 3 karakterin tekrar etmesi arasında fark yok.
Genişletmek için tıkla ...
Bulunca ne yapılacak onu sormuştum?
 
Eğer 1 den fazla sayıda karakter içeren bir veri içeriyorsa sonuç DOĞRU diye sonuç vermesi yeterli olur.
 
1Al2Ver üstadım çok teşekkür ederim. Ancak o dosyaları indiremiyorum.
 
KTF buyurun.:cool:
Kod: 
Function karakter(ByVal deg As String) As String
Dim n As Long, z As Object, sonsat As Long
If deg = "" Then Exit Function
Set z = CreateObject("scripting.dictionary")
For i = 1 To Len(deg)
    If Not z.exists(Mid(deg, i, 1)) Then
        z.Add Mid(deg, i, 1), Nothing
    Else
        karakter = "DOĞRU"
        Exit For
    End If
Next
End Function
 
Orion1 üstadım mükemmelsiniz vesselam. Çok teşekkür ediyorum, sağlıcakla kalın.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst