- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Rica ederim.Orion1 üstadım mükemmelsiniz vesselam. Çok teşekkür ediyorum, sağlıcakla kalın.
İyi çalışmalar.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Rica ederim.Orion1 üstadım mükemmelsiniz vesselam. Çok teşekkür ediyorum, sağlıcakla kalın.
Merhaba,1Al2Ver üstadım dosya için çok teşekkür ediyorum.
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
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
Rica ederim.Orion1 üstadım çok çok teşekkür ederim, böyle çok daha iyi oldu. Sağlıcakla kalın.