DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Public Function rakam(Deger As Range)
For Each hucre In Deger
sayi = ""
For i = 1 To Len(hucre)
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 & "."
Next i
a = Val(sayi) + a
Next hucre
rakam = a
End Function
Bu,
=PARÇAAL(B7;1;3)&PARÇAAL(B7;5;3)&SAĞDAN(B7;3)
formülünü D7 hücresine yazıp ve hücre kulpundan tutup aşağı doğru çekin.