Hücre içinde boşluklardan ayırma sorunu

[yasin85]

Merhaba Arkadaşlar,

Bir hücre içinde bulunan verileri boşlukları olmasına rağmen ayıramıyorum.. aci yardım edermisiniz..
Not: Metin Sutunalra dönüştür denedim olmuyor.
İlgili dosyaları ekliyorum lütfen yardımlarınızı bekliyorum.. 2 resim ilk hali 3 resim hücrenin içine girdikten sonraki hali yan sutuna ayrılmasını istiyorum hücredeki verilerin..

 

[Erdem Akdemir]

tam olarak nasıl bir ayırma yapmak istiyorsunuz

 

[Erdem Akdemir]

denermisiniz

Sub parcala()
Columns("B:E").Select
Selection.Insert Shift:=xlToRight
Columns(1).NumberFormat = "@"
For y = 1 To Cells(65536, 1).End(xlUp).Row
cumledeki_degerler = Split(Cells(y, 1), ".")
For i = 0 To UBound(cumledeki_degerler)
Cells(y, i + 2).NumberFormat = "@"
Cells(y, i + 2) = cumledeki_degerler(i)
Next
Next
End Sub

 

[yasin85]

yan yan sütuna atmasını istiyorum aşağıdaki gibi denedim olmadı makro

KOD
970.051.165.0 0.42321100
970.051.146.0
970.051.207.0 970.051.209.0 5.000.673.126 1518254
970.051.405.0 000.295.2810
970.051.307.0 81.307.256.064 622508
970.051.406.0 81.607.256.049 6049-6067-6069
970.051.431.0 000.254.0047 1506468

 

[yasin85]

http://c1210.hizliresim.com/12/5/dp599.jpg

 

[yasin85]

denermisiniz

Sub parcala()
Columns("B:E").Select
Selection.Insert Shift:=xlToRight
Columns(1).NumberFormat = "@"
For y = 1 To Cells(65536, 1).End(xlUp).Row
cumledeki_degerler = Split(Cells(y, 1), ".")
For i = 0 To UBound(cumledeki_degerler)
Cells(y, i + 2).NumberFormat = "@"
Cells(y, i + 2) = cumledeki_degerler(i)
Next
Next
End Sub

bu şekilde istiyorum
http://c1210.hizliresim.com/12/5/dp599.jpg

 

[tahsinanarat]

Sn. kuvari'nin kodlarını aşağıdaki gibi deneyin
Sub parcala()
Columns("B:z").Select
Selection.Insert Shift:=xlToRight
Columns(1).NumberFormat = "@"
For y = 1 To Cells(65536, 1).End(xlUp).Row
cumledeki_degerler = Split(Cells(y, 1), Chr(10))
For i = 0 To UBound(cumledeki_degerler)
Cells(y, i + 2).NumberFormat = "@"
Cells(y, i + 2) = cumledeki_degerler(i)
Next
Next
End Sub

 

[yasin85]

Sn. kuvari'nin kodlarını aşağıdaki gibi deneyin
Sub parcala()
Columns("B:z").Select
Selection.Insert Shift:=xlToRight
Columns(1).NumberFormat = "@"
For y = 1 To Cells(65536, 1).End(xlUp).Row
cumledeki_degerler = Split(Cells(y, 1), Chr(10))
For i = 0 To UBound(cumledeki_degerler)
Cells(y, i + 2).NumberFormat = "@"
Cells(y, i + 2) = cumledeki_degerler(i)
Next
Next
End Sub

bunu makroda hata veriyor bu işlem için hiç çözüm yok mu 3000 satır var bu işlemleri tek tek yapmak zorunda kalacağım.. ((

 

[tahsinanarat]

Ben tekrar denedim hata vermiyor

Sub parcala()
Columns("B:z").Select
Selection.Insert Shift:=xlToRight
Columns(1).NumberFormat = "@"
For y = 1 To Cells(65536, 1).End(xlUp).Row
cumledeki_degerler = Split(Cells(y, 1), Chr(10))
For i = 0 To UBound(cumledeki_degerler)
Cells(y, i + 2).NumberFormat = "@"
Cells(y, i + 2) = cumledeki_degerler(i)
Next
Next
End Sub

dosyanız ekte

 

[yasin85]

sub parcala()
columns("b:z").select
selection.ınsert shift:=xltoright
columns(1).numberformat = "@"
for y = 1 to cells(65536, 1).end(xlup).row
cumledeki_degerler = split(cells(y, 1), chr(10))
for i = 0 to ubound(cumledeki_degerler)
cells(y, i + 2).numberformat = "@"
cells(y, i + 2) = cumledeki_degerler(i)
next
next
end sub

dosyanız ekte

çoook ama çoook teşekkür ederim beni günlerce yapacağım işten kurtardın ))

 

[yasin85]

Merhaba,
Yaptığınız makro da benim işlemim için sizin bir kaç dokunuş isteyeceğim mümkünse..

1-) Hücre içinde de metin ve sayı olanları sırası ile ayıra ayıra yan sütuna atabilir mi?

Hücre içersin de bulunan simgeler (''['') (''<br />'')('':'') ve hücre içerisinde Alt+Enter yapılarak aynı hücrenin alt kısmına yazılmış verileri de yan sütuna ayırması gerekli

‘’ sizin makronuzda sayıları bir metinleri bir hücreye ayırıyor benim istediğim her sayı ve metini sırası ile ayrı hücreye ayırması.’’

Örnek 1

HÜCRELER = B1 - C1 - D1 – E1 - F1
(Y[8<br />V:M) - (Y) - (8) - (V) - (M)

Yukarıda yazdığım örnek hücre içi ve yan yana hücre içi dağılımlarıdır.

Bu örnekte alt+enter örneğini yazmadım bir hücre içine girip bu işlemi yaparsınız orada ayırma işlemi için size makro mevcuttur aşağıdaki gibidir.

Sub parcala()
Columns("B:z").Select
Selection.Insert Shift:=xlToRight
Columns(1).NumberFormat = "@"
For y = 1 To Cells(65536, 1).End(xlUp).Row
cumledeki_degerler = Split(Cells(y, 1), Chr(10))
For i = 0 To UBound(cumledeki_degerler)
Cells(y, i + 2).NumberFormat = "@"
Cells(y, i + 2) = cumledeki_degerler(i)
Next
Next
End Sub
Bu makro tek başına benim işimi görmüyor yukarıda yazdığım örnekteki gibi simgelerin de yan yana
ayrılması gerekli.

İşlemin bu kısmına kadar normal bir ayırma işlemi görünüyor vereceğim detaylar işlemin meşakkatli olduğunu ortaya çıkaracak
Makro tarama yapacağı sütunlar B,C,D,E,F,G bu sütunlarda 7000 satır aşağı inmesi gerek sonrasında yan yana üst üste veriler yazılmaması için her hücre için yan tarafa hücre pay verilmesi gerek.

Sonrasında yan tarafa boş oluşan hücreleri silip dolu olan verileri yan tarafa getirmesi gerek
ve son olarak iki aynı değeri yan yana bulunan hücreleri silip tek değer haline getirmek.

Bir ata sözü ile konuyu bağlamak istiyorum..

‘’Düşmanımız kudretli olsun ki yiğitliğimiz meydana çıksın’’

 

[yasin85]

Sn. Uzman arkadaşlar lütfen yardımlarınızı bekliyorum..