sütunda birleşik olan tarih saat bayt ve ücretlerin sütun lara ayrılması

[şehiriçi]

merhaba arkadaşlar
benim sorum tek sütunda verilmiş olan tarih saat bayt ve ücret in ayrı ayrı sütunlarda belirtilmesini istiyorum

 

[Ömer]

Merhaba,

Metni Sütunlara dönüştür menüsü ile yapabilirsiniz.

 

[Orion1]

Alternatif.
Dosyanız ektedir.

Sub bosluk59()
Dim i As Long, k, j As Integer
Range("C2:Z" & Rows.Count).Clear
sat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To sat
    k = Split(Cells(i, "A").Value, " ")
    For j = LBound(k) To UBound(k)
        Cells(i, j + 3).Value = k(j)
    Next j
Next i
Application.ScreenUpdating = True
MsgBox "işlem bitti." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[şehiriçi]

sayın ömer ve orion1 ilginize çok teşekkür ederim