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

[Orion1]

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

Rica ederim.
İyi çalışmalar.

 

[1Al2Ver]

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

Merhaba,

Çözüm oldu ise ne mutlu, hayırlı sabahlar...

 

[veyselemre]

Function tekrarlimi(al As String) As Boolean
    If al = "" Then Exit Function
    For i = 1 To Len(al) - 1
        'If InStr(i + 1, al, Mid(al, i, 1), 0) > 0 Then 'BinaryCompare Mode
        If InStr(i + 1, al, Mid(al, i, 1), 1) > 0 Then 'TextCompare Mode
            tekrarlimi = True
            Exit Function
        End If
    Next
    tekrarlimi = False
End Function

 

[Orion1]

Büyük küçük harf hatalı sonuç üretiyordu.Onu düzenledim.
Aşağıdaki ktf yi kullanın.

Function karakter(ByRef deg As String) As String
Dim n As Long, z As Object, sonsat As Long
If deg = "" Then Exit Function
deg = UCase(Replace(Replace(deg, "i", "İ"), "ı", "I"))
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

 

[baydeniro]

Orion1 üstadım çok çok teşekkür ederim, böyle çok daha iyi oldu. Sağlıcakla kalın.

 

[Orion1]

Orion1 üstadım çok çok teşekkür ederim, böyle çok daha iyi oldu. Sağlıcakla kalın.

Rica ederim.
İyi çalışmalar.

 

[baydeniro]

veyselemre üstadım çok teşekkürler. Alternatif bir kodumuz daha oldu. Sağlıcakla kalın.