bölümleme

[Barons]

merhaba
ekteki dosyada veriler var,ancak tüm veriler tek bir hücrede toplanmış durumda.Bu şekilde 1000 satır mevcut.makro yardımı ile bölümlendirmek mümkünmüdür?

olması gereken şekil resim olarak dosyadadır.
teşekkürler

 

[Barons]

tekrar incelediğimde belli bir mantık olmadığını ,dolayısı ile belki çözülebilir ama çok zor bir soru sorduğumu farkettim.Özür dilerim.

 

[Barons]

ilk rakama kadar olan kısım 1.sütun
rakamların hepside ayrı bir sütun olacak.
Rakam bitince yine bir alt satıra geçip,yine üstteki gibi bölümlendirmeye devam edecek...
ancak bunun kodlaması tabiki önemli..biraz kılçık bir ve zor bir soru sorduğumun farkındayım ancak çok şey öğrendiğim bu sitede bunu başarabilecek çok kişi olduğunuda biliyorum.yardımlarını esirgemezlerse çok sevinirim.

 

[omerceri]

Sn Barons
Rakkamlarlada iş zor çözülecek gibi, bilgiyi nerden ve nasıl alıyorsunuz. Size bu şekilde hazır mı? geliyor.

 

[Barons]

evet hazır geliyor hocam...

 

[mancubus]

internette bulduğum aşağıdaki makro kısmen da olsa işinizi görüyor.
metni aynı satırda sütunlara bölüyor.

Sub SplitTextNum()
'http://www.mrexcel.com/forum/showthread.php?p=2442164#post2442164

Dim r As Range, rC As Range
Dim v As Variant
 
Set r = Range("A2", Range("A2").End(xlDown))
With CreateObject("VBScript.RegExp")
    .Pattern = "(\d+|\D+)"
    .Global = True
    For Each rC In r
        v = Split(Mid(.Replace(rC.Value, "|$1"), 2), "|")
        rC.Offset(, 1).Resize(, UBound(v) + 1).Value = v
    Next rC
End With

End Sub

 

[mancubus]

biraz manuel düzenleme yapmak gerekiyor.

alt alta kopyalamak gibi...
rakamlar metin olarak geliyor. matematiksel işlem yapacaksanız metni rakama dönüştürme işlemi yapmak gibi.
100% Pure..... 100 ve % Pure... olarak bölünmüş. onu düzeltmek gibi.

 

[Barons]

dediğiniz gibi altalta olması lazım...esas önemli olan kısım bu...rakamları sayıya çevirmek kolay...
ilginiz için çok çok teşekkürler

 

[omerceri]

Aşağıdaki gibi mantık işinize yararsa biraz daha geliştirilebilinir.
Sub a()
For i = 0 To 9
Range("a3").Value = Replace(Range("a3"), i, "xx")
Next
Range("a3").Value = Replace(Range("a3"), "xx", "")
ff = Split(Range("a3"), " ")
gg = UBound(Split(Range("a3"), " "))
For e = 0 To gg
MsgBox ff(e)
Next
End Sub
Not Bir örnek ekledim

 

[Barons]

ömer hocam,
dosyayı çalıştırdım ancak benim istediğim verileri resimdeki gibi yanyana sütunlara atması.Bu şekilde sanırım olmuyor,gerçi mesajbox ilede tam anlayamadım ama.