metinden rakamları çıkarmak

[kan-nas]

sicil-ad
12345ahmet

Yukarıdaki ismi başında rakamlar olmadan hepsini büyük harfe çevirebilir miyiz?
Sonuç: AHMET

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Verilerinizin A2:A10 aralığında olduğu düşünülmüştür. Kendinize uyarlayınız..

Sub Kelime_Ayir()
Dim RegEx As Object, RegMatchCollection As Object, RegMatch As Object
Dim Myrange As Range, C As Range, OutPutStr As String
    Set RegEx = CreateObject("VBScript.regexp")
    With RegEx
        .Global = True
        .Pattern = "[^0-9,]"
    End With
    Set Myrange = Range("A2:A10")
    For Each C In Myrange
        OutPutStr = ""
        Set RegMatchCollection = RegEx.Execute(C.Value)
        For Each RegMatch In RegMatchCollection
            OutPutStr = OutPutStr & RegMatch
        Next
        C.Offset(0, 1) = UCase(OutPutStr)
    Next
    Set RegMatchCollection = Nothing
    Set RegEx = Nothing
    Set Myrange = Nothing
End Sub

 

[kan-nas]

üstadım,
formül yada excelde yerleşik fonksiyonla yapılabilir mi?

 

[Merhum İdris SERDAR]

üstadım,
formül yada excelde yerleşik fonksiyonla yapılabilir mi?

.

Örnek dosya ekte.

.

 

[Murat OSMA]

Formül konusuna hiç girmek istemiyorum.
O konuda işin erbapları yardımcı olacaklardır...

 

[kan-nas]

Üstadlar eksik olmayın..

 

[Merhum İdris SERDAR]

.

Bu da,

yerleşik işlevlerle.


.

 

[washburn]

Ekte bulunan eklentinin herkesin işine yarayacağını düşünüyorum...