Çözüldü Harflere Karşılık Gelen Değerleri Bulmak

[Gata]

Gri Dolgulu Alanda O İle P Sütunundaki Şartlara Göre Eski Versiyonlara Göre Formüler İle Yapıyorum Sarı Dolgulu Alanda 365 Versiyonlara Göre Yapıyorum Fakat Eski Versiyonlara Göre Değerler Aynı Gelmiyor İstiyorum Yardımcı Olurmusunuz eski versiyonlara göre sonuçların aşğıdaki gibi olacak

HARF	ADET
A	2
K	2
M	2

 

[hüseyintok]

Gri Dolgulu Alanda O İle P Sütunundaki Şartlara Göre Eski Versiyonlara Göre Formüler İle Yapıyorum Sarı Dolgulu Alanda 365 Versiyonlara Göre Yapıyorum Fakat Eski Versiyonlara Göre Değerler Aynı Gelmiyor İstiyorum Yardımcı Olurmusunuz eski versiyonlara göre sonuçların aşğıdaki gibi olacak

HARF	ADET
A	2
K	2
M	2

denermisiniz?
Sub Tarel()
Dim i As Integer
Dim j As Integer
Dim karakterSayisi As Integer
Dim kelime As String
Dim satir As Integer
Dim x As Integer, p As Integer, k As Integer
Dim karakter As String
Dim harfler As String
Dim benzersizHarfler As String
Dim tekrarSayisi As Integer

karakterSayisi = Range("C3").Value

satir = 4

For i = 4 To 14
kelime = Range("B" & i).Value
If Len(kelime) = karakterSayisi Then

Range("C" & satir).Value = kelime
satir = satir + 1


End If
Next i

For x = 3 To 10
harfler = Range("C" & x).Value

For p = 1 To Len(harfler)
karakter = Mid(harfler, p, 1)

If InStr(benzersizHarfler, karakter) = 0 Then
benzersizHarfler = benzersizHarfler & karakter
End If
Next p
Next x


For j = 1 To Len(benzersizHarfler)
karakter = Mid(benzersizHarfler, j, 1)
Range("F" & satir).Value = karakter
tekrarSayisi = 0

For k = 3 To 10
tekrarSayisi = tekrarSayisi + Len(Range("C" & k).Value) - Len(Replace(Range("C" & k).Value, karakter, ""))
Next k
Range("G" & satir).Value = tekrarSayisi
satir = satir + 1
Next j
End Sub

 

[Gata]

denermisiniz?
Sub Tarel()
Dim i As Integer
Dim j As Integer
Dim karakterSayisi As Integer
Dim kelime As String
Dim satir As Integer
Dim x As Integer, p As Integer, k As Integer
Dim karakter As String
Dim harfler As String
Dim benzersizHarfler As String
Dim tekrarSayisi As Integer

karakterSayisi = Range("C3").Value

satir = 4

For i = 4 To 14
kelime = Range("B" & i).Value
If Len(kelime) = karakterSayisi Then

Range("C" & satir).Value = kelime
satir = satir + 1


End If
Next i

For x = 3 To 10
harfler = Range("C" & x).Value

For p = 1 To Len(harfler)
karakter = Mid(harfler, p, 1)

If InStr(benzersizHarfler, karakter) = 0 Then
benzersizHarfler = benzersizHarfler & karakter
End If
Next p
Next x


For j = 1 To Len(benzersizHarfler)
karakter = Mid(benzersizHarfler, j, 1)
Range("F" & satir).Value = karakter
tekrarSayisi = 0

For k = 3 To 10
tekrarSayisi = tekrarSayisi + Len(Range("C" & k).Value) - Len(Replace(Range("C" & k).Value, karakter, ""))
Next k
Range("G" & satir).Value = tekrarSayisi
satir = satir + 1
Next j
End Sub

Teşekkür ederim hocam kullanıcı tanımlı fonksiyon olarak yazabilir misiniz

 

[hüseyintok]

Teşekkür ederim hocam kullanıcı tanımlı fonksiyon olarak yazabilir misiniz

function olarak tam istediğiniz işlem hangisi?

 

[Gata]

function olarak tam istediğiniz işlem hangisi?

Merhabalar hocam eski versiyonlara göre formül ile yapabilirmisiniz