Hücredeki harfleri sayısal olarak toplama

[yedekmeyl]

Öncelikle belirteyim forumu uzun uzun araştırdım , en azından kendi bilgim çerçevesinde, ama cevabı bulamadım. soru şu liste yapıyorum ve kişileri harf ile kodluyorum . bazı günler "J K" nöbetçi bazı günler "J K M" nöbetçi. o ay içerisinde listeye göre kaç tane j var ve her nöbet 16 saat ise toplamı kaç eder nasıl hesaplarım. örnek dosya ekliyorum teşekkürler.
(her harf ayrı kişi)

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub miktar()
Dim z As Object, liste(), n As Long, say
Dim i  As Long, deg
liste = Range("D3:D" & Cells(Rows.Count, "D").End(xlUp).Row).Value
Set z = CreateObject("scripting.dictionary")
Range("F3:F" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For j = 1 To UBound(liste)
    say = Len(Replace(liste(j, 1), " ", ""))
    For i = 1 To say
        deg = Replace(liste(j, 1), " ", "")
        deg = Mid(deg, i, 1)
        If Not z.exists(deg) Then
            z.Add deg, 16
            Else
            z.Item(deg) = z.Item(deg) + 16
        End If
    Next i
Next j
Erase liste
If z.Count > 0 Then
    Range("F3").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
    Application.ScreenUpdating = True
End If
Set z = Nothing
MsgBox "İşlem Tamamdır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

End Sub

 

[yedekmeyl]

formül nedir ,bulamadım ben .
teşekkür ederim bu arada

 

[Orion1]

formül nedir ,bulamadım ben .
teşekkür ederim bu arada

VBA kodlama ile yaptım.
Kodlar önceki mesajımdadır.
Siz sadece tıkla butonuna tıklayacaksınız.

 

[yedekmeyl]

tıklayınca sadece işlem tamamdır diyor, başka bir yere veya başka bir listeye nasıl aktaracağım

 

[Orion1]

tıklayınca sadece işlem tamamdır diyor, başka bir yere veya başka bir listeye nasıl aktaracağım

Sonucu F ve G sütununa yazıyor.

 

[yedekmeyl]

evet gördüm. ben bu işlerdeki tecrübem cilalı taş seviyesinde
ben örnek listede tek sutun gönderdim başka sütunlara kopyalama yapamıyorum
formül olarak nasıl yapabilirim , benim bile anlayabileceğim basitlikte bir çözümü yok mu

 

[Orion1]

evet gördüm. ben bu işlerdeki tecrübem cilalı taş seviyesinde
ben örnek listede tek sutun gönderdim başka sütunlara kopyalama yapamıyorum
formül olarak nasıl yapabilirim , benim bile anlayabileceğim basitlikte bir çözümü yok mu

Eğer sorunuzu formülle çözmek istiyorsanız sorunuzu fonksiyonlar bölümüne sorunuz.Bizde boşuna uğraşmamış oluruz.

 

[yedekmeyl]

yanlış yerdemiyim. kusura bakma vaktini aldım.

 

[uzmanamele]

Merhaba

Evren bey'in makro çözümüne alternatif fonksiyon çözümü ektedir.

 

[yedekmeyl]

Ellerine sağlık hocam ,tam aradığım bu idi. Çok teşekkür ederim

 

[yedekmeyl]

çok teşekkürler