Satırlara veri aktarım

[f_alkan]

Ekte sorumuz mevcuttur. Ilgilenen arkadaşlara saygılar

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Duzelt()
    Dim i   As Long, _
        j   As Integer, _
        d() As String, _
        t   As String
    
    Application.ScreenUpdating = False
    On Error Resume Next
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        d = Split(Trim(Cells(i, "A")), " ")
        t = Trim(Cells(i, "A"))
            t = Replace(t, d(0), "")
            t = Replace(t, d(UBound(d)), "")
            Cells(i, "C") = CDate(d(0))
            Cells(i, "D") = t
            Cells(i, "E") = CDbl(Replace(d(UBound(d)), ".", ","))
    Next i
    Application.ScreenUpdating = True
    
End Sub