Açıklamayı 3 ayrı sütuna nasıl kaydederim?

[assenucler]

Dostlar iyi akşamlar.


Bir yazılımdan excele aktardığım dosyada 1000'lerce kayıt bulunmaktadır.

Açıklama sütununda 1, 2 ve 3 numara ile işaretlediklerimi, ayrı sütunlara makro ile nasıl aktarabilirim?

Değerli yardımlarınızı bekliyorum. Önceden teşekkürler..

 

[metinozlu]

excelin "metni sütunlara dönüştür " menüsü ile istediğini yapabilirsiniz.

 

[assenucler]

Sayın metinozlu,

Bu menü ile çözüm bir an için aklıma gelmemişti. Teşekkürler.

Makroyla çözüm mümkün müdür?

Sevgi ve saygılar..

 

[N.Ziya Hiçdurmaz]

yanıt

'----------

 

[Necdet]

Merhaba,

Alternatif olsun

Sub SutunAyir()
    Dim i       As Long, _
        veri, _
        veri1
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        veri = Split(Cells(i, "D"), "-")
        veri1 = Split(veri(1), "/")
        Cells(i, "G") = Trim(veri(0))
        Cells(i, "H") = Trim(veri1(0))
        Cells(i, "I") = Trim(veri1(1))
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "Metin Sütunlara Ayrıştırılmıştır"
    
End Sub

 

[assenucler]

Teşekkürler

Sayın N. Ziya Hiçdurmaz,

Günaydın.

İletiye eklediğiniz "simge" nin anlamı nedir? Bilgisizliğimi mazur görün.

Sevgiler..


Sayın Necdet Yeşertener

Günaydın değerli öğretenim.

İlginiz, inceliğiniz ve yardımınız için teşekkürler. Sizin gibi uzman ve bilgisini paylaşan kişiler, bizlerin gönül dostlarısınız. Allah sizden razı ve her şey gönlünüzce olsun

En iç sevgi ve saygılarımla...

 

[N.Ziya Hiçdurmaz]

Sayın assenucler, sunduğum çözümde eksiklik gördüğümden kaldırdım.

 

[assenucler]

Sayın N. Ziya Hiçdurmaz;

Sizin gibi konusunda uzman olan bir üstadımı bilmeyerek sizi kırdım ise özür dilerim.

Yanıtınızı yeni gördüğümden, geç de olsa yazmak istedim.

Sevgi ve saygılar.