liste ayrıştırmak

[igultekin2000]

iyi günler; örnek çalışmamı Tarih, Fatura No ve İsim olarak ayrıştırmak istiyorum.

Sub IKINCI_BOSLUKTAN_SONRASINI_AL()
For satir = 2 To Cells(Rows.Count, "A").End(3).Row
    Cells(satir, "B") = Evaluate("=MID(A" & satir & ",FIND(""|"",SUBSTITUTE(A" & satir & ","" "",""|"",2),1)+1,255)")
Next
End Sub

bu makro ile boşluğa göre ayırma yapıyorum ama boşluktan sonrasının tamamını ayırabiliyorum.

 

[askm]

Veri-Metni Sutuna Dönüştür - Sabit genişlik ile işleminiz çözüm bulabilir.