Veri içersindeki harfleri rakamlardan ayırma

[xlsx]

Selam Arkadaşlar
Bir malzeme listesi icersinde kodlar ve kodlara bağlı rakamlar mevcut.Listedeki Harf+rakam içeren verileri sadece rakam kalacak şekilde ayıklayabileceğim bir formül mevcut mu?

Örn:
A1 hücresinde TCX4534XX567YU56
A2 hücresinde WAAST34544Q1XXS

ve buna benzer devam eden veriler mevcut.
Formül ile örn: TCX-XX-YU ve hemen yanındaki hücrede de 4534-567-56 olarak arada - karakteri ile yer alması gerekiyor.
Yardımınızı rica ederim.
Tşk

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[veyselemre]

Sayın Leventm soruyu gayet güzel cevaplamış ama, regexp scriptinin kullanımını denemek için bir örnek hazırladım.

 

[xlsx]

Evet gerçekten tam istediğim gibi olmuş kullanmaya başlıyorum.Tşk..
Excel Kod ile çok daha verimli oluyor.Sanırım en kısa zamanda bu kod bilgisini de geliştirmek gerekir

 

[smyrna82]

sutunlara ayrılacak metin bilgisi

ayni sekilde bir sutunda istanbul-goztepe ve izmir konak vb. bilgileri var. Ben bu kimisi -(tire) ile kimiside sadece bosluk ile ayrilmis verilerin ayri ayri sutunlara yazilmasini istiyorum istanbul ve goztepe gibi..yardimci olursaniz sevinirim

 

[Seyit Tiken]

Veri > Metni Sütunlara Dönüştür'ü deneyiniz.

 

[kueqw]

Tam aradığım konuydu ama bahsi gecen eki göremiyorum.Yeniden eklemeniz mümkün mü?

 

[ismailmuhcu]

Hücre içindeki Rakam veya Harfleri ayırmak için aşağıdaki fonksiyonları kullanabilirsiniz...

Function HarfAl(Hücre)
Dim Karakter, i As Integer
Dim Sonuç
For i = 1 To Len(Hücre)
Karakter = Mid(Hücre, i, 1)

If IsNumeric(Karakter) = False Then
Sonuç = Sonuç & Karakter
End If

Next i
HarfAl = Sonuç
End Function

Function RakamAl(Hücre)
Dim Karakter, i As Integer
Dim Sonuç
For i = 1 To Len(Hücre)
Karakter = Mid(Hücre, i, 1)

If IsNumeric(Karakter) = True Then
Sonuç = Sonuç & Karakter
End If

Next i
RakamAl = Sonuç
End Function

 

[Levent Menteşoğlu]

Ekli dosyalar yerine tekrar eklenmiştir.