Ekstre düzenleme

[igultekin2000]

Merhaba;
PDF banka ekstresini Excel'e çevirdiğimde veriler düzensiz oluyor. Tutar kısımlarını tek sütün haline nasıl getirebilirim. Bazı banka ekstreleri sorunsuz düzelirken bazıları maalesef bu şekilde hatalar veriyor. Teşekkür ederim.

 

[hamitcan]

Böyle deneyin.

Sub Tutar()
    x = [a65536].End(3).Row
    For Each hcr In Range("c2:f" & x)
        If hcr <> "" Then Cells(hcr.Row, "n") = Cells(hcr.Row, "j") & hcr.Value * 1
    Next
End Sub

 

[igultekin2000]

Teşekkür ederim, kod sorunsuz çalışıyor. Yeni bir kod daha öğrenmiş oldu. J kolonundaki (-,+) işaretini almasa da olurdu. J kolonunun iptal edemedim, J kolonunu K kolonu yaparak işlemi tamamladım.
İyi çalışmalar.

 

[hamitcan]

Cells(hcr.Row, "j") & kısmını kaldırırsanız sorun kalmaz.