Çıkartma İşlemi

(07/01/2022, 20:30)lemoncher2 yazdı: Sanırım bu sefer anladım ne yapmak istediğinizi

Modülünüzde bulunan kodu aşağıdaki ile değiştirirmisiniz.

Kod:

Function K_TOPLA(Alan As Range, Optional Kriter As Boolean = True) As Double
    Dim Veri As Range

    Application.Volatile True

    With CreateObject("VBScript.RegExp")
        .IgnoreCase = True
        .Global = True
        .Pattern = "[^0-9 /[PÇ]+"
       

        For Each Veri In Alan
            If IsNumeric(.Replace(Veri, "")) Then
                If Kriter = True Then
                    K_TOPLA = K_TOPLA + .Replace(Veri, "")
                Else
                    K_TOPLA = K_TOPLA
                End If
            End If
        Next
    End With
End Function

Sorun çözüldü teşekkürler desteğiniz için.