"," karakteri ile sonlanan dizileri yeni sütuna t

[hsayar]

Selam arkadaşlar
Bir hücrede "," karakteri ile sonlanan kalime dizisini sırası ile sütunlara taşımanın bir yolu var mı?

Ã?rnek
A sütununda : Songname,Artist,Time,Filesize,KBps,Mode,Album,Filepath yazıyor
Makro öye olacak ki :

b sütunu : Songname
c sütunu : Artist
d sütunu : Time
e sütunu : Filesize
f sütunu : KBps
g sütunu : Mode
h sütunu : Album
i sütunu : Filepath

sütununa taşınacak.

İlgi ve alakanıza teşekkür ederim.
Saygılarımla

 

[zafer]

Merhaba

a1 hücresi

Aşağıdaki makroyu modüle yerleştiriniz

Sub SUTUNDAKI_VERILERI_SUTUNLARA_AYIR()

Dim SON, i, y, a As Integer
Dim txt As String, x As Variant
SON = Sheets(1).Range("A65536").End(xlUp).Row
For i = 1 To SON
txt = Sheets(1).Range("A" & i).Text
x = Split(txt, ",")
For y = 0 To UBound(x)
If Trim(x) <> "," And Trim(x) <> "" Then
a = a + 1
Sheets(1).Cells(i, a + 1) = Trim(x)
End If
Next y
a = 0
Next i
End Sub


Ayrıca Veri\Metni sütünlara dönüştür ile de yapabilirsiniz

Saygılarımla

 

[hsayar]

Zafer bey ben excel komtlarımı bildiğimi sannederim; ama genede böbürlenmek yerine "Excel okyonussa, ben göl kadarını biliyorum" derdim. Demek ki yalan söyelemiyormuşum, bilmediklerim varmış.
Teşekkürler