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 = "[^\d-,]+"
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 + 1
End If
End If
Next
End With
End Function
Bu gördüğünüz kod içinde her hangi bir hücre içerisine yazılacak olan PÇ2 veya PÇ1 gibi sayı fark etmeksizin ama sadece PÇ nin yanında olacak rakamları saymayacak şekilde nasıl düzenlerim.
Dim Veri As Range
Application.Volatile True
With CreateObject("VBScript.RegExp")
.IgnoreCase = True
.Global = True
.Pattern = "[^\d-,]+"
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 + 1
End If
End If
Next
End With
End Function
Bu gördüğünüz kod içinde her hangi bir hücre içerisine yazılacak olan PÇ2 veya PÇ1 gibi sayı fark etmeksizin ama sadece PÇ nin yanında olacak rakamları saymayacak şekilde nasıl düzenlerim.