harfleri ve rakamları ayırma

[EGZELL]

elimde uzunca bir liste var. sütunda bulunan rakam ve harfleri ayırmak istiyorum. ekte örnekle açıklamaya çalıştım.umarım anlatabilmişimdir.

yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[halit3]

elimde uzunca bir liste var. sütunda bulunan rakam ve harfleri ayırmak istiyorum. ekte örnekle açıklamaya çalıştım.umarım anlatabilmişimdir.

yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Aşağıdaki linkdeke bir bakınız daha başka linklerdede bu kodlar var

http://www.excel.web.tr/f48/metin-icerisindeki-rakamlary-almak-t80616.html

 

[EGZELL]

üstadım,
linki inceledim ama formülü benim listeye uyarlayamadım. kodları ise kullanmasını bilmiyorum. ilk mesajdaki ekli listeyi incelerseniz sadece harfleri ve rakamları ayırmasının yanında hücreleri bir sağa yana kaydıracak bir formül bulmaya çalışıyorum. içiçe formül konusunda tecrübesizim.
yardımcı olursanız çok memnun olurum.

 

[Ömer]

Merhaba,

Bu işlem için fonksiyon değil makro kullanmanız gerekir.

Module kopyalarak çalıştırınız.

Sub RakamAraTasi()
 
Dim i As Long
 
For i = 3 To Cells(Rows.Count, "B").End(xlUp).Row
    If IsNumeric(Cells(i, "D")) = True Then
        Range("C" & i & ":D" & i).Cut Range("D" & i)
    End If
Next i
 
End Sub

Eğer fonksiyon kullanacaksanız ikinci bir tablo hazırlayıp o tablo üzerinde formül yazılmalıdır. İkinci tablo düzeni ile işinize yarıyacaksa belirtirseniz o şekilde de bir dosya hazırlayabilirim.

.

 

[EGZELL]

ellerinize sağlık Ömer bey
teşekkür ederim. çok işime yaradı.