makro ile metni sütunlara dönüştür?

[hsayar]

Makro kaydet ile denedim ama olmadı
a1 hücresi : ali/veli/hüseyin/ahmet
ise
b1 hücresi : ali
c1 hücresi : veli
d1 hücresi : hüseyin
e1 hücresi : ahmet
olsun

veriler örnekte 4 küme ancak bu bazen 30 bazen 40 oalbilir.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub msd()
[a1].TextToColumns Destination:=Range("A1")
End Sub

 

[Galus]

Sub Makro1()

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(3, 1), Array(8, 1), Array(16, 1)), _
TrailingMinusNumbers:=True
End Sub


Kodlar makro kaydetince oluşmuştur.

 

[hsayar]

Aşağıdaki kodu deneyiniz.

Sub msd()
[a1].TextToColumns Destination:=Range("A1")
End Sub

teşekkür ederim.
hocam " " boşluklara göre ayrılmayacak ayraç "/" olacak. herhalde burada anlaşamadık.

san. galus sizede teşekkür ederim. ancak hücredeki kelime sayısı değişken

 

[Galus]

" Veri >> Metni Sütunlara Dönüştür " menüsünde malesef "/" slash yok. Dönüşüm karekter sayısına göre oluyor.

 

[Seyit Tiken]

Deneyiniz.

Sub msd()
[a1].TextToColumns Destination:=[a1], OtherChar:="/"
End Sub

 

[ceyrek]

Bir de şunu deneyiniz.

Sub donustur()
kolon = Split(Cells(1, 1).Value, "/")
For i = 0 To UBound(kolon)
Cells(1, i + 2).Value = kolon(i)
Next
End Sub

 

[hsayar]

teşekkürler arkadaşalar