aynı hücredeki sayıları arada boşluk varsa başka bir hücreye yılına göre kopyalama

[gezgin-49]

Sayın üstadlarım aynı hücre içinde binden fazla sayı var, aynı hücre içinde olan bu sayılar arasında birer boşluk var sizden istediğim aralarında boşluk olan sayıları başka bir hücreye YILINA GÖRE kes yapıştır yapması
(Yıllar A hücresinde ona ilişkin sayıların ise B,C,D,E,F,G,H,I,K,L hücrelerine atması gerekiyor.)

örneğin
A1 HÜCRESİNDE 

2006 YILI
 378 2113

2007 YILI
368 374

2008 YILI
513 514 1042 1967

2009 YILI
691 1095 1457 1529 1530

2010 YILI
225 241 641 806 1119

2011 YILI
57 62 66 70 908 909 910 911 912 913 922 923 924 928 929 930 941 946 956 957 958 959 960 1016 1326 1724 

......

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir.

Private Sub CommandButton1_Click()
For a = 2 To Cells(Rows.Count, 1).End(3).Row
If Cells(a, 1) <> "" And Right(Cells(a, 1).Value, 4) <> "YILI" Then
boş = Len(Trim(Cells(a, 1).Value)) - Len(Replace(Trim(Cells(a, 1).Value), " ", ""))
If boş > 0 Then
For b = 0 To boş
Cells(a, b + 2) = Split(Trim(Cells(a, 1).Value), " ")(b)
Next
End If
End If
Next
End Sub

 

[gezgin-49]

Sayın Plint çok teşekkür ederim, ancak tüm sütuna dağılıyor, soldan sağa L hücresine kadar dağıttıktan sonra bir alt satıra geçip diğer sayıları atmasını istiyorum.

 

[PLİNT]

Satır eklenerek mi devam edecek?
Yoksa; mesela "A1" hücresindekiler bittiğinde "d" sütununda kaldı "A3" dekiler "E" den devammı edecek?
Küçük bir örnek dosya eklermisiniz? http://s3.dosya.tc/

 

[gezgin-49]

hayır devam etmeyecek A1 deki veriler B1 ve L1 hücrelerine kadar yatay ondan sonra aşağıya doğru dikey olarak aktarılacak
daha sonra A2 deki veriler en son satırın B hücresinden başlayarak devam edecek bu durum A50' ye kadar aynen devam edecek

 

[PLİNT]

Ekte 3 dosya bulunuyor. Bir inceleyin hangisi işinize yararsa;
2003 Formatında: http://s3.dosya.tc/server7/pzownn/2003.zip.html


http://s3.dosya.tc/server7/ziwz7o/Desktop.zip.html