listeyi ayıklama

[igultekin2000]

iyi akşamlar; indirdiğim pdf uzantılı beyannamelerimi liste olarak ayrıştırarak işlemek istiyorum. A sütünundaki listeleri B-C-D-E hücrelerine ayırmak istiyorum. Teşekkürler.

 

[Ömer BARAN]

Merhaba.

Sub AYRISTIR()
For sat = 2 To Cells(Rows.Count, 1).End(3).Row
    deg = Replace(Replace(Replace(Cells(sat, 1), "_ok.pdf", ""), "~", "."), "-", "_")
    For a = 0 To 3
        Cells(sat, a + 2).NumberFormat = "@": Cells(sat, a + 2) = Split(deg, "_")(a)
        If a = 3 Then Cells(sat, a + 2) = Split(deg, "_")(a) & "_" & Split(deg, "_")(a + 1)
    Next
Next
End Sub

 

[igultekin2000]

Merhaba.

Sub AYRISTIR()
For sat = 2 To Cells(Rows.Count, 1).End(3).Row
    deg = Replace(Replace(Replace(Cells(sat, 1), "_ok.pdf", ""), "~", "."), "-", "_")
    For a = 0 To 3
        Cells(sat, a + 2).NumberFormat = "@": Cells(sat, a + 2) = Split(deg, "_")(a)
        If a = 3 Then Cells(sat, a + 2) = Split(deg, "_")(a) & "_" & Split(deg, "_")(a + 1)
    Next
Next
End Sub

Teşekkür ederim, sorunsuz çalışıyor. iyi çalışmalar.

 

[Ömer BARAN]

İyi çalışmalar.