harf geçen hücreler arasında matematik

[selimbrs]

arkadaşlar merhaba

9 digit verilerimiz var

örn :

A23612542
B56931540

burada bizim için öncelikli olan harften sonrası
bu tanım bir makro ile biraraya geliyor ve hücreye yazılıyor

istediğimi sayısal veriler arasında çıkarma işlemi yapabilmek

23612542-56931540 = SONUC

bu işlemi nasıl yapabiliriz?

teşekkürler

 

[halit3]

arkadaşlar merhaba

9 digit verilerimiz var

örn :

A23612542
B56931540

burada bizim için öncelikli olan harften sonrası
bu tanım bir makro ile biraraya geliyor ve hücreye yazılıyor

istediğimi sayısal veriler arasında çıkarma işlemi yapabilmek

23612542-56931540 = SONUC

bu işlemi nasıl yapabiliriz?

teşekkürler

Ekli dosyayı inceleyiniz.

Function SAYILARIBUL(hucre)
' HÜCRENİN İÇİNDEKİ SAYI DEĞERLERİNİ VERİYOR
Dim i As Integer
For i = 1 To Len(hucre)
sayi = Mid(hucre, i, 1)
If IsNumeric(sayi) = True Then
SAYILARIBUL = SAYILARIBUL & sayi
End If
Next i
End Function
Function RAKAMLARIBUL(hucre)
' HÜCRENİN İÇİNDEKİ RAKAMLARI VERİYOR
Dim i As Integer
For i = 1 To Len(hucre)
sayi = Mid(hucre, i, 1)
If IsNumeric(sayi) <> True Then
RAKAMLARIBUL = RAKAMLARIBUL & sayi
End If
Next i
End Function

 

[uzmanamele]

merhaba

formülle alternatif çözüm
verileriniz A1 ve A2 hücrelerindeyse;

=SAĞDAN(A1;UZUNLUK(A1)-1)-SAĞDAN(A2;UZUNLUK(A2)-1)