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

[baydeniro]

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 ?

 

[Faulkner]

"Koşullu biçimlendirme" işini çözer

 

[baydeniro]

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 ?

 

[Orion1]

1 den fazla karakter olursa ne yapılacak?Ve bu hücreler hangi sütunda?

 

[euphrates55]

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

 

[baydeniro]

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.

 

[Orion1]

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.

Bulunca ne yapılacak onu sormuştum?

 

[baydeniro]

haklısın üstad, düşünemedim

 

[Orion1]

haklısın üstad, düşünemedim

Niye ne yapılacağını hala açıklamıyorsunuz,anlamadım.

 

[baydeniro]

Eğer 1 den fazla sayıda karakter içeren bir veri içeriyorsa sonuç DOĞRU diye sonuç vermesi yeterli olur.

 

[1Al2Ver]

Merhaba,

Aşağıdaki linkte Sayın K.Ayhan ve İ.Serdar'ın birer çözümleri var,

İnceleyiniz...

https://www.excel.web.tr/threads/egersay.74983/

 

[baydeniro]

1Al2Ver üstadım çok teşekkür ederim. Ancak o dosyaları indiremiyorum.

 

[euphrates55]

1Al2Ver üstadım çok teşekkür ederim. Ancak o dosyaları indiremiyorum.

Sizin altın üye olma zamanınız gelmiş sanırım. 3591 mesaj

 

[baydeniro]

haklısın euphrates55

 

[1Al2Ver]

Merhaba,

Sayın İ.Serdar'ın çözümü.

http://s3.dosya.tc/server18/las2cl/Max.harfi_bul__yurttas__05.10.2009.xls.html

 

[Orion1]

KTF buyurun.

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

 

[euphrates55]

bu hızı yakalamışken ben de bir konuya çözüm arıyorum. bakma şansınız var mı?
sayın orion https://www.excel.web.tr/threads/huecredeki-formuel-sonucuna-goere-yazi-tipi-ve-boyutunu-degistirme.111124/
bu konunun çıkarı var mı? fikriniz var mı? hücrenin değerine göre yazı fontu büyüklüğü değişir mi? run sub a basmadan.

 

[Orion1]

bu hızı yakalamışken ben de bir konuya çözüm arıyorum. bakma şansınız var mı?
sayın orion https://www.excel.web.tr/threads/huecredeki-formuel-sonucuna-goere-yazi-tipi-ve-boyutunu-degistirme.111124/
bu konunun çıkarı var mı? fikriniz var mı? hücrenin değerine göre yazı fontu büyüklüğü değişir mi? run sub a basmadan.

Bu konu cevaplandı.Sorunuzu yeni bir başlık açarak sorunuz.

 

[baydeniro]

1Al2Ver üstadım dosya için çok teşekkür ediyorum.

 

[baydeniro]

Orion1 üstadım mükemmelsiniz vesselam. Çok teşekkür ediyorum, sağlıcakla kalın.