Verileri hücrelere dağıtmak

[ziya]

Merhaba,
Bankadan aldığım verileri örnekteki gibi hücrelere dağıtmak istiyor ve yardım rica ediyorum. Açıklama örnek dosyada.
Selamlar,

 

[Vedat Özer]

Selamun Aleyküm,

A Sutunun Seçin,

Veri/Metni Sutunlara Dönüştür/Sabit Genişlikler/İleri/Burada Gerekli düzeltmelere yaptıktan sonra/İleri/Son tıklayın.


Bakalım istediğiniz gibi olacakmı.

 

[ziya]

Teşekkür ederim, henüz denemedim ama sanıyorum sonuç alabileceğim bir yöntem. Hiç aklıma gelmedi nedense.

 

[ziya]

% 90 istediğim gibi oldu, tekrar teşekkür ederim.

 

[Vedat Özer]

Selamun Aleyküm,

%10 olmayan kısmı açıklarsanız bildiğim kadarıyla yardımcı olmaya çalışırım.

 

[ziya]

Merhaba,
Her satırın ikinci satırında, GERÇEKLEŞMEYEN TALİMAT ve benzeri açıklama olan ikinci bir satır var.
1- O açıklama ilk satırın son sütununa ( J sütunu ) gelmeli
2- İşi biten bu satır silinmeli. Yani toplam 30 satır 15 satıra düşmeli. (Satır sayısı binlerce olduğu için bunu istiyorum, tek tek yapmak çok vakit alacak)
Bu nedenle Macro-VBA ana başlığı altında yazmıştım.

Selamlar,

 

[leumruk]

Merhaba,
Aşağıdaki kodu bir butona bağlayıp çalıştırın. Kod yeni verileri Sayfa2'ye aktaracak biçimde düzenlendi.

Sub Ayir()
Sheets("Sayfa2").Cells.Delete
For x = 1 To [a65536].End(3).Row Step 2
Sat = Sat + 1
veri = WorksheetFunction.Trim(Cells(x, 1))
deg = Split(veri, " ")
For y = 0 To UBound(deg)
If y = 5 Then
Sheets("Sayfa2").Cells(Sat, y + 1) = deg(y) * 10000
Sheets("Sayfa2").Cells(Sat, y + 1).NumberFormat = "#,##0"
Else
Sheets("Sayfa2").Cells(Sat, y + 1) = deg(y)
End If
Next
Sheets("Sayfa2").Cells(Sat, y + 1) = WorksheetFunction.Trim(Cells(x + 1, 1))
Next
MsgBox "İşlem tamam.", vbInformation, "leumruk"
End Sub