Metni Sütunlara Dönüştürme Makrosu

[leonadies]

Arkdaşlar metni sütuna dönüştürmeyi hepimiz kullanıyoruz zaten. benim isteğim ise bu işi makro ile yapmak;

A1 Kırmızı Elma,Beyaz kalem,Lacivert Çanta ......
A2 Yeşil Kitap,Turuncu Silgi, ......
böyle uzayıp gidiyor.

İsteğim bunları D1 den başlayıp virgülü dikkate alarak ayırsın. Nette bir kaç makro buldum ancak çoğu boşluğu da ayırıyor.bu işi makro ile yapabilirimiyiz.

Dosyada Ekledim

 

[Haluk]

Bunu bir deneyin ...

Sub Test()
    Dim tempArr
    noA = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To noA
        tempArr = Split(Range("A" & i).Text, ",")
        Range("B" & i).Resize(1, UBound(tempArr) + 1) = tempArr
    Next
End Sub

.

 

[leonadies]

Bunu bir deneyin ...

Sub Test()
    Dim tempArr
    noA = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To noA
        tempArr = Split(Range("A" & i).Text, ",")
        Range("B" & i).Resize(1, UBound(tempArr) + 1) = tempArr
    Next
End Sub

.

Çok teşekkür ederim. Sorunsuz çalışıyor

 

[Murat OSMA]

Alternatif;

[SIZE="2"]Sub Emre()
    Range("A:A").TextToColumns Range("D1"), 1, Comma:=True
End Sub[/SIZE]

 

[SEÇKİN SABAH]

sırf excele ulaşabilmek adına üye oldum ancak altın üyelik istiyor. boş yere üye olduğumuz kacıncı sayfa

 

[Korhan Ayhan]

Bahsettiğiniz excel dosyasında soru paylaşılmış. İçindeki verinin nasıl olduğu tarif edilmiş. Bunu kolaylıkla kendinizde hazırlayabilirsiniz. Bu kadar zor olmamalı.

Çözümlerle diğer mesajlarda sunulmuş.

Ayrıca foruma üye olurken dosyalara erişim için bir bilgilendirme mesajı bulunuyor.