Sütun dağılımı ??

[gokdag]

A Sütununda bilgilerim var bilgilerimin arasında boşluk var boşlukdan sonra olan verilerimi b sütununa sonraki boşlukdaki verimide c sütununa yerleştirsin istiyorum örnek dosyayı gönderiyorum

 

[Levent Menteşoğlu]

Verilerinizin nasıl yerleşeceğinide örnek dosyanızda gösterirmisiniz.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub ayir()
Sheets("Sayfa1").Select
Range("B:D").Clear
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If InStr(1, Cells(i, "A").Value, " ") > 0 Then
        y = Split(Cells(i, "A").Value, " ")
        For a = LBound(y) To UBound(y)
            Cells(i, a + 2).Value = y(a)
        Next a
        Erase y
    End If
Next i
MsgBox "İşlem Tamam"
End Sub

 

[gokdag]

Yanlış ifade etmiş olabilirim dosyayı olması gereken şekilde yollurum

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub sutunlaraaktar()
aralik = Split(Columns(1).SpecialCells(xlCellTypeConstants, 23).Address, ",")
For a = 1 To UBound(aralik)
say = WorksheetFunction.CountA(Rows(1)) + 1
Range(aralik(a)).Cut Cells(1, say)
Next
Cells.EntireColumn.AutoFit
End Sub

 

[gokdag]

Çok Teşekkürler