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

Gata

Altın Üye
Katılım
11 Ağustos 2018
Mesajlar
271
Excel Vers. ve Dili
Excelde 2016 Türkçe
Altın Üyelik Bitiş Tarihi
21-09-2027
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

 

Ekli dosyalar

hüseyintok

Altın Üye
Katılım
11 Mart 2020
Mesajlar
87
Altın Üyelik Bitiş Tarihi
11-03-2025
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

Altın Üye
Katılım
11 Ağustos 2018
Mesajlar
271
Excel Vers. ve Dili
Excelde 2016 Türkçe
Altın Üyelik Bitiş Tarihi
21-09-2027
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
 
Üst