Merhaba arkadaşlar,
Standart formatta olmayan ürün kodlarının sadece rakamlarinı almak istiyorum. Aşağıdaki fonksiyon sayesinde bu oluyor ancak tam olarak problemimi çözmedi.
Örneğin, "A1955TR3", "109265","E0014E3" gibi. bu fonksiyonda şöyle bir problem yaşıyorum; sondaki rakamı da alıyor doğal olarak. Yani kısaca A1955TR3 'ü 19553 olarak yazıyor. Ben ise sadece 1955 yazmasını istiyorum. Önerisi olan var mı?
Şimdiden teşekkürler.
Function sayim(hucre)
Dim i As Integer
For i = 1 To Len(hucre)
sayi = Mid(hucre, i, 1)
If IsNumeric(sayi) = True Then
sayim = sayim & sayi
End If
Next i
End Function
Standart formatta olmayan ürün kodlarının sadece rakamlarinı almak istiyorum. Aşağıdaki fonksiyon sayesinde bu oluyor ancak tam olarak problemimi çözmedi.
Örneğin, "A1955TR3", "109265","E0014E3" gibi. bu fonksiyonda şöyle bir problem yaşıyorum; sondaki rakamı da alıyor doğal olarak. Yani kısaca A1955TR3 'ü 19553 olarak yazıyor. Ben ise sadece 1955 yazmasını istiyorum. Önerisi olan var mı?
Şimdiden teşekkürler.
Function sayim(hucre)
Dim i As Integer
For i = 1 To Len(hucre)
sayi = Mid(hucre, i, 1)
If IsNumeric(sayi) = True Then
sayim = sayim & sayi
End If
Next i
End Function