Uzun sayıları parçalarına ayırma tek tek

[Blacklion27]

Fotodaki gibi her bir sayıyı nasıl parçalarına ayırabilirim acaba?

 

[Orion1]

B3 e yazın sağa doğru kopyalayın.
=EĞER(UZUNLUK($A$3)>=SÜTUN(A1);PARÇAAL($A$3;SÜTUN(A1);1);"")

 

[Blacklion27]

B3 e yazın sağa doğru kopyalayın.
=EĞER(UZUNLUK($A$3)>=SÜTUN(A1);PARÇAAL($A$3;SÜTUN(A1);1);"")

Teşekkürler işime çok yaradı iyi geceler

 

[muygun]

Merhaba;
Syn. Orion1 işlevle çözümü vermiş.
Buda alternatif makro çözümü olsun.
Sayfanın kod bölümüne;

Sub ayır()
Application.ScreenUpdating = False
On Error Resume Next
Range("b2:ıv65536").ClearContents
For i = 2 To Range("A65536").End(xlUp).Row
uzz = Len(Cells(i, 1))
For k = 1 To uzz
sonsütun = Cells(i, 256).End(xlToLeft).Column + 1
Cells(i, sonsütun) = Mid(Cells(i, 1), k, 1)
Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını ekleyerek bir butonla çalıştırın.
İyi çalışmalar.

 

[Utekiner]

Sn @muygun Hocam,
A sütunundaki sayılar A2:A5000 arasında olsaydı kodun neresi değiştirilmeli,
yada Tüm A:A sütunu için.

 

[Orion1]

Teşekkürler işime çok yaradı iyi geceler

Rica ederim.
İyi çalışmalar.

 

[muygun]

Sn @muygun Hocam,
A sütunundaki sayılar A2:A5000 arasında olsaydı kodun neresi değiştirilmeli,
yada Tüm A:A sütunu için.

Merhaba;
Mevcut kodlarda;
For i = 2 To Range("A65536").End(xlUp).Row
satırı A sütunu 2. satırdan son dolu satıra kadar döner.
A65536 kısmını istediğiniz satır nosuna göre düzenleyebilirsiniz.
İyi çalışmalar.

 

[Utekiner]

@muygun bilgilendirme için teşekkür ederim. Kolay gelsin.

 

[Blacklion27]

B3 e yazın sağa doğru kopyalayın.
=EĞER(UZUNLUK($A$3)>=SÜTUN(A1);PARÇAAL($A$3;SÜTUN(A1);1);"")

Kardeşim attığın formül oldu ama hepsini seçip aşağıya doğru kaydırdığımda formülü kopyala yapsam bile aynı en üstteki gibi oluyorlar nasıl bir şey yapabilirim?

 

[YUSUF44]

=EĞER(UZUNLUK($A$3)>=SÜTUN(A1);PARÇAAL($A$3;SÜTUN(A1);1);"")

yerine

=EĞER(UZUNLUK($A3)>=SÜTUN(A1);PARÇAAL($A3;SÜTUN(A1);1);"")

Deneyin

 

[Blacklion27]

=EĞER(UZUNLUK($A$3)>=SÜTUN(A1);PARÇAAL($A$3;SÜTUN(A1);1);"")

yerine

=EĞER(UZUNLUK($A3)>=SÜTUN(A1);PARÇAAL($A3;SÜTUN(A1);1);"")

Deneyin

Çok teşekkürler istediğim gibi oldu

 

[çıtır]

Alternatif.
B3 Kopyalayınız sağa doğru ve aşağı çoğlatınız.

=PARÇAAL($A3;SÜTUN(A$1);1)