Metin içinden sayıları ayırmak

[Leoncio]

Arkadaşlar;

Aşağıdaki fonksiyon ile metin içindeki sayıları ayırıyorum. Kırmızı alanlarda hata veriyor.

Function sayim(hucre)
** Dim i As Integer
For i = 1 To Len(hucre)
***** sayi = Mid(hucre, i, 1)
***** If IsNumeric(sayi) = True Then
******** sayim = sayim & sayi
***** End If
Next iEnd Function



Function sayim(hucre)
** Dim i As Integer
** For i = 1 To Len(hucre)
***** sayi = Mid(hucre, i, 1)
***** If IsNumeric(sayi) = True Then
******** sayim = sayim & sayi
***** End If
** Next i
End Function

 

[Kemal Demir]

Merhaba,
A kolonundaki veriler için geçerlidir.Sonucları B kolonuna yazdırıyor.Umarım doğru anlamısımdır.

Ek'teki dosyayı inceleyiniz.

Sub noayir()
For y = 2 To 11
uzunluk = Len(Cells(y, 1))
For x = 1 To uzunluk
If IsNumeric(Mid(Cells(y, 1), x, 1)) Then
Debug.Print Mid(Cells(y, 1), x, 1)
Cells(y, 2) = Cells(y, 2) & Mid(Cells(y, 1), x, 1)
End If
Next
Next

Leoncio,

Aşagıdaki link'te benzer bir çalışma hazırlamıstım.Umarım işinize yarar.

http://www.excel.web.tr/f133/metin-icerisindeki-numerik-degelerin-ve-metinleri-ayr-lmas-t53151.html

 

[hamitcan]

Ben de çalışdı. Siz en iyisi bir dosya ekleyin, öyle bakalım.

 

[Leoncio]

Ben de çalışdı. Siz en iyisi bir dosya ekleyin, öyle bakalım.

Dosya ekte... Kodlar çalışmıyor modülden görebilirsiniz.

 

[LEOMAN57]

Metinden rakam ayırma

Merhabalar ,
Sayın hocalarım benimde metinden rakam ayırma problemim var yardımcı olabilirsiniz rica etsem.
Örnek: "Kalemlik:5 Cetvel:3 yada " Kalemlik:5 " metinlerdeki rakamları sağ taraftaki boş bir sütuna alsın istiyorum.Yardımlarınız için şimdiden Çok Tşk.

 

[Kemal Demir]

Leoman,

Zannedersem sizin sorunuz

Text to columns kullanarak cozulebilir. ( Metni Sutuna Çevir )

Data>Text to Columns>Delimited>Other seçeneğinin oldugu yeri " : " olarak tanımlarsanız sorunuzun çözülür düşüncesindeyim.

 

[Leoncio]

Sayın Hamitcan;

Kodlar çalıştı. Teşekkürler.

Sayın Leoman;

Ekteki örneği inceleyiniz. Metin fonksiyonunu kullanabilirsiniz. Yada Sayın Kemal Demir'in önerdiği gibi Veri>Metni Sütunalara ile yapabilirsiniz.

 

[LEOMAN57]

Kemal Hocam , Sizlerden aldığım bazı kodlarla küçük bir makro hazırladım.Son olarak rakamların metin den ayrılması kaldı. pek anlamıyorum excel ve makro dan.Örneğin: (a sutunu "Kalemlik:5 Cetvel:3") kalemliğin adeti b sutununa cetvelin adeti ise c sütununa gelsin istiyorum. (asutunu"kalemlik:5") ise bunun adeti de b sutununa gelsin istiyorum.Yani tek ürün çıkarsa adeti b sutununa gelsin.Çift ürün çıkarsa 1.ci ürünün adeti b sutuna 2.ci ürünün adeti c sutununa gelsin. "Data>Text to Columns>Delimited>Other seçeneği "Nerde yada nereye yazıldığını bilmiyorum hocam uğraştığın ve ilgilendiğin için ALLAH razı olsun.Tşk.

 

[LEOMAN57]

Sn Leoncio ekte verdiğin kodu bendeki excel sayfasinda uyguladım ama bu hatayi veriyor. #AD

 

[baydeniro]

Sayın Kemal Demir, çok güzel bir çalışma, emeğinize sağlık. Bunun bir de metin'leri ayır veriyosunu nasıl olur !!

 

[Kemal Demir]

Serdar bey,


Aşagıdaki link'teki dosyalarda metin ve numerik değerler için hazırlanmıs calisma mevcut.
http://www.excel.web.tr/f133/metin-icerisindeki-numerik-degelerin-ve-metinleri-ayr-lmas-t53151.html

Sub Textayir()
For y = 2 To 11
uzunluk = Len(Cells(y, 1))
For x = 1 To uzunluk
If IsNumeric(Mid(Cells(y, 1), x, 1)) Then
[b]Else[/b] [b]'kodu yeterli olacaktır[/b]
Debug.Print Mid(Cells(y, 1), x, 1)
Cells(y, 2) = Cells(y, 2) & Mid(Cells(y, 1), x, 1)
End If
Next
Next
End Sub

 

[baydeniro]

Çok çok teşekkürler Sayın Kemal Demir.