veri sutunlara dönüştürme

[engin.kilic.73]

herkese selamlar

sutun
c sutunu: d sutunu : e sutunu: f sutunu:
x1 acp;5102 atp; 5000 alm;1579
değerlerini alıyor
ben her sutun arasına bir boş sutun ekleyip sonrasında dolu sutuna gelip
veri hücreleri sutunlara dönüştür deyip ( işaretine göre yapıyorum
sonrasında
c d e f g
x1 acp 5102 atp 5000 şeklini alıyor


bunun kısa yolur varmıdır.

 

[Necdet]

Merhaba,
Örnek bir dosya hazırlayarak ve olması gereken durumu da belirterek peylaşım sitelerinden birine yüklerseniz, çözüme ulaşmanız daha hızlı olacaktır.

 

[engin.kilic.73]

SORUU

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[necati]

Merhaba,
Manuel olarak çok sütunda hücreleri sutunlara dönüştür seçeneği bulunmuyor.
Sizin manuel yaptığınızı makroya çevirmekle olabilir. 1 hücreyi iki hücreye bölmek şeklinde bir örnek aşağıda. Önce veri alanını seçili hale getirin:

Sub Cok_sutundan_MSDonustur()
Dim rng As Range
Dim i As Long, ss As Long, say As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set rng = Selection.EntireColumn
ss = rng.Columns.Count

For i = ss To 1 Step -1
    rng.Columns(i + 1).EntireColumn.Insert
    say = say + 1
Next

Selection.Resize(, ss + say).Select

For i = 1 To ss + say Step 2
    rng.Columns(i).TextToColumns Destination:=rng.Cells(1, i), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

MsgBox "Veri sütunlara ayrıldı", vbInformation

End Sub