Hücre içerisindeki nümerik olmayan değerleri almak

[tamer42]

Merhaba;

Bir hücre içerisinde nümerik olmayan değerleri (alfabetik) almak istiyorum.

2301(A: 1D9)

olsun, buradaki sayısal değerleri silerek

(A: D)

şeklinde yazacak bir kod yada fonksiyona ihtiyacım var..

Bunu nasıl yapabilirim...

Teşekkürler, İyi Çalışmalar.

 

[Haluk]

Soz konusu hucreleri fare ile secip, kodu calistirin. Yanindaki hucrelere sonucu yazacaktir.

Sub Test()
    Dim RegExp
    Dim MyCell As Range
        For Each MyCell In Selection
            Set RegExp = CreateObject("VBscript.RegExp")
            RegExp.Global = True
            RegExp.Pattern = "[0-9]"
            MyCell.Offset(0, 1) = RegExp.Replace(MyCell, "")
        Next
    Set RegExp = Nothing
End Sub

 

[Necdet]

Haluk bey,

verdiğiniz örneği uyguladım, sadece rakamları, ama eşittir, slash, tire vs gibi karakterleri ayırmıyor, sadece alfabetik değerlerini ayırmak istesek, kod nasıl olurdu? Ã?rneğin A sütununda isimlerin olduğunu düşünürsek (ki dışardan gelen bilgilerde böyle dosyalarla karşılaştım)

 

[Haluk]

...
sadece alfabetik değerlerini ayırmak istesek, kod nasıl olurdu?
...

Aşağıdaki satırı, orjinaliyle değiştirip, deneyin.

RegExp.Pattern = "[*=/+0-9,;?.~%-]"

Ya da bunu kullanabilirsiniz,

RegExp.Pattern = "[^a-zA-Z]"

 

[Necdet]

RegExp.Pattern = "[^a-zA-Z]"

Haluk bey burda boşluk karakterini de dikkate alsa işlem tamam olacak.
Teşekkürler

 

[Haluk]

O zaman şöyle kullanın isterseniz;

            RegExp.Pattern = "[^a-zA-Z]"
            MyCell.Offset(0, 1) = Replace(RegExp.Replace(MyCell, ""), " ", "")

 

[Necdet]

Ã?ylede kullandım Haluk Bey, ama bu sefer Çorum'un Ç'si gitti Þanlıurfa yazsaydım sanırım Þ de gidecekti

 

[Fly_butterfly]

Sadece rakamları nasıl alabiliriz acaba. Yani işlemin tersine çevirebiliriz.

 

[Haluk]

Sadece rakamları nasıl alabiliriz acaba. Yani işlemin tersine çevirebiliriz.

RegExp.Pattern = "[^0-9]"

 

[Haluk]

......, ama bu sefer Çorum'un Ç'si gitti Þanlıurfa yazsaydım sanırım Þ de gidecekti

            RegExp.Pattern = "[^Ã?IÇÞİÐÜ^a-zA-Z]"
            MyCell.Offset(0, 1) = Replace(RegExp.Replace(MyCell, ""), " ", "")

 

[Fly_butterfly]

Teşekkürler haluk bey,

Formülü uygulamadan önce
İMİ3583888-046-0863-85050

böyle idi, uyguladıktan sonra
3583888046086380000

böyle oldu. İlk şekildeki gibi sadece harflerin silinmesini istiyorum ve örnek gibi olabilirmi acaba.
3583888-046-0863-85050 Yani böyle...

 

[Haluk]

.....
İlk şekildeki gibi sadece harflerin silinmesini istiyorum ve örnek gibi olabilirmi acaba.
3583888-046-0863-85050 Yani böyle...

RegExp.Pattern = "[^0-9-]"

 

[Fly_butterfly]

Sn. Haluk bey,

Yardımlarınız için gerçekten çok çok teşekkür ederim. Bu çok işime yarar bir çalışma oldu. Tekrar teşekkür ederim.