parçaal fonksiyonu

[yavuz66]

iyi günler arkadaşalar. Aynı hücre içindeki değerleri toplatmak istiyorum nasıl yapabilirim. teşekkürler

 

[Ferhat Pazarçevirdi]

Aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz.

Option Explicit
Public Function OTopla(kriter As String, aralik As Range)
    Dim RegEx As Object
    Dim Bulunan As Object
    Dim hcr As Range
    Dim i As Integer
    Dim toplam As Long
    Application.Volatile (True)
    
    Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .Pattern = kriter & "-(\d+)"
    End With
    
    For Each hcr In aralik.Cells
        Set Bulunan = RegEx.Execute(hcr.Text)
        
        For i = 0 To Bulunan.Count - 1
            toplam = toplam + Bulunan(i).SubMatches(0)
        Next i
    
    Next
    
    OTopla = toplam
    Set RegEx = Nothing
End Function

 

[yavuz66]

teşekkür ederim ferhat kardeş, tam istediğim gibi olmuş emeğine sağlık