sadece sayısal sonuç

[Ercan_ÇELİKOĞLU]

Şimdi bakın bağ değ dolu say dediğimiz zaman b1 ve b9 a yazdığım satırlarda ki sonucu 6-7-8 diye veriyor ama benim istediğim ekli dosyada açıklması mevcut sadece sayısal sonuç örnek yani b1 e 1 adet yolluk bild. b 2 ye 5 adet belge yazıyorum diyelim bağdeğdolusayda sadece 2 olarak görüyor oysaki ekli belge 6 olması lazım ilgilineceklere saygılarımla.

 

[zafer]

Merhaba


A3 hücresine aşağıdaki formülü yazıp diğer hücrelere kopyalayınız.
=PARÇAAL(B3;1;(BUL(" ";B3))-1)*1

sonrada A sütunundaki sayıları toplayınız.

 

[Ercan_ÇELİKOĞLU]

sanırım ekli dosyayı incelemediniz

ekli dosyayı incelerseniz amacımın sadece b3 ve b9 olmadığını c3 ve c9 hücresindeki sonuçların net toplamını tek bir hücreye istediğimi anlarsınız. ilginize teşekkürler

 

[zafer]

Merhaba

Kendiniz istediğiniz gibi çoğaltabilirsiniz.sonrada A sütunundaki hücreleri toplarsınız.
=PARÇAAL(B3;1;(BUL(" ";B3))-1)*1+PARÇAAL(C3;1;(BUL(" ";C3))-1)*1

 

[Ali]

ekli dosyayı incelerseniz amacımın sadece b3 ve b9 olmadığını c3 ve c9 hücresindeki sonuçların net toplamını tek bir hücreye istediğimi anlarsınız. ilginize teşekkürler

Alternatif olarak kullanıcı tanımlı fonksiyon ilede yapılabilir.

ALT+F11 ile VBA düzenleyici açıp aşağıdaki kodları bir module ekleyin.

Public Function DegerTopla(Deger As Range)
For Each aralik In Deger
    rakamlar = ""
    For i = 1 To Len(aralik)
        If IsNumeric(Mid(aralik, i, 1)) = True Then rakamlar = rakamlar & Mid(aralik, i, 1)
        If Mid(aralik, i, 1) = "," Then If IsNumeric(Mid(aralik, i - 1, 1)) = True And IsNumeric(Mid(aralik, i + 1, 1)) = True Then rakamlar = rakamlar & "."
        Next i
    a = Val(rakamlar) + a
Next aralik
DegerTopla = a
End Function

=DegerTopla(B3:C9) yazdığında toplam rakamı göreceksiniz.

 

[Necdet]

Sadece Rakamları Topla

Kendim için kullanıcı tanımlı bir fonksiyon yazmıştım. Bu nedenle bu fonksiyonu bu soru için sizinle paylaşayım.

Public Function SayısalToplama(Hücre_Aralığı As Range)
For Each hucre In Hücre_Aralığı
    sayi = ""
    For i = 1 To Len(hucre)
' ---------- Tarih Kontrolü Yapar
    If IsNumeric(Mid(hucre, i, 1)) = True And Mid(hucre, i + 2, 1) = "." And Mid(hucre, i + 5, 1) = "." Then
    i = i + 10
    End If
' ---------- Tarih Kontrolü Son
    
    
    If IsNumeric(Mid(hucre, i, 1)) = True And Mid(hucre, i + 1, 1) = "." And IsNumeric(Mid(hucre, i + 2, 1)) = False Then GoTo son
    
    If IsNumeric(Mid(hucre, i, 1)) = True Then sayi = sayi & Mid(hucre, i, 1)
    If Mid(hucre, i, 1) = "," Then If IsNumeric(Mid(hucre, i - 1, 1)) = True And IsNumeric(Mid(hucre, i + 1, 1)) = True Then sayi = sayi & "."
    If Mid(hucre, i, 1) = "-" And IsNumeric(Mid(hucre, i + 1, 1)) = True Then sayi = sayi & "-"
son:
        Next i
    a = Val(sayi) + a
Next hucre
SayısalToplama = a
End Function

 

[Necdet]

Ali Bey ile aynı çözümü düşünmüşüz ama, soruyu soran arkadaşımızdan tık yok... neyse