Metin İçinde Belirli Bir Kısmı Alma

[alprn19]

Merhaba arkadaşlar.

Şimdi vba da Örneğin A1 hücresinde 'AA1245' yazıyor.
ben sadece '1245' kısmını bir x değerine vermek istiyorum.
Yolu var mıdır araştırdım biraz bulamadım buraya sorayım dedim.


Buldum işine yarayan olursa diye bırakıyorum.




Sub sagdan()
deger=cells(1,1)
cells(1,2)=Right(deger,2)
End Sub

Yukarıdaki örnek A1 hücresindeki değerin, sağından 2 harf almaktadır. Eğer A1 hücresinde Mustafa yazıyorsa, sonuç fa olarak dönecektir.

 

[turist]

VBA sayfasında bir "module" kısmına aşağıdaki kodları yazın.
Excel sayfanızda A1 hücresine "AA1245" yazdıktan sonra Sub Test() makrosunu çalıştırıp, deneyin.
Daha sonra kodu kendi ihtiyacınıza göre düzenleyebilirsiniz.

Sub Test()
Dim Sayidegeri As Variant
 Sayidegeri = SadeceSayi(Range("A1"))
Range("B1") = Sayidegeri
   End Sub
Function SadeceSayi(ByVal metin As String) As Variant
    Dim RegExpObj As Object
    Dim sayisi As String
    Set RegExpObj = CreateObject("vbscript.regexp")
    With RegExpObj
        .Global = True
        .Pattern = "[^\d]+"
        sayisi = .Replace(metin, " ")
    End With
    SadeceSayi = Split(Trim(sayisi), " ")
End Function