hücredeki veileren istediklerimi alıp sayfa2ye satır satır nasıl yazdırabilirim acaba

[pitsss]

Arkadaşlar kolay gelsin.
sıralama ile ilgili bi sorum olacaktı.
sayfa1 de bulunan bazı verilerim var, bu verileri access ten alıyorum
bu verilerin a ve b sütünlarında şunlar yazıyor.

421130	M001010701110100000000003500210072000000000000000000000005397893,M002010701110100000000003500210074000000000000000000000005206220,M003010701110100000000003500210071000000000000000000000005419164
402787	M001010701110100000000003500210087000000000000000000000005471012,M002010701110100000000003500210087000000000000000000000005167679
441474	M001010701110100000000003500210089000000000000000000000005391716,M002010701110100000000003500210101000000000000000000000005317727,M003010701110100000000003500210101000000000000000000000005294276
488784	
418628	M001010801110100000000003500210064000000000000000000000005371852

benim amacım
bu kodların virgülden önceki son 7 hanesini alsın sayfa ikide b sütununa yazsın. a sütununa da sayfa 1 deki a sütununa yazsın.
bunu nasıl yapabilirim acaba?
NOT: sayfa1 b sütnundaki virgülle ayrılmış veriler çok fazla olabiliyor( 50 tane gibi)

ÖRNEK:

sayfa1 deki veriler

421130	M001010701110100000000003500210072000000000000000000000005397893,M002010701110100000000003500210074000000000000000000000005206220,M003010701110100000000003500210071000000000000000000000005419164
402787	M001010701110100000000003500210087000000000000000000000005471012,M002010701110100000000003500210087000000000000000000000005167679
441474	M001010701110100000000003500210089000000000000000000000005391716,M002010701110100000000003500210101000000000000000000000005317727,M003010701110100000000003500210101000000000000000000000005294276
488784	
418628	M001010801110100000000003500210064000000000000000000000005371852

sayfa2 de olmasını istediğim veriler

[B][COLOR="RoyalBlue"]421130	53978930
421130	520622
421130	5419164
402787	5471012
402787	5167679
441474	5391716
441474	5317727
441474	5294276
488784	
418628	5371852[/COLOR][/B]

 

[Orion1]

Makro ile değilde formülle.
=PARÇAAL(Sayfa1!B1;BUL(",";Sayfa1!B1)-7;7)

 

[tahsinanarat]

SN. Evren bey görünen #DEĞER! 'inde görünmemesini sağlayabilirmiyiz.

 

[pitsss]

öncelikle cevaplarınız için teşekkür ederim.
kendime göre birşeyler yaptım
ve şuanda sorunumun bir kısmını çözdüm.
aşağıdaki kodları uygulayarak

Sub ayirr()

a = Split(Sheets("sayfa1").Cells(2, 2), ",")
toplam = UBound(a) + 2
For x = 2 To toplam
Sheets("sayfa2").Cells(x, 1) = Sheets("sayfa1").Cells(2, 1)
Sheets("sayfa2").Cells(x, 2) = Right(a(x - 2), 7)
Next x

End Sub

ancak burada önemli bi sorun ortaya çıkıyor.
sadece bir satırınkileri aktarabiliyorum
ama ben tüm satırları aktarsın istiyorum

sayfa1 deki işlenmmeiş veriler şunlar

a	a1,a2,a3,a4
b	b1,b2,b3
c	c1,c2,c3,c4,c5,c6,c7,c8,c9
d	d1,d2,d3,d4,d5

bu veriler sayfa 2 de şöyle gözüksün istiyorum

a	a1
a	a2
a	a3
a	a4
b	b1
b	b2
b	b3
c	c1
c	c2
c	c3
c	c4
c	c5
c	c6
c	c7
c	c8
c	c9
d	d1
d	d2
d	d3
d	d4
d	d5

ama bi türlü bunu başaramadım.
yardımınıza ihtiyacım var arkadaşlar. teşekkürler.

 

[pitsss]

Sub ayirr()

[COLOR="Red"]For y = 2 To Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row[/COLOR]
son = Sheets("sayfa2").Cells(65536, 1).End(xlUp).Row
a = Split(Sheets("sayfa1").Cells([COLOR="Red"]y[/COLOR], 2), ",")
toplam = UBound(a) + 2
For x = 2 To toplam
[COLOR="Red"]son = son + 1[/COLOR]
Sheets("sayfa2").Cells([COLOR="Red"]son[/COLOR], 1) = Sheets("sayfa1").Cells([COLOR="Red"]y[/COLOR], 1)
Sheets("sayfa2").Cells([COLOR="Red"]son[/COLOR], 2) = Right(a(x - 2), 7)
Next x
[COLOR="Red"]Next y[/COLOR]
End Sub

kodu şu şekilde yaptığımda sorun çözüldü.

 

[Orion1]

Sub ayirr()

[COLOR="Red"]For y = 2 To Sheets("sayfa1").Cells(65536, 1).End(xlUp).Row[/COLOR]
son = Sheets("sayfa2").Cells(65536, 1).End(xlUp).Row
a = Split(Sheets("sayfa1").Cells([COLOR="Red"]y[/COLOR], 2), ",")
toplam = UBound(a) + 2
For x = 2 To toplam
[COLOR="Red"]son = son + 1[/COLOR]
Sheets("sayfa2").Cells([COLOR="Red"]son[/COLOR], 1) = Sheets("sayfa1").Cells([COLOR="Red"]y[/COLOR], 1)
Sheets("sayfa2").Cells([COLOR="Red"]son[/COLOR], 2) = Right(a(x - 2), 7)
Next x
[COLOR="Red"]Next y[/COLOR]
End Sub

kodu şu şekilde yaptığımda sorun çözüldü.

Tebrikler.

 

[Orion1]

SN. Evren bey görünen #DEĞER! 'inde görünmemesini sağlayabilirmiyiz.

=EĞER(EHATALIYSA(PARÇAAL(Sayfa1!B1;BUL(",";Sayfa1!B1)-7;7));"";PARÇAAL(Sayfa1!B1;BUL(",";Sayfa1!B1)-7;7))