Aynı hücre içinde toplama işlemi, yazıları görmezden gelerek

[Alperden]

Merhabalar aynı hücre içinde toplama işlemi yapmak istiyorum. Bazı ürünlerde sadece sayı var, bazı ürünlerde açıklama girmem gerekiyor sutuna yazı yazdığımda toplama yapmıyor. Var mı bir çözümü? Ekte dosyayı göbnderiyorum. Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Aşağıdaki fonksiyonu boş bir modüle uygulayın.

Function KTOPLA(Alan As Range) As Double
    Dim Veri As Range, Data As Variant, Rakam As Double
    
    Application.Volatile True
    
    For Each Veri In Alan
        If IsNumeric(Veri.Value) Then
            KTOPLA = KTOPLA + Veri.Value
        Else
            Data = Split(Veri.Text, "+")
            For X = 0 To UBound(Data)
                With CreateObject("vbscript.regexp")
                    .Pattern = "[^\d,]"
                    .Global = True
                     Rakam = .Replace(Data(X), "")
                End With
                KTOPLA = KTOPLA + CDbl(Rakam)
            Next
        End If
    Next
End Function

Daha sonra dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" biçiminde kayıt edin.
Son olarak J3 hücresine aşağıdaki formülü uygulayın.

=KTOPLA(B3:I3)

 

[Alperden]

korhan bey cevabınz için cok tesekkür ederim. Üstteki kodu boş bir modüle nasıl uygulayabilirim? Excel konusunda çok bilgili değilim. Bir kez daha açıklama yaparsanız çok memnun olurum.

edit: Nasıl yapılacağını forum üzerinden araştırma yaparak buldum. Visual basic actım insert-modüle yaptım kodu ekledim. Son olarak formülü hücreye yazdım ancak olmadı

Exceli ingilizce kullanmak zorundayım, kurum içi olduğu için. Ktopla ingilizcede hangi işlev acaba?

 

[Alperden]

Korhan bey, exceli ingilizce kullandığım için mi sonuç alamıyorum acaba?

 

[Korhan Ayhan]

Merhaba,

Profilinizde ofis sürümü bilgisine ek olarak İngilizce kullandığınızı belirtmenizde fayda var.

Son olarak üstteki mesajımda ki kodu revize ettim. Son halini tekrar deneyiniz.

 

[Alperden]

Sanırım bir yerde yanlış yapıyorum. Sizin acaba çalışma sayfası içinde revize edip gönderme şansınız var mı paylaştığım örnek dosya içinde.

Edit: Profil düzenlememi yapacağım, sizi de yanlış yönlendirdim. Kusura bakmayın.

Korhan bey allah sizden razı olsun yaptım sonunda

tuttuğunuz altın olsun

 

[Korhan Ayhan]

Metinsel ifadelerde ayıraç olarak kod içinde "+" kullandım. Sizde verileriniz yazarken bu işaretin olmasına dikkat ediniz.

 

[sirkülasyon]

Kolay Gelsin