 #1
			
				
			
			
			
			
#1
		
				
				Metin ve sayıların olduğu hücreden toplamları almak için formülle yapılabilir mi acaba?
				
				
			
			
			
			
	yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
			
				
	
			
			
			
			
			
			
		 #1
			
				
			
			
			
			
#1
		(10/11/2023, 12:36)feraz yazdı: Ktf olarak akşama doğru yapıp eklerim.
Function ToplaKTF(hucre As Range, ayrac As String) As Double
    Dim topla As Double, kes, i As Long
    Application.Volatile
    ToplaKTF = 0
    kes = Replace(hucre, " ", "")
    kes = Split(kes, ayrac)
    
    For i = 0 To UBound(kes)
      If IsNumeric(kes(i)) = True Then topla = topla + CDbl(kes(i))
    Next
    
    ToplaKTF = topla
End Function 
Function ToplaKTF(hucre As Range) As Double
    Dim topla As Double, arr, i As Long
    Application.Volatile
    ToplaKTF = 0
    
    With CreateObject("vbscript.regexp")
        .Pattern = "[^0-9]"
        .Global = True
        .IgnoreCase = True
        arr = Split(Trim(.Replace(hucre.Value, " ")), " ")
    End With
        
    For i = 0 To UBound(arr)
      If IsNumeric(arr(i)) = True Then topla = topla + CDbl(arr(i))
    Next
    
    ToplaKTF = topla
End Function