aynı hücrede alt alta yazılan değerleri genel toplama aktarmak

[periklet]

arkadaşlar meraba bir çalışmamda aynı hücreye alt+enter ile alt alta girdiğim değerleri genel toplama ilave edemiyorum bunun bir yolu varsa yardımcı olurmusunuz. açıklayıcı olması için ekte bir tablo yolluyorum.

 

[uzmanamele]

merhaba
bu şekilde girilmiş verileri toplama ilave edemezsiniz

 

[Necdet]

Merhaba,

Kullanıcı tanımlı fonksiyonla olabilir. Hücredeki rakamları çekip toplamaktadır. Kendim için yazmıştım, o yüzden fonksiyonun adı NecdetToplama idare edin artık.

Public Function NecdetToplama(Deger As Range)
For Each hucre In Deger
    Sayi = ""
    For i = 1 To Len(hucre)
' ---------- Tarih Kontrolü Yapar
    If IsNumeric(Mid(hucre, i, 1)) = True And Mid(hucre, i + 2, 1) = "." And Mid(hucre, i + 5, 1) = "." Then
    i = i + 10
    End If
' ---------- Tarih Kontrolü Son
    
    If Mid(hucre, i, 1) = Chr(10) Then
        a = Val(Sayi) + a
        Sayi = ""
    End If
    If IsNumeric(Mid(hucre, i, 1)) = True And Mid(hucre, i + 1, 1) = "." And IsNumeric(Mid(hucre, i + 2, 1)) = False Then GoTo son
    
    If IsNumeric(Mid(hucre, i, 1)) = True Then Sayi = Sayi & Mid(hucre, i, 1)
    If Mid(hucre, i, 1) = "," Then If IsNumeric(Mid(hucre, i - 1, 1)) = True And IsNumeric(Mid(hucre, i + 1, 1)) = True Then Sayi = Sayi & "."
    If Mid(hucre, i, 1) = "-" And IsNumeric(Mid(hucre, i + 1, 1)) = True Then Sayi = Sayi & "-"
son:
        Next i
    a = Val(Sayi) + a
Next hucre
NecdetToplama = a
End Function

 

[periklet]

Saol necdet aşmışsın ama bunu nasıl uygulucamıda anlatırmısın
toplamı daha fazla satıra uygulayabilirmiyim.

 

[Necdet]

Aşağıdaki linci inceleyiniz.

Eklenti hazırlarsanız tüm dosyalarda kullanma şansınız olur.

http://www.excel.web.tr/showthread.php?t=7756