veriler arası ; ile ayrılmış satırlar

[aytacin]

Merhabalar, tek hücrede tek satır halinde ; ile araları ayrılmış. Bunu nasıl tabela haline getirebilirim.Kusura bakmayın biraz anlatım özürlüyümde! İlgili dosyayı gönderiyorum. Bunu excel tabelası olarak yazma imkanımız varmı.İşyeri için çokönemli yardımcı olabilirseniz sevinirim.Teşekkürler

 

[Ali]

Veri/Metni Sütunlara Dönüştür sihirbazı/Sınırlandırılmış kısmından noktalı virgül kısmını seçip ileri diyerek işlemi tamamlayınız. Verileriniz sütunlara dağıtılmış olacaktır.

.

 

[Orion1]

dosyanız ektedir.

Sub ayir()
Dim sh As Worksheet, sat1 As Long, i As Long, k As Integer, deg
Sheets("Sayfa2").Select
Application.ScreenUpdating = False
Cells.ClearContents
Set sh = Sheets("Tabelle1")
sat = sh.Cells(65536, "A").End(xlUp).Row
For i = 1 To sat
    deg = Split(sh.Cells(i, "A").Value, ";")
    For k = LBound(deg) To UBound(deg)
        Cells(i, k + 1).Value = deg(k)
    Next
Next
Application.ScreenUpdating = True
MsgBox "Ayırma tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[aytacin]

Arkadaşlar çok teşekkür ederim Ali arkadaşımızın yazdığı gibi yapıp Excel içinde sorunu çözdüm. Evren arkadaşımada çok teşekkür ederim. Çok işime yaradı.